Here's much the same, but as a simple toggle script. Put it (or an alias to it) in the iChat Scripts folder (available from the "Open Scripts Folder" when iChat is the active application).


tell application "iChat"
tell (a reference to the bounds of window "Buddy List")
set theBounds to get contents
if item 4 of theBounds > 300 then
set contents to (items 1 thru 3 of (get contents) & (item 2 of (get contents)) + 94)
else
set contents to (items 1 thru 3 of (get contents) & (item 2 of (get contents)) + 302)
end if
end tell
end tell


---
FileMaker Developer
San Diego