home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / HE_PrefMode.clssa < prev    next >
Text File  |  1993-05-01  |  4KB  |  123 lines
  1. /***********************************************************************
  2.  GADGET: "'Main Settings'" "7" AUTO TYP: "?"
  3.  
  4.  $DAT >>HE_PrefMode.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options Results
  8. Address clariSSA
  9.  
  10.   FailAt 99
  11.   AltFail=RESULT
  12.  
  13.   DO FOREVER
  14.     MSRequester "TITLE '*** Change Main Settings ***'",
  15.                 "PTEXT 'Display Screens...'",
  16.                 "'Secure Operations...'",
  17.                 "'AutoLocate Window...'",
  18.                 "'Locate Animation Position'",
  19.                 "'Colour Selection...'"
  20.     IF RC~=0 THEN LEAVE
  21.  
  22.     IF      RESULT=1 THEN call SCREENS()
  23.     ELSE IF RESULT=2 THEN call SECURITY()
  24.     ELSE IF RESULT=3 THEN call SnapWindow()
  25.     ELSE IF RESULT=4 THEN call USEPLAYPOS()
  26.     ELSE IF RESULT=5 THEN call COLREQOS()
  27.  
  28.     LEAVE
  29.   END
  30.  
  31.   FailAt AltFail
  32. EXIT
  33.  
  34. SCREENS: procedure
  35. DO
  36.   MSRequester "TITLE '*** Change Main Settings ***''Display Screens...'",
  37.                     "'If several screens are in use they can easily'",
  38.                     "'get out of order. To avoid this clariSSA can '",
  39.                     "'resort the screens for you.'",
  40.                     "''",
  41.                     "'With very fast screen changes you can get'",
  42.                     "'unpleasant screen flickering.'",
  43.               "PTEXT 'Sort Screens Automatically''Do Not Sort Screens'"
  44.     IF RC~=0 THEN RETURN
  45.     IF RESULT=1 THEN SetPref "SCREENS ON"
  46.     ELSE             SetPref "SCREENS OFF"
  47.  
  48.   RETURN
  49. END
  50.  
  51. SECURITY: procedure
  52. DO
  53.   MSRequester "TITLE '*** Change Main Settings ***''Secure Operations...'",
  54.                     "'When using Erase or functions which'",
  55.                     "'make permanent changes Secure Operations'",
  56.                     "'will cause a requester to appear.'",
  57.                     "''",
  58.                     "'If you are aware of the possible'",
  59.                     "'consequences, turn Security off'",
  60.                     "'if you do not require requesters.'",
  61.               "PTEXT 'Security Status ON''Security Status OFF'"
  62.     IF RC~=0 THEN RETURN
  63.     IF RESULT=1 THEN SetPref "SECURITY ON"
  64.     ELSE             SetPref "SECURITY OFF"
  65.  
  66.   RETURN
  67. END
  68.  
  69. SnapWindow: procedure
  70. DO
  71.   MSRequester "TITLE '*** Change Main Settings ***''AutoLocate Window...'",
  72.                     "'If you use an autoscrolling interface'",
  73.                     "'with clariSSA not all screen areas may'",
  74.                     "'be visible at any one time.'",
  75.                     "''",
  76.                     "'If a requester window opens off-screen'",
  77.                     "'this function can be set so that it will'",
  78.                     "'relocate to the visible region.'",
  79.               "PTEXT 'Automatic Relocation ON''Automatic Relocation OFF'"
  80.     IF RC~=0 THEN RETURN
  81.     IF RESULT=1 THEN SetPref "SnapWindow ON"
  82.     ELSE             SetPref "SnapWindow OFF"
  83.  
  84.   RETURN
  85. END
  86.  
  87. USEPLAYPOS: procedure
  88. DO
  89.   MSRequester "TITLE '*** Change Main Settings ***''Locate Anim Position...'",
  90.                     "'If a specific frame needs to be'",
  91.                     "'located it can come from a Play'",
  92.                     "'operation. When Play is ended the'",
  93.                     "'current position will be used as'",
  94.                     "'the edit position. Be warned that'",
  95.                     "'this can lead to accidental position'",
  96.                     "'changes with certain edit operations.'",
  97.                "PTEXT 'Use Play Position''Change Only with Slider'"
  98.     IF RC~=0 THEN RETURN
  99.     IF RESULT=1 THEN SetPref "USEPLAYPOS ON"
  100.     ELSE             SetPref "USEPLAYPOS OFF"
  101.  
  102.   RETURN
  103. END
  104.  
  105. COLREQOS: procedure
  106. DO
  107.   MSRequester "TITLE '*** Change Main Settings ***''Colour Selector...'",
  108.                     "'Some macros allow colour ranges to be'",
  109.                     "'chosen when processing effects. This'",
  110.                     "'requires a colour requester.'",
  111.                     "'As clariSSA is economical with memory'",
  112.                     "'only a few colours are available at once.'",
  113.                     "'This display can be bypassed when selecting'",
  114.                     "'from many colours but requires more memory'",
  115.                     "'and can duplicate screens unecessarily.'",
  116.               "PTEXT 'Use New Screen''Use clariSSA Screen'"
  117.     IF RC~=0 THEN RETURN
  118.     IF RESULT=1 THEN SetPref "COLREQOS ON"
  119.     ELSE             SetPref "COLREQOS OFF"
  120.  
  121.   RETURN
  122. END
  123.