home *** CD-ROM | disk | FTP | other *** search
/ Totally for Newton 10 / PDA10.toast / mac / Packages / Programming / 2.x / TapBar SDK 1.0 / Sample 3 / Sample 3.def next >
Encoding:
Text File  |  1996-05-31  |  636 b   |  36 lines  |  [TEXT/R*ch]
  1. /*====================================================================
  2.     Sample 3.def    ©1996 Yosuke "Basuke" Suzuki.
  3.     
  4.     Simple button based on tbPopupButton. 
  5.     It displays simple popup.
  6.   ====================================================================*/
  7.  
  8. partData := {
  9.     //
  10.     // Actual button is defined in afterscript of "Sample 3.t"
  11.     //
  12. };
  13.  
  14.  
  15. InstallScript := func(partFrame,removeFrame)
  16. begin
  17.     
  18.     //
  19.     //    register button
  20.     //
  21.     
  22.     call kRegTapBarButtonFunc with (kAppSymbol, partFrame.partData.button);
  23. end;
  24.  
  25.  
  26. RemoveScript := func(removeFrame)
  27. begin
  28.     
  29.     //
  30.     //    unregister button
  31.     //
  32.     
  33.     call kUnRegTapBarButtonFunc with (kAppSymbol);
  34. end;
  35.  
  36.