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
                    												

    F  
PoppyExamples.tioga
Goodisman, August 15, 1989 4:01:37 pm PDT
 ‌تƒ  •NewlineDelimiter
–(cedardoc) style™ largecenterڑœ™Icode™)—headکڑذbk
ک
ڑ‌کLڑدnœدo'ک-ڑ‍œںکLڑ‍
œ¯ک¹Lڑ‍œ/ک6—Lڑ‍œںک—ڑ‌
ک
Lڑ‍œکLڑ‍œک—Lڑ‌ک——کڑ‌
ک
ڑ‌کLڑ‍œںک!ڑ‍œںکLڑ‍œ/ک6Lڑ‍
œ؟کة—Lڑ‍œںک—ڑ‌
ک
Lڑ‍œکLڑ‍œک—Lڑ‌ک——کIblockک2ڑ‌
ک
ڑ‌کڑ‍œںکLڑ‍œ/ک6Lڑ‍
œ³‍œœرک£—Lڑ‍œںک—ڑ‌
ک
Lڑ‍œکLڑ‍œک—Lڑ‌ک——کڑ‌
ک
ڑ‌کڑ‍œں
کLڑ‍œ/ک6Lڑ‍
œƒœؤکر—Lڑ‍œںکڑ‍œںکLڑ‌œکLڑ‍œ/ک6Lڑ‍
œ:ںœ1ںœœؤکة—Lڑ‍œںکڑ‍œںکLڑ‍œ/ک6Lڑ‍
œ:ںœ1ںœœءکؤ——ڑ‌
ک
Lڑ‍œکLڑ‍œک—Lڑ‌ک—Icenterک —Jک — …—    ~  G  