[_CDCSL_93-16_]<1>Cedar>release>ButtonApplications>PoppyTestButtons.tioga

PoppyTest.tioga

All the buttons in this file should work.

Goodisman, August 18, 1989 1:58:32 pm PDT

Bier, October 3, 1989 5:13:15 pm PDT

PopUpButtons

Button No fields other than "Class: PopUpButton"

Button A missing "Menu:" field

Button Menu: ()

Button Menu: (())

Button Menu: ((() "" ""))

Button Menu: ("Button name" ())

Button Menu: ("Button name" (() "" ""))

Button Menu: ((() "Item1" "Documentation, Item 1"))

Button Menu: (((Event1) "Item1" "Documentation, Item 1"))

Button MessageHandler: MessageWindow

Button Menu with two entries

Button Menu with three entries

Button Menu with four entries

Button Menu with 21 entries

Button Menu with missing Feedback: field (EmbeddedButtons should complain)

Button Feedback: ()

Button Feedback: ((MouseMoved <SetCursor bullseye>))

Button

ButtonData: Poppy1
Class: PopUpButton
Menu: ("Button name"
((Event1) "Item1" "Documentation, Item 1")
((Event2) "Item2" "Documentation, Item 2")
((Event3) "Item3" "Documentation, Item 3")
((Event4) "Item4" "Documentation, Item 4")
((Event5) "Item5" "Documentation, Item 5")
((Event6) "Item6" "Documentation, Item 6")
((Event7) "Item7" "Documentation, Item 7")
((Event8) "Item8" "Documentation, Item 8")
((Event9) "Item9" "Documentation, Item 9")
)
MessageHandler: MessageWindow
Feedback: (
(Down (StartButton 1 ApplyLook EndButton))
((MouseLeft ButtonPressComplete) (StartButton 1 RemoveLook EndButton))
(MouseMoved <SetCursor bullseye>)
)

Multiple-state buttons

Button Variables: (Value: {1, 2, 3} = 2)

Button Variables: (Value: {1, 2, 3} = 3) UpClickMessage: (Foo)

Button UpClickMessage: (Foo). MessageHandler: MessageWindow

Button UpClickMessage: (Foo <Select <GetValue> 1 Bar 2 Baz 3 Quux>)

Button Variables: (Value: BOOL)

Button Variables: (Value: BOOL = TRUE)

Button Variables: (Value: {Foo, Bar, Baz})

Button Variables: (Value: {Foo, Bar, Baz} = Bar)

Button Variables: (Value: {Foo, 5, "Hello"})

Button Class: TwoStateButton

Radio Buttons

Button

ButtonData: Poppy1
Class: RadioButton
Name: One
Feedback: (
(MouseMoved <SetCursor bullseye>)
(Down (StartButton 2 ApplyLook EndButton))
((State FALSE) (StartButton 2 RemoveLook 1 RemoveLook EndButton))
((StateStill TRUE) (StartButton 2 RemoveLook))
((State TRUE) (StartButton 2 RemoveLook 1 ApplyLook EndButton))
)

Button Button

Button (RadioButtonValue: Foo) Button (RadioButtonValue: Bar)

Button Button Button

Button Button Button (RadioButtonValues: 1, 2, and 3)

Button Button Button Button Button Some of these buttons work in pairs