/*
  ExtraChange Project Data
  Copyright: © Apple Computer, Inc. 1993-1994. All Rights Reserved.
 */ 

constant kAppSymbol := '|XChange:PIEDTS|;
constant kPackageName := "XChange:PIEDTS";

"magic llama";

// ---- End Project Data ----


// ---- 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
        :SetExtrasInfo(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,
    SetExtrasInfo: kSetExtrasInfoFunc,
    stateOne: true,
    one: GetPictAsBits("one", 1),
    two: GetPictAsBits("two", 1),
    viewclass: 74
   };





// ---- Beginning of section for non used Layout files ----

// End of output