home *** CD-ROM | disk | FTP | other *** search
/ Totally for Newton 10 / PDA10.toast / mac / Packages / Programming / 2.x / TapBar SDK 1.0 / Sample 7 / Sample 7.def < prev    next >
Encoding:
Text File  |  1996-06-01  |  972 b   |  50 lines  |  [TEXT/R*ch]
  1. /*====================================================================
  2.     Sample 7.def    ©1996 Yosuke "Basuke" Suzuki.
  3.     
  4.     Simple button based on tbPopupButton. 
  5.     It displays simple popup when tapping, 
  6.     then display another popup for result of the first popup.
  7.   ====================================================================*/
  8.  
  9. partData := {
  10.     //
  11.     // Actual button is defined in afterscript of "Sample 7.t"
  12.     // Actual pref panel is defined in afterscript of "Pref 7.t"
  13.     //
  14. };
  15.  
  16.  
  17. InstallScript := func(partFrame,removeFrame)
  18. begin
  19.     
  20.     //
  21.     //    register button
  22.     //
  23.     
  24.     call kRegTapBarButtonFunc with (kAppSymbol, partFrame.partData.button);
  25.     
  26.     //
  27.     //    register preference panel
  28.     //
  29.     
  30.     call kRegTapBarPrefFunc with (kAppSymbol, partFrame.partData.pref);
  31. end;
  32.  
  33.  
  34. RemoveScript := func(removeFrame)
  35. begin
  36.     
  37.     //
  38.     //    unregister preference panel
  39.     //
  40.     
  41.     call kUnRegTapBarPrefFunc with (kAppSymbol);
  42.     
  43.     //
  44.     //    unregister button
  45.     //
  46.     
  47.     call kUnRegTapBarButtonFunc with (kAppSymbol);
  48. end;
  49.  
  50.