home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / manual / sampler.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  1.6 KB  |  70 lines
  1. '***********************************************************************
  2. '    Sampler.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. RUN "StdSys"
  12.  
  13. PROC ExitTutor
  14.     RESET _All
  15.     EXIT PROGRAM
  16. END PROC
  17.  
  18. PROC Message(s, ..)
  19.     LOCAL formCurrent, dummy, font
  20.  
  21.     IF s = "" THEN
  22.         FormSelect(formMessage)
  23.         FormControl(_Close)
  24.         EXIT PROC
  25.     END IF
  26.     IF NOT(QNOptParams) THEN
  27.         formCurrent = FormQ(_Selected)
  28.     END IF
  29.     formMessage = FormQUnique
  30.     font = FontQUnique
  31.     FontNew(font; "Helv", 16, _Bold)
  32.     FormNew(formMessage; "", 0)
  33.     FormControl(_Size; 20 pct, 40 pct, 60 pct, 30 pct)
  34.     FormSetObject(10, _CaptionCenter, s, font, 1 pct, 20 pct, 98 pct, 50 pct; _Blue)
  35.     FontControl(_Close)
  36.     IF NOT(QNOptParams) THEN
  37.         FormSetObject(1, _DefButton, "OK", 40 pct, 70 pct, 20 pct, 25 pct)
  38.     END IF
  39.     IF NOT(QNOptParams) THEN
  40.         dummy = FormWait
  41.         FormControl(_Close)
  42.         IF formCurrent THEN
  43.             FormSelect(formCurrent)
  44.         END IF
  45.     ELSE
  46.         FormControl(_Show)
  47.     END IF
  48. END PROC
  49.  
  50. fontTitle = FontQUnique
  51. FontNew(fontTitle; "helv", 18, _Bold)
  52.  
  53. Message("The Realizer Interface Sampler" + chr$(13) + "One moment please...", 1)
  54. SetHourglass
  55. AddSys(_LoadDir, QSys(_ProgDir) + "sampler")
  56. AddSys(_MacroDir, QSys(_ProgDir) + "sampler")
  57.  
  58. RUN "winstyle.rlz"
  59. RUN "tutmain.rlz"
  60. RUN "objects.rlz"
  61. RUN "listboxs.rlz"
  62. RUN "tools.rlz"
  63.  
  64. FontSelect(fontTitle)
  65. FontControl(_Close)
  66.  
  67. Message("")
  68. ResetHourglass
  69. FormSelect(formMain)
  70. FormControl(_Show)