home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / KeyboardShortcuts.csc < prev    next >
Encoding:
Text File  |  1998-07-08  |  10.3 KB  |  286 lines
  1. REM Prints a list of all accelerator keys [CorelSCRIPT 8]
  2. REM KeyboardShortcuts.csc  March, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM *****************************************************************************
  6. REM This script outputs a listing of all Ventura's accelerator keys in a 
  7. REM formatted Ventura publication.
  8. REM The list is written to a temporary file, then imported into Ventura.
  9. REM The user can cancel the operation at any time - the script will complete
  10. REM the listing in progress, then display the partial listing with a message 
  11. REM indicating the script was terminated at the user's request.
  12. REM *****************************************************************************
  13.  
  14. ' Create a temporary folder to provide a path for the include files
  15. '  -this enables the include files to be located 
  16. #addfol "..\..\Scripts"        
  17. #include "ScpConst.csi"        
  18. #include "VPConst.csi"        
  19.  
  20. ' Embed bitmaps if script is to be compiled into exe or csb formats
  21. ' -this will eliminate the need to include these files
  22. #ADDRESBMP IntroBMP "Bitmaps\IntroBMP.bmp"
  23. #ADDRESBMP LastBMP "Bitmaps\LastBMP.bmp"
  24. #ADDRESBMP FullPageBMP "Bitmaps\FullPage.bmp"
  25.  
  26. 'Constants for Dialog Return Values
  27. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  28. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  29. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  30. GLOBAL CONST DIALOG_RETURN_BROWSE% = 5
  31.  
  32. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////
  33. DECLARE SUB RegQuery()
  34. DECLARE SUB ShowIntro()
  35. DECLARE SUB ShowProgress()
  36. DECLARE SUB ListingSub(BYVAL MenuIndexValue&)
  37. DECLARE SUB ProgressDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  38. DECLARE SUB Initialize()
  39.  
  40. '/////GLOBAL VARIABLES //////////////////////////////////////////////////////////
  41. GLOBAL VenturaRoot$                'root directory where Ventura is installed
  42. GLOBAL MenuCount&                'number of menus for which to obtain accelerator keys
  43. GLOBAL MenuIndex&                'index referencing the menu being queried
  44. GLOBAL MenuString$                'expression displayed in progess dialog indicating the name of the menu being queried
  45. GLOBAL MenuName$                'name of the menu in question
  46. GLOBAL ShowFinish AS BOOLEAN        'flag used to open/close progress indicator
  47. GLOBAL TempFile$                'temporary file containing the list of accelerator keys
  48.  
  49.  
  50. ' *******************************************************************************
  51. ' MAIN
  52. ' *******************************************************************************
  53. ON ERROR GOTO ErrorHandler
  54.  
  55. RegQuery                                    'get root directory where Ventura is installed
  56. ShowIntro                                    'display introduction dialog
  57. TempFile$ = GETTEMPFOLDER() & "AccelTmp.txt"        'temporary file containing accelerator information
  58. MenuString$ = "Writing keyboard accelerators...."    'initialize Menu string to first message
  59. ShowProgress                                'display progress dialog
  60. KILL TempFile$                                'remove temporary file
  61.  
  62. STOP
  63.  
  64. ErrorHandler:
  65. KILL TempFile$                                'remove temporary file
  66. SELECT CASE ErrNum
  67.     CASE 302
  68.         RESUME NEXT
  69.     CASE ELSE
  70.         MESSAGE "FATAL ERROR " & STR(ErrNum) & CHR(13) & "Script will now exit"
  71.         STOP
  72.     END SELECT
  73.  
  74.  
  75. ' *******************************************************************************
  76. ' RegQuery
  77. ' This subroutine queries the Registry to determine the root directory where 
  78. ' Ventura is installed.
  79. ' *******************************************************************************
  80. SUB RegQuery
  81. ON ERROR GOTO ErrorHandler
  82.  
  83.     'get Ventura config directory
  84.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  85.     
  86.     'isolate Ventura root directory from Ventura config directory
  87.     first% = 1
  88.     pos% = 1
  89.     DO WHILE first <> 0
  90.         first = INSTR(VentDir$, "\", first )
  91.         IF first <> 0 THEN
  92.             pos = first
  93.             first = first + 1
  94.         END IF
  95.     LOOP
  96.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  97.  
  98. EXIT SUB
  99. ErrorHandler:
  100.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  101.     ErrNum = 800
  102. END SUB
  103.  
  104.  
  105. ' *******************************************************************************
  106. ' ShowIntro
  107. ' This subroutine displays the introduction dialog.
  108. ' 
  109. ' PARAMS: None
  110. ' *******************************************************************************
  111. SUB ShowIntro
  112. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Keyboard Accelerators Wizard", SUB IntroDialogEventHandler
  113.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  114.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  115.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  116.     TEXT  95, 10, 185, 20, .Text2, "This wizard produces a list of all keyboard accelerator keys."
  117.     TEXT  95, 40, 185, 18, .Text3, "To begin listing accelerator keys, click Next."
  118.     IMAGE  10, 10, 75, 130, .IntroImage
  119.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  120. END DIALOG
  121.     IntroDialog.IntroImage.SetImage "#IntroBMP"
  122.     IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  123.  
  124.     IntroRet% = DIALOG(IntroDialog)
  125.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP    
  126. END SUB
  127.  
  128. ' *******************************************************************************
  129. ' IntroDialogEventHandler
  130. ' This subroutine responds to user interface with the introduction dialog.
  131. ' 
  132. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  133. '                            generating a dialog event.
  134. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  135. ' *******************************************************************************
  136. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  137.     IF Event% = EVENT_INITIALIZATION THEN         
  138.         IntroDialog.BackButton.Enable FALSE 
  139.         IF ShowFinish = TRUE THEN IntroDialog.CancelButton.Enable FALSE
  140.     ENDIF
  141.     IF Event% = EVENT_MOUSE_CLICK THEN     
  142.         SELECT CASE ControlID%
  143.             CASE IntroDialog.NextButton.GetID()
  144.                 IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  145.             CASE IntroDialog.CancelButton.GetID()
  146.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  147.         END SELECT
  148.     ENDIF
  149. END FUNCTION
  150.  
  151.  
  152.  
  153. ' *******************************************************************************
  154. ' ShowProgress
  155. ' This function displays a progress bar indicating the progress of the operation.
  156. ' 
  157. ' PARAMS: None
  158. '
  159. ' RETURNS: ShowProgress AS INTEGER - Integer indicating dialog return value.
  160. ' *******************************************************************************
  161. SUB ShowProgress
  162. BEGIN DIALOG OBJECT ProgressDialog 260, 60, "Custom Keyboard Accelerators", SUB ProgressDialogEventHandler
  163.     CANCELBUTTON  203, 42, 46, 16, .CancelButton
  164.     PROGRESS 54, 28, 195, 8, .Progress1
  165.     IMAGE  9, 8, 34, 30, .ProgressImage
  166.     TEXT  57, 12, 190, 12, .ProgressText, MenuString$
  167. END DIALOG
  168.  
  169.     ProgressDialog.SetTimer(1)        
  170.     ProgressDialog.Progress1.SetMinRange(1)
  171.     ProgressDialog.Progress1.SetMaxRange(1200)
  172.     ProgressDialog.Progress1.SetIncrement(1)
  173.     ProgressDialog.Progress1.SetValue(2)
  174.     ProgressDialog.ProgressImage.SetImage "#FullPageBMP"
  175.     ProgressDialog.ProgressText.SetText MenuString$
  176.     ProgressDialog.ProgressText.SetStyle STYLE_SUNKEN 
  177.     MenuIndex& = 1
  178.  
  179.     IntroDialog.IntroImage.SetImage "#LastBMP"
  180.     IntroDialog.NextButton.SetText "Exit" 
  181.  
  182.     ProgressDialogRet% = DIALOG(ProgressDialog)
  183.     IF ProgressDialogRet% = DIALOG_RETURN_CANCEL THEN 
  184.         IntroDialog.Text2.SetText "Wizard has been terminated at the user's request."
  185.         IntroDialog.Text3.SetText "Listing is incomplete."
  186.     ELSE
  187.         IntroDialog.Text2.SetText "Wizard has completed successfully"
  188.         IntroDialog.Text3.SetText "Listing is complete."
  189.     ENDIF
  190.     ShowFinish = TRUE
  191.     WITHOBJECT OBJECT_VENTURA8
  192.         .FileNew
  193.         .FrameFirst TRUE
  194.         .FileImportText TempFile$
  195.     END WITHOBJECT
  196.  
  197.     IntroRet% = DIALOG(IntroDialog)
  198.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP
  199. END FUNCTION
  200.  
  201.  
  202. ' *******************************************************************************
  203. ' ProgressDialogEventHandler
  204. ' This subroutine responds to user interface with the progress dialog.
  205. ' 
  206. ' PARAMS:  ControlID% - identifies which dialog control to respond to.
  207. '          Event% - identifies which event to respond to (ie. mouse click, etc.).
  208. ' *******************************************************************************
  209. SUB ProgressDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  210.     IF Event% = EVENT_INITIALIZATION THEN 
  211.         Initialize
  212.     ENDIF
  213.     
  214.     IF Event% = EVENT_MOUSE_CLICK THEN
  215.          IF ControlID% = ProgressDialog.CancelButton.GetID() THEN ProgressDialog.CloseDialog(DIALOG_RETURN_CANCEL)
  216.     ENDIF
  217.  
  218.     IF Event = EVENT_TIMER_EVENT THEN    
  219.          ListingSub MenuIndex
  220.     ENDIF
  221. END SUB
  222.  
  223.  
  224. ' *******************************************************************************
  225. ' Initialize
  226. ' This subroutine creates a new publication and sets paragraph tags.
  227. ' 
  228. ' PARAMS:  None
  229. ' *******************************************************************************
  230. SUB Initialize
  231. ON ERROR GOTO ErrorHandler
  232.     BEGINWAITCURSOR
  233.     WITHOBJECT OBJECT_VENTURA8
  234.     ENDWAITCURSOR
  235.         .SetVisible TRUE
  236.         MenuCount& = .CustomGetMenuCount()
  237.     END WITHOBJECT    
  238. EXIT SUB
  239. ErrorHandler:
  240.     MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Could not format paragraph tags."
  241.     ErrNum = 800
  242. END SUB
  243.  
  244.  
  245. ' *******************************************************************************
  246. ' ListingSub
  247. ' This subroutine lists the accelerator keys for each menu.
  248. ' 
  249. ' PARAMS: MenuIndexValue&  - The index identifying the menu for which to print 
  250. '                            accelerator keys.
  251. ' *******************************************************************************
  252. SUB ListingSub(BYVAL MenuIndexValue&)
  253.     IF MenuIndex& > MenuCount& THEN 
  254.         ProgressDialog.CloseDialog(1)
  255.     ELSE
  256.         OPEN TempFile$ FOR APPEND AS 1
  257.         WITHOBJECT OBJECT_VENTURA8
  258.  
  259.             'list menu title - formatting with Minor Heading tag
  260.             .CustomGetMenuAt MenuIndex&, MenuName$, CmdCount&
  261.             MenuString$ = "Accelerators for " & MenuName$ &  " Menu" 
  262.             ProgressDialog.ProgressText.SetText MenuString$
  263.             PRINT #1, "@Minor Heading = " & MenuString$
  264.             
  265.             'list each menu item and its accelerator key - formatting with Bullet tag
  266.             CmdIndex& = 1
  267.             DO WHILE CmdIndex& <= CmdCount&
  268.                 .CustomGetCommandAt MenuIndex&, CmdIndex&, CmdName$, Accel$
  269.                 IF CmdName$ = "" THEN 
  270.                     CmdString$ = "----------------" & CHR(13) & CHR(10)
  271.                 ELSE
  272.                     CmdString$ = CmdName$ & CHR(9) & " ["  & Accel$ & "]" & CHR(13) & CHR(10)
  273.                 ENDIF
  274.                 PRINT #1,
  275.                 PRINT #1, "@Bullet = " &  CmdString$
  276.                 CmdIndex& = CmdIndex& + 1
  277.                 ProgressDialog.Progress1.step
  278.             LOOP
  279.             MenuIndex& = MenuIndex& + 1
  280.             PRINT #1,
  281.         END WITHOBJECT
  282.         CLOSE(1)
  283.     ENDIF
  284. END SUB
  285.  
  286.