gistfile1.txt

tell application "System Events"
	tell application "Finder"
		set _b to bounds of window of desktop
		set _width to item 3 of _b
		set _height to item 4 of _b
	end tell
	
	tell application "Safari"
	    set bounds of every window to { 0 , 0 , _width - 555 , _height }
    end

	tell application "Firefox"
	    activate
	    set bounds of every window to { 0 , 0 , _width - 555 , _height }
    end
    
    tell application "TextMate"
	    set bounds of every window to { _width - 555 , 0 , _width , _height }
    end

end tell