home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / tablet / tabsamp4.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  1.0 KB  |  43 lines
  1. '***********************************************************************
  2. '    TabSamp4.rlz                      
  3. '
  4. '    Realizer Library Guide Sample
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. RUN "Tablet"
  12.  
  13. PROC formprocGlobe(params)
  14.     FormSelect(params[_FormNum])
  15.     SELECT CASE params[_ItemNum]
  16.         CASE 30
  17.             IF FormQNum(30) THEN
  18.                 FormModifyObject(20; _Buffer)
  19.             ELSE
  20.                 FormModifyObject(20; _NoBuffer)
  21.             END IF
  22.     END SELECT
  23. END PROC
  24.  
  25. FormNew(FormQUnique; "Globe", _Title + _Close + _Minimize)
  26. FormControl(_Size; _Center, _Center, 50 pct, 65 pct)
  27. FormSetObject(20, _Tablet, "", _Center, 5 pct, 200 pxl, 200 pxl)
  28. FormSetObject(30, _CheckBox, "Buffer", _Center, _Bottom; _Notify)
  29. FormSetProc(formprocGlobe)
  30. FormControl(_Show)
  31.  
  32. TabletSelect(20)
  33. GrowthRate = 6
  34. d1 = 0
  35. d2 = 200
  36.  
  37. WHILE d1 < 100
  38.     TabletEllipse(d1, 0, d2, 200)
  39.     TabletEllipse(0, d1, 200, d2)
  40.     d1 = d1 + GrowthRate
  41.     d2 = d2 - GrowthRate
  42. END WHILE
  43. TabletControl(_Show)