home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / manual / sampler / tutmain.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  1.5 KB  |  45 lines
  1. '***********************************************************************
  2. '    TutMain.rlz                      
  3. '
  4. '    Realizer User's Guide Tutorial
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. PROC formprocMain(params)
  12.     FormSelect(formMain)
  13.     IF params[_Invoke] = _Close THEN
  14.         ExitTutor
  15.     END IF
  16.  
  17.     SELECT CASE params[_ItemNum]
  18.         CASE 20    'Winow styles
  19.             FormControl(_Hide)
  20.             FormSelect(formWinstyle)
  21.             FormControl(_Show)
  22.         CASE 30    'Window objects
  23.             FormControl(_Hide)
  24.             FormSelect(formObjects)
  25.             FormControl(_Show)
  26.         CASE 40    'Tools
  27.             FormControl(_Hide)
  28.             FormSelect(formTools)
  29.             FormControl(_Show)
  30.         CASE 60    'Exit
  31.             ExitTutor
  32.     END SELECT
  33. END PROC
  34.  
  35. formMain = FormQUnique
  36. FormNew(formMain; "Realizer Interface Sampler", _Title + _Minimize + _Close + _Size + _HotClick)
  37. FormControl(_Size; _Center, _Center, 70 pct, 80 pct)
  38. FormSetObject(10, _CaptionCenter, "Welcome to the Interface Sampler", fontTitle, _Center, 2 pct)
  39. FormSetObject(15, _CaptionCenter, "Click on one of the following buttons:", _Center, 16 pct)
  40. FormSetObject(20, _Button, "Window Styles...", _Center, 30 pct, 50 pct, 12 pct)
  41. FormSetObject(30, _Button, "Interface Controls...", _Center, 45 pct, 50 pct, 12 pct)
  42. FormSetObject(40, _Button, "Realizer Application Tools...", _Center, 60 pct, 50 pct, 12 pct)
  43. FormSetObject(60, _Button, "Quit", _Center, 85 pct, 25 pct, 12 pct)
  44. FormSetProc(formprocMain)
  45.