ButtonData Poppy1
Class: PopUpButton
MessageHandler: DrawShapes
Menu: (
((Clear) "Clear" "Deletes and erases entire scene.")
)
Feedback: (
(MouseMoved <SetCursor bullseye>)
)

ButtonData Poppy1
Class: PopUpButton
MessageHandler: DrawShapes
Menu: (
((Thinner) "Thinner" "Makes stroke width smaller")
()
((Thicker) "Thicker" "Makes stroke width larger")
)
Feedback: (
(MouseMoved <SetCursor bullseye>)
)

ButtonData Poppy1
Class: RadioButton
MessageHandler: DrawShapes
Name: Shape
RadioButtonValue: Rectangle
Feedback: (
((MouseMoved MouseEntered) <SetCursor bullseye>)
((State TRUE) ((BeginButton) (LineWidth 5.0) (DashesOff) (EndButton)))
((State FALSE) ((BeginButton) (LineWidth 2.0) (DashesOff) (EndButton)))
(Down ((BeginButton) (DashesFromSelection "[3 5]") (EndButton)))
(Exit <SelectFromValue
Rectangle ((BeginButton) (LineWidth 5.0) (DashesOff) (EndButton))
Circle ((BeginButton) (LineWidth 2.0) (DashesOff) (EndButton))>
)
(Up ((BeginButton) (DashesOff) (EndButton)))
)

ButtonData Poppy1
MessageHandler: DrawShapes
Class: RadioButton
Name: Shape
RadioButtonValue: Circle
Feedback: (
((MouseMoved MouseEntered) <SetCursor bullseye>)
((State TRUE) ((BeginButton) (LineWidth 5.0) (DashesOff) (EndButton)))
((State FALSE) ((BeginButton) (LineWidth 2.0) (DashesOff) (EndButton)))
(Down ((BeginButton) (DashesFromSelection "[3 5]") (EndButton)))
(Exit <SelectFromValue
Circle ((BeginButton) (LineWidth 5.0) (DashesOff) (EndButton))
Rectangle ((BeginButton) (LineWidth 2.0) (DashesOff) (EndButton))>
)
(Up ((BeginButton) (DashesOff) (EndButton)))
)