// Text of project ExtraChange written on 5/9/95 at 6:28 PM // Beginning of file ExtraChange.t _view000 := {viewFlags: 5, viewFormat: nil, viewBounds: {left: 0, top: 0, right: 0, bottom: 0}, viewSetupDoneScript: func() begin //change our extras info to the other state call kSetExtrasInfoFunc with (kAppSymbol, if stateOne then {icon: two, text: "Two"} else {icon: one, text: "Hup"}); stateOne := NOT stateOne; //this sample has no UI apart from the icon in the extras drawer, so quit AddDeferredAction(func() GetRoot().(kAppSymbol):Close(),[]); end, stateOne: true, one: GetPictAsBits("one", 1), two: GetPictAsBits("two", 1), viewClass: 74 }; constant |layout_ExtraChange.t| := _view000; // End of file ExtraChange.t