PoppyExamples.tioga
Goodisman, August 15, 1989 4:01:37 pm PDT
Pop Up Buttons
BEGIN NODE
CONTENTS
Text: Here's a pop up button with 3 entries:
Text: A button
ButtonData: Poppy1
Class: PopUpButton
Menu: (
(Event1 "First Item" "Sends Event1 to application")
((Event2 Arg2) "Second Item" "Sends Event2 to application")
((Event3 <GetVal>) "Third Item" "Sends Event3 to application")
)
MessageHandler: MessageWindow
Feedback: (
(MouseMoved <SetCursor bullseye>)
)
Postfix: 1.0 outlineBoxBearoff 1.0 outlineBoxThickness
Text: .
PROPERTIES
Comment: FALSE
Format: block
END NODE
Two State Buttons
BEGIN NODE
CONTENTS
Text: Here's a two state button:
Text: A TwoStateButton
Postfix: 1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData: Poppy1
Class: TwoStateButton
Name: George
Variables: (Value: BOOL=FALSE)
UpClickMessage: <SelectFromValue
FALSE (George Becoming True)
TRUE (George Becoming False)
>
Feedback: (
((Red Down) (StartButton ClearLooks 2 ApplyLook EndButton))
(Up <SelectFromValue
FALSE (StartButton ClearLooks EndButton)
TRUE (StartButton ClearLooks 1 ApplyLook EndButton)>
)
((Value TRUE) (StartButton ClearLooks 1 ApplyLook EndButton))
((Value FALSE) (StartButton ClearLooks EndButton))
(MouseMoved <SetCursor bullseye>)
)
MessageHandler: (Default MessageWindow)
Text: .
PROPERTIES
Comment: FALSE
Format: block
END NODE
Multiple State Buttons
This button cycles through plain, bold, and large:
BEGIN NODE
CONTENTS
Text: An EnumeratedTypeButton
Postfix: 1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData: Poppy1
Class: MultiStateButton
Name: Fred
Variables: (Value: {Plain, Bold, Greek}=Plain)
UpClickMessage: <SelectFromValue
Plain (Fred was Plain)
Bold (Fred was Bold)
Greek (Fred was Greek)
>
Feedback: (
((Red Down) (StartButton ClearLooks 2 ApplyLook EndButton))
((Value Plain) (StartButton ClearLooks EndButton))
((Value Bold) (StartButton ClearLooks 1 ApplyLook EndButton))
((Value Greek) (StartButton ClearLooks 11 ApplyLook EndButton))
(MouseMoved <SetCursor bullseye>)
)
MessageHandler: (Default MessageWindow)
Text: .
PROPERTIES
Comment: FALSE
Format: block
END NODE
Radio Buttons
BEGIN NODE
CONTENTS
Text: Grapefruit
Postfix: 1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData: Poppy1
Class: RadioButton
Name: Fruit
RadioButtonValue: Grapefruit
Variables: (State: BOOL=FALSE)
UpClickMessage: (Grapefruit On)
Feedback: (
((State TRUE) (StartButton 1 ApplyLook EndButton))
((State FALSE) (StartButton 1 RemoveLook EndButton))
(MouseMoved <SetCursor bullseye>)
)
MessageHandler: (Default MessageWindow)
Text: . . .
Text: Banana
LOOKS(j)
Postfix: 1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData: Poppy1
Class: RadioButton
Name: Fruit
RadioButtonValue: Banana
Variables: (State: BOOL=FALSE)
UpClickMessage: (Banana On)
Feedback: (
((State TRUE) (StartButton 1 ApplyLook EndButton))
((State FALSE) (StartButton 1 RemoveLook EndButton))
(MouseMoved <SetCursor bullseye>)
)
MessageHandler: (Default MessageWindow)
Text: . . .
Text: Apple
Postfix: 1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData: Poppy1
Class: RadioButton
Name: Fruit
RadioButtonValue: Apple
Variables: (State: BOOL=FALSE)
UpClickMessage: (Apple On)
Feedback: (
((State TRUE) (StartButton 1 ApplyLook EndButton))
((State FALSE) (StartButton 1 RemoveLook EndButton))
(MouseMoved <Cursor bullseye>)
)
MessageHandler: (Default MessageWindow)
PROPERTIES
Comment: FALSE
Format: block
END NODE