home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Bowers Development / AppMaker 2.1.sit / AppMaker 2.1 / Examples / TCL / Gadgets / GadgetsData.h / GadgetsData.h.rsrc < prev    next >
Encoding:
Text File  |  1997-02-26  |  368 b   |  12 lines  |  [TEXT/KAHL]
  1.     2 RTEXTKAHLessBar.getProcID
  2.     import    procID:
  3. GadgetsData.hTEXTKAHLcÙd¿TEXTKAHLcÙd¿Ø9G? flavor
  4.     end if
  5.     if height > width
  6.         procID += 1
  7.     end if
  8. end getProcID
  9.  
  10. //----------
  11. procedure ScrollBar.getProcID
  12.     import    procID:ˇˇ