(objects :root "1" (LBox :idref "1" :uniclass "14" (slot :idref "2" :name "components") (slot :idref "11" :name "transformation") (slot :idref "12" :name "shape") (slot :class "Point" :value "0.0@0.5" :name "pivotRatio") (slot :class "True" :value "true" :name "cardSpecific") (slot :class "True" :value "true" :name "fired") (slot :class "False" :value "false" :name "layoutChanged") (slot :idref "13" :name "menuContributors") (slot :class "ByteSymbol" :value "button1" :name "name") (span :familyName "DejaVuSans" :pointSize "12.0" :color "0 255" :style "0" (data :data " Click here "))) (IdentityDictionary :idref "2" (slot :keyClass "ByteSymbol" :keyValue "ButtonHandler" :valueId "3") (slot :keyClass "ByteSymbol" :keyValue "Layout" :valueId "6")) (LButtonHandler :idref "3" (slot :idref "4" :name "properties") (slot :idref "1" :name "whole") (slot :class "SmallInteger" :value "111" :name "modifierMask") (slot :class "SmallInteger" :value "16" :name "modifierRejectMask") (slot :idref "1" :name "target") (slot :class "ByteSymbol" :value "fire" :name "selector") (slot :class "False" :value "false" :name "pressed") (slot :class "False" :value "false" :name "entered") (slot :class "False" :value "false" :name "announces")) (IdentityDictionary :idref "4" (slot :keyClass "ByteSymbol" :keyValue "defaultFill" :valueId "5")) (GeziraFillUniform :idref "5" (slot :class "Float" :value "P/AAAAAAAAA=" :name "alpha") (slot :class "Float" :value "P/AAAAAAAAA=" :name "red") (slot :class "Float" :value "P/AAAAAAAAA=" :name "green") (slot :class "Float" :value "P/AAAAAAAAA=" :name "blue")) (LLineEditor :idref "6" (slot :class "SmallInteger" :value "109" :name "modifierMask") (slot :class "SmallInteger" :value "18" :name "modifierRejectMask") (slot :class "Point" :value "2@1" :name "inset") (slot :idref "7" :name "font") (slot :class "Interval" :value "0 1 1" :name "selection") (slot :class "SmallInteger" :value "1" :name "selectionAnchor") (slot :class "Interval" :value "30 500 30" :name "tabArray") (slot :idref "10" :name "undoStack") (slot :class "Float" :value "QC20AAAAAAA=" :name "maxHeight") (slot :class "SmallInteger" :value "0" :name "missingHeight") (slot :class "Float" :value "QA4wAAAAAAA=" :name "maxDescent") (slot :class "False" :value "false" :name "autoVerticalResize") (slot :class "ByteSymbol" :value "center" :name "justification") (slot :class "False" :value "false" :name "valueChanged") (slot :class "True" :value "true" :name "isLabel") (slot :class "Float" :value "QFdygAAAAAA=" :name "naturalLength")) (LFont :idref "7" (slot :idref "8" :name "face") (slot :class "Float" :value "QCgAAAAAAAA=" :name "pointSize")) (LFace :idref "8" (slot :idref "9" :name "family") (slot :class "SmallInteger" :value "0" :name "style")) (LFamily :idref "9" (slot :class "ByteSymbol" :value "DejaVuSans" :name "name")) (OrderedCollection :idref "10" :size "0") (MatrixTransform2x3 :idref "11" :value "P4AAAAAAAABENRj5AAAAAD+AAABD1wq8" :basicSize "6") (LBoxShape :idref "12" (slot :idref "5" :name "fill") (slot :class "Point" :value "93.7890625@20.625" :name "extent") (slot :class "Color" :value "0 255" :name "borderColor") (slot :class "SmallInteger" :value "1" :name "borderWidth") (slot :class "False" :value "false" :name "infinite") (slot :class "SmallInteger" :value "5" :name "cornerRadius")) (Array :idref "13" :basicSize "1" (slot :class "ByteSymbol" :value "LBoxMenuHandler" :name "1")) (LBox :idref "14" :metaclass "true" :slotsString "" :uniclass "14" (slot :idref "15" :name "scripts") (slot :idref "20" :name "classPool")) (IdentityDictionary :idref "15" (slot :keyClass "ByteSymbol" :keyValue "fire" :valueId "16") (slot :keyClass "ByteSymbol" :keyValue "fireOnce" :valueId "18")) (LScript :idref "16" (slot :idref "17" :name "definition")) (ByteString :idref "17" :value "fire\r\t| field |\r\tfield := self container atName: 'antsField'.\r\tfield ifNotNil: [\r\t\tfield glInit.\r\t\tfield contentsDo: [:ant |\r\t\t\tant position: field extent * (100 atRandom @ 100 atRandom) / 100.0.\r\t\t\tant rotateBy: 360 atRandom degreesToRadians.\r\t\t\t(ant \\ #SniffGradient) ifNotNilDo: [:h |\r\t\t\t\th startStepping]]].\r" :basicSize "312") (LScript :idref "18" (slot :idref "19" :name "definition")) (ByteString :idref "19" :value "fireOnce\r\t(self valueOfProperty: #fired) == true ifFalse: [\r\t\tself setProperty: #fired toValue: true.\r\t\tself fire].\r" :basicSize "116") (Dictionary :idref "20"))