visuals

[erik hansen]

on gv
  go stack "Visuals"
end gv

"Visuals" is a small stack with 4 radio buttons.
each button has this mouseUp handler: 

on mouseUp
  fixLnF
end mouseUp

on fixLnF
  put "appearance manager,windows" \   
  & "95,motif,macintosh" into theLooks
  set the lookAndFeel to \
 (the short name of the target)
  repeat with i = 1 to 4
    put "control" && quote & \
    (item i of theLooks) & quote into obj
    set the height of obj to 30
    set the width of obj to 122
    set the left of obj to 750
    set the top of obj to -20 + (i * 35)
  end repeat
end fixLnF

the buttons squiggle around and need to be
realigned. the lookAndFeel property can be
observed on the other open stacks.

=====
erik at erikhansen.org    http://www.erikhansen.org

__________________________________________________
Do you Yahoo!?
Faith Hill - Exclusive Performances, Videos & More
http://faith.yahoo.com