home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / CreateLibrary.csc < prev    next >
Text File  |  1998-07-08  |  54KB  |  1,194 lines
  1. REM Creates Corel VENTURA libraries [CorelSCRIPT 8]
  2. REM CreateLibrary.csc  February 5, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **************************************************************************************
  6. REM This script creates a new (or updates an existing) VENTURA library with user specified
  7. REM files. The user is prompted to select the type of files to add to the library (Picture,
  8. REM Text, or Style Sheet). The user is prompted for a source directory containing the files
  9. REM to add to the library and the type of file (ie file extension) to use. 
  10. REM A list of all available files within the source directory and sub-directories is 
  11. REM provided for the user. The user is prompted to select those files to add to the library.
  12. REM The user is then prompted for the name and location of the library to be created or 
  13. REM appended. If the library exists the user is warned and prompted to continue or not.
  14. REM The selected files are placed in the specified library.
  15. REM **************************************************************************************
  16.  
  17. ' Create a temporary folder to provide a path for the include files
  18. '  -this enables the include files to be located 
  19. #addfol "..\..\Scripts"
  20. #include "ScpConst.csi"
  21. #include "VPConst.csi"
  22.  
  23. ' Embed bitmaps if script is to be compiled into exe or csb formats
  24. ' -this will eliminate the need to include these files
  25. #ADDRESBMP IntroBMP "Bitmaps\IntroBMP.bmp"
  26. #ADDRESBMP Step2BMP "Bitmaps\Step2BMP.bmp"
  27. #ADDRESBMP Step3BMP "Bitmaps\Step3BMP.bmp"
  28. #ADDRESBMP LastBMP "Bitmaps\LastBMP.bmp"
  29.  
  30. 'Constants for Dialog Return Values
  31. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  32. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  33. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  34. GLOBAL CONST DIALOG_RETURN_BROWSE% = 5
  35.  
  36. 'Constants for file types
  37. GLOBAL CONST PICTURE_FILES% = 0    'identifies file type as picture files
  38. GLOBAL CONST TEXT_FILES% = 1        'identifies file type as text files
  39. GLOBAL CONST STYLE_SHEETS% = 2    'identifes file type as style sheets
  40.  
  41. 'Constants for file arrays
  42. GLOBAL CONST MAX_FILES% = 10        'number of files in file list (redimensioned as required)
  43. GLOBAL CONST MAX_FILE_EXT% = 48    'number of file extensions in lists
  44.  
  45. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////
  46. DECLARE SUB RegQuery()
  47. DECLARE SUB GetFileList(BYVAL SourceDir$, FileExt$)
  48. DECLARE SUB MakeLIB() 
  49. DECLARE FUNCTION ShowIntro%()
  50. DECLARE FUNCTION GetFileType%()
  51. DECLARE FUNCTION GetSourceDir%()
  52. DECLARE FUNCTION ShowFileList%()
  53. DECLARE FUNCTION GetLIBName%()
  54. DECLARE FUNCTION ShowFinish%()
  55. DECLARE FUNCTION ShowSummary%()
  56. DECLARE FUNCTION DoesFileExist(FileName$) AS BOOLEAN
  57.  
  58.  
  59. '/////GLOBAL VARIABLES //////////////////////////////////////////////////////////
  60. GLOBAL VenturaRoot$                'root directory where Ventura is installed
  61. GLOBAL SourceDir$                'directory at which to start the search for files
  62. GLOBAL FileExtVal%                'index referencing lists of file extension values
  63. GLOBAL FileType&                'type of files to use: 0-Picture files; 1-Text files; 2-Style Sheets
  64. GLOBAL FileExt$                'file extension used by GetFileList sub
  65.  
  66. GLOBAL AvailableFiles$(MAX_FILES)    'list of files available for selection 
  67. GLOBAL AvailableDirs$(MAX_FILES)    'list of directories corresponding to available files    
  68. GLOBAL AvailableFilesCount%        'number of files available for selection
  69.  
  70. GLOBAL SelectedFiles$(MAX_FILES)    'list of file names selected for addition to the library
  71. GLOBAL SelectedDirs$(MAX_FILES)    'list of directories corresponding to selected files
  72. GLOBAL SelectedFilesCount%        'number of files selected
  73.  
  74. GLOBAL LibraryDir$                'name of directory containing the library
  75. GLOBAL NewLIBName$                 'complete name (including path) of new library
  76. GLOBAL LIBName$                'name of library to create or append
  77. GLOBAL LibraryExists AS BOOLEAN    'flag indicating whether library exists: TRUE-it exist; FALSE-it doesn't exist
  78.  
  79.  
  80. 'list of graphic file extensions
  81. GLOBAL PicFileExtension$(MAX_FILE_EXT)
  82. PicFileExtension$(1) = "*.*" 
  83. PicFileExtension$(2) = "*.JPG" 
  84. PicFileExtension$(3) = "*.BMP"
  85. PicFileExtension$(4) = "*.BMP"
  86. PicFileExtension$(5) = "*.PCX"
  87. PicFileExtension$(6) = "*.TGA"
  88. PicFileExtension$(7) = "*.SCT"
  89. PicFileExtension$(8) = "*.CPT"
  90. PicFileExtension$(9) = "*.TIF"
  91. PicFileExtension$(10) = "*.CPT"
  92. PicFileExtension$(11) = "*.ICO"
  93. PicFileExtension$(12) = "*.CUR"
  94. PicFileExtension$(13) = "*.EXE"
  95. PicFileExtension$(14) = "*.IMG"
  96. PicFileExtension$(15) = "*.PCD"
  97. PicFileExtension$(16) = "*.PP4"
  98. PicFileExtension$(17) = "*.PSD"
  99. PicFileExtension$(18) = "*.EPS"
  100. PicFileExtension$(19) = "*.MAC"
  101. PicFileExtension$(20) = "*.WVL"
  102. PicFileExtension$(21) = "*.CAL"
  103. PicFileExtension$(22) = "*.CAL"
  104. PicFileExtension$(23) = "*.GEM"
  105. PicFileExtension$(24) = "*.CMX"
  106. PicFileExtension$(25) = "*.CMX"
  107. PicFileExtension$(26) = "*.CGM"
  108. PicFileExtension$(27) = "*.DRW"
  109. PicFileExtension$(28) = "*.DXF"
  110. PicFileExtension$(29) = "*.PLT"
  111. PicFileExtension$(30) = "*.MET"
  112. PicFileExtension$(31) = "*.PCT"
  113. PicFileExtension$(32) = "*.AI"
  114. PicFileExtension$(33) = "*.WPG"
  115. PicFileExtension$(34) = "*.CMF"
  116. PicFileExtension$(35) = "*.WMF"
  117. PicFileExtension$(36) = "*.EMF"
  118. PicFileExtension$(37) = "*.PIC"
  119. PicFileExtension$(38) = "*.CCH"
  120. PicFileExtension$(39) = "*.CDR"
  121. PicFileExtension$(40) = "*.CMV"
  122. PicFileExtension$(41) = "*.MLB"
  123.  
  124.  
  125. 'list of text file extensions
  126. GLOBAL TextFileExtension$(MAX_FILE_EXT)
  127. TextFileExtension$(1) = "*.*"
  128. TextFileExtension$(2) = "*.GEN"
  129. TextFileExtension$(3) = "*.TXT"
  130. TextFileExtension$(4) = "*.TXT"
  131. TextFileExtension$(5) = "*.TXT"
  132. TextFileExtension$(6) = "*.PRN"
  133. TextFileExtension$(7) = "*.WP*"
  134. TextFileExtension$(8) = "*.WP*"
  135. TextFileExtension$(9) = "*.WP*"
  136. TextFileExtension$(10) = "*.WP*"
  137. TextFileExtension$(11) = "*.WP*"
  138. TextFileExtension$(12) = "*.WPM"
  139. TextFileExtension$(13) = "*.WPM"
  140. TextFileExtension$(14) = "*.WPM"
  141. TextFileExtension$(15) = "*.PM6"
  142. TextFileExtension$(16) = "*.MIF"
  143. TextFileExtension$(17) = "*.MIF"
  144. TextFileExtension$(18) = "*.MIF"
  145. TextFileExtension$(19) = "*.DOC"
  146. TextFileExtension$(20) = "*.DOC"
  147. TextFileExtension$(21) = "*.DOC"
  148. TextFileExtension$(22) = "*.DOC"
  149. TextFileExtension$(23) = "*.DOC"
  150. TextFileExtension$(24) = "*.DOC"
  151. TextFileExtension$(25) = "*.DOC"
  152. TextFileExtension$(26) = "*.DOC"
  153. TextFileExtension$(27) = "*.DOC"
  154. TextFileExtension$(28) = "*.RTF"
  155. TextFileExtension$(29) = "*.WS*"
  156. TextFileExtension$(30) = "*.WS*"
  157. TextFileExtension$(31) = "*.WS*"
  158. TextFileExtension$(32) = "*.WS*"
  159. TextFileExtension$(33) = "*.WS*"
  160. TextFileExtension$(34) = "*.WS*"
  161. TextFileExtension$(35) = "*.WS*"
  162. TextFileExtension$(36) = "*.WS*"
  163. TextFileExtension$(37) = "*.WS*"
  164. TextFileExtension$(38) = "*.LEG"
  165. TextFileExtension$(39) = "*.XY*"
  166. TextFileExtension$(40) = "*.XY*"
  167. TextFileExtension$(41) = "*.XY*"
  168. TextFileExtension$(42) = "*.SAM"
  169. TextFileExtension$(43) = "*.SAM"
  170. TextFileExtension$(44) = "*.XLS"
  171. TextFileExtension$(45) = "*.XLS"
  172. TextFileExtension$(46) = "*.WK"
  173. TextFileExtension$(47) = "*.WQ"
  174. TextFileExtension$(48) = "*.WB"
  175.  
  176.  
  177. '/////LOCAL DECLARATIONS//////////////////////////////////////////////////////////////////
  178. CONST MAXSTEP% = 7        'maximum number of pages in the Wizard
  179. DIM DialogReturn%        'identifies user's selection for next step in Wizard
  180. DIM NextStep%            'specifies which page appears next in the Wizard
  181.  
  182.  
  183. ' **************************************************************************************
  184. ' MAIN
  185. ' **************************************************************************************
  186. ON ERROR GOTO ErrorHandler
  187.  
  188. RegQuery                                        'get root directory where Ventura is installed
  189. SourceDir$= VenturaRoot$                            'initialize source directory to Ventura root
  190. LibraryDir$ = VenturaRoot$ & "\Ventura\Library"        'initialize library directory to Ventura\Library directory
  191. FileExtVal% = 1                                'initialize file extensions to first element in list (ie. all files *.* )
  192.  
  193. 'this section controls traversal through the Wizard pages
  194. NextStep% = 1
  195. DO
  196.     SELECT CASE NextStep%
  197.         CASE 1: DialogReturn%  = ShowIntro()        'display introduction dialog
  198.         CASE 2: DialogReturn%  = GetFileType()        'display file type dialog and get file type (ie Picture, Text, Style Sheet)
  199.         CASE 3: DialogReturn%  = GetSourceDir()        'display source directory dialog and prompt user for source dir
  200.         CASE 4: DialogReturn%  = ShowFileList()        'display list of avaialable files for user selection
  201.         CASE 5: DialogReturn%  = GetLIBName()        'display lib name dialog and get name of library to be used
  202.         CASE 6: DialogReturn%  = ShowFinish()        'display finish dialog 
  203.         CASE 7: DialogReturn%  = ShowSummary()        'display summary dialog recapping results of library creation
  204.     END SELECT
  205.     NextStep% = NextStep% + DialogReturn% 
  206. LOOP UNTIL NextStep% = MAXSTEP + 1
  207.  
  208. ExitScript:
  209. STOP
  210.  
  211. ErrorHandler:
  212. SELECT CASE ErrNum
  213.     CASE 800
  214.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  215.         RESUME AT ExitScript
  216.     CASE ELSE
  217.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  218.         RESUME AT ExitScript
  219.     END SELECT
  220.  
  221.  
  222. ' *******************************************************************************
  223. ' RegQuery
  224. ' This subroutine queries the Registry to determine the root directory where 
  225. ' Ventura is installed.
  226. ' *******************************************************************************
  227. SUB RegQuery
  228. ON ERROR GOTO ErrorHandler
  229.  
  230.     'get Ventura config directory
  231.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  232.     
  233.     'isolate Ventura root directory from Ventura config directory
  234.     first% = 1
  235.     pos% = 1
  236.     DO WHILE first <> 0
  237.         first = INSTR(VentDir$, "\", first )
  238.         IF first <> 0 THEN
  239.             pos = first
  240.             first = first + 1
  241.         END IF
  242.     LOOP
  243.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  244.  
  245. EXIT SUB
  246. ErrorHandler:
  247.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  248.     ErrNum = 800
  249. END SUB
  250.  
  251.  
  252. ' *******************************************************************************
  253. ' ShowIntro
  254. ' This function displays the introduction dialog.
  255. ' 
  256. ' PARAMS: None
  257. '
  258. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value.
  259. ' *******************************************************************************
  260. FUNCTION ShowIntro%
  261. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Corel VENTURA Library Wizard", SUB IntroDialogEventHandler
  262.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  263.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  264.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  265.     TEXT  95, 10, 189, 30, .Text2, "This Wizard guides you through the steps necessary to automate Corel VENTURA to create large libraries from existing files."
  266.     TEXT  95, 100, 185, 12, .Text3, "To begin creating your new library, click Next."
  267.     IMAGE  10, 10, 75, 130, .IntroImage
  268.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  269.     TEXT  95, 40, 185, 18, .Text4, "You can use picture files, text files, or previous version style sheets."
  270.     TEXT  95, 63, 185, 29, .Text5, "You cannot add Corel VENTURA style sheets to a Library with this Wizard, but you can add them to a Library yourself by dragging them from the Navigator."
  271. END DIALOG
  272.  
  273.     IntroDialog.SetStyle STYLE_INVISIBLE
  274.     IntroDialog.IntroImage.SetImage "#IntroBMP"
  275.     IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  276.  
  277.     IntroRet%=DIALOG(IntroDialog)
  278.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP            
  279.     IF IntroRet% = DIALOG_RETURN_NEXT THEN ShowIntro = 1        
  280. END FUNCTION
  281.  
  282. ' *******************************************************************************
  283. ' IntroDialogEventHandler
  284. ' This subroutine responds to user interface with the introduction dialog.
  285. ' 
  286. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  287. '                            generating a dialog event.
  288. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  289. ' *******************************************************************************
  290. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  291.     IF Event% = EVENT_INITIALIZATION THEN         
  292.         IntroDialog.BackButton.Enable FALSE 
  293.         IntroDialog.SetStyle STYLE_VISIBLE
  294.     ENDIF
  295.     IF Event% = EVENT_MOUSE_CLICK THEN     
  296.         SELECT CASE ControlID%
  297.             CASE IntroDialog.NextButton.GetID()
  298.                 IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  299.             CASE IntroDialog.CancelButton.GetID()
  300.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  301.         END SELECT
  302.     ENDIF
  303. END SUB
  304.  
  305.  
  306. ' *******************************************************************************
  307. ' GetFileType
  308. ' This function prompts the user for the type of file to use (Picture, Text,
  309. ' or Style sheet).
  310. ' 
  311. ' PARAMS: None
  312. '
  313. ' RETURNS: GetFileType AS INTEGER - Integer indicating dialog return value.
  314. ' *******************************************************************************
  315. FUNCTION GetFileType%
  316. BEGIN DIALOG OBJECT GetFileTypeDialog 290, 180, "Corel VENTURA Library Wizard", SUB GetFileTypeDialogEventHandler
  317.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  318.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  319.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  320.     IMAGE  10, 10, 75, 130, .GetFileTypeImage
  321.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  322.     OPTIONGROUP .FileTypeOptionGroup
  323.         OPTIONBUTTON  110, 35, 150, 12, .PictureFilesOption, "&Picture files"
  324.         OPTIONBUTTON  110, 55, 150, 12, .TextFilesOption, "&Text files"
  325.         OPTIONBUTTON  110, 75, 150, 12, .StyleSheetOption, "&Style sheets"
  326.     TEXT  95, 10, 185, 12, .Text4, "Select the type of file you wish to use."
  327.     TEXT  95, 128, 185, 12, .StatusText, ""
  328. END DIALOG
  329.  
  330.     GetFileTypeDialog.SetStyle STYLE_INVISIBLE
  331.     GetFileTypeDialog.GetFileTypeImage.SetImage "#Step2BMP"
  332.     GetFileTypeDialog.GetFileTypeImage.SetStyle STYLE_IMAGE_CENTERED
  333.     GetFileTypeDialog.StatusText.SetStyle STYLE_SUNKEN
  334.  
  335.     GetFileTypeRet%=DIALOG(GetFileTypeDialog)
  336.     SELECT CASE GetFileTypeRet%
  337.         CASE DIALOG_RETURN_CANCEL        
  338.             STOP
  339.         CASE DIALOG_RETURN_NEXT        
  340.             FileType& = GetFileTypeDialog.FileTypeOptionGroup.GetValue()
  341.             GetFileType = 1
  342.         CASE DIALOG_RETURN_BACK         
  343.             GetFileType = -1
  344.     END SELECT
  345. END FUNCTION
  346.  
  347.  
  348. ' *******************************************************************************
  349. ' GetFileTypeDialogEventHandler
  350. ' This subroutine responds to user interface with the file type dialog.
  351. ' 
  352. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  353. '                            generating a dialog event.
  354. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  355. ' *******************************************************************************
  356. SUB GetFileTypeDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  357.     IF Event% = EVENT_INITIALIZATION THEN         
  358.         FileType& = GetFileTypeDialog.FileTypeOptionGroup.GetValue()
  359.         SELECT CASE FileType&
  360.             CASE PICTURE_FILES
  361.                 GetFileTypeDialog.StatusText.SetText "Picture files in any format supported by Corel VENTURA 8"
  362.             CASE TEXT_FILES
  363.                 GetFileTypeDialog.StatusText.SetText "Text files in any format supported by Corel VENTURA 8"
  364.             CASE STYLE_SHEETS
  365.                 GetFileTypeDialog.StatusText.SetText "VENTURA previous version style sheets(3.x, 4.x, 5.x)"
  366.         END SELECT
  367.         GetFileTypeDialog.SetStyle STYLE_VISIBLE
  368.     ENDIF
  369.  
  370.     IF Event% = EVENT_MOUSE_CLICK THEN     
  371.         SELECT CASE ControlID%
  372.             CASE GetFileTypeDialog.NextButton.GetID()
  373.                 GetFileTypeDialog.CloseDialog DIALOG_RETURN_NEXT
  374.             CASE GetFileTypeDialog.BackButton.GetID()
  375.                 GetFileTypeDialog.CloseDialog DIALOG_RETURN_BACK
  376.             CASE GetFileTypeDialog.CancelButton.GetID()
  377.                 GetFileTypeDialog.CloseDialog DIALOG_RETURN_CANCEL
  378.             CASE GetFileTypeDialog.PictureFilesOption.GetID()
  379.                 GetFileTypeDialog.StatusText.SetText "Picture files in any format supported by Corel VENTURA 8"
  380.             CASE GetFileTypeDialog.TextFilesOption.GetID()
  381.                 GetFileTypeDialog.StatusText.SetText "Text files in any format supported by Corel VENTURA 8"
  382.             CASE GetFileTypeDialog.StyleSheetOption.GetID()
  383.                 GetFileTypeDialog.StatusText.SetText "VENTURA previous version style sheets (3.x, 4.x, 5.x)"
  384.         END SELECT
  385.     ENDIF
  386. END SUB
  387.  
  388.  
  389. ' *******************************************************************************
  390. ' GetSourceDir
  391. ' This function prompts the user for the directory at which to begin the search 
  392. ' for files, as well as the type of file (ie. file extension) to use.
  393. '
  394. ' PARAMS:  None
  395. ' RETURNS: GetSourceDir AS INTEGER - Integer indicating dialog return value.
  396. '
  397. ' COMMENTS: A valid souce directory is required to continue to next dialog.
  398. ' *******************************************************************************
  399. FUNCTION GetSourceDir
  400. 'list of picture file types used by drop-down list box
  401. GLOBAL PictureFile$(MAX_FILE_EXT)
  402. PictureFile$(1) = "All Files" 
  403. PictureFile$(2) = "JPEG Bitmaps (JPG)" 
  404. PictureFile$(3) = "Windows Bitmap (BMP)"
  405. PictureFile$(4) = "OS/2 Bitmap (BMP)"
  406. PictureFile$(5) = "PaintBrush (PCX)"
  407. PictureFile$(6) = "Targa Bitmap (TGA)"
  408. PictureFile$(7) = "Scitex CT Bitmap (SCT)"
  409. PictureFile$(8) = "CompuServe Bitmap (CPT)"
  410. PictureFile$(9) = "TIFF Bitmap (TIF)"
  411. PictureFile$(10) = "Corel PHOTO-PAINT Image (CPT)"
  412. PictureFile$(11) = "Windows 3.x/NT Icon Resource (ICO)"
  413. PictureFile$(12) = "Windows 3.x/NT Cursor Resource (CUR)"
  414. PictureFile$(13) = "Windows 3.x/NT Bitmap Resource (EXE)"
  415. PictureFile$(14) = "GEM Paint File (IMG)"
  416. PictureFile$(15) = "Kodak Photo-CD Image (PCD)"
  417. PictureFile$(16) = "Picture Publisher 4 (PP4)"
  418. PictureFile$(17) = "Adobe Photoshop (PSD)"
  419. PictureFile$(18) = "Encapsulated PostScript (EPS)"
  420. PictureFile$(19) = "MACPaint Bitmap (MAC)"
  421. PictureFile$(20) = "Wavelet Compressed Bitmap (WVL)"
  422. PictureFile$(21) = "CALS Compressed Bitmap (CAL)"
  423. PictureFile$(22) = "Postscript Interpreted (CAL)"
  424. PictureFile$(23) = "GEM File (GEM)"
  425. PictureFile$(24) = "Corel Presentation Exchange 6.0 (CMX)"
  426. PictureFile$(25) = "Corel Presentation Exchange 5.0 (CMX)"
  427. PictureFile$(26) = "Computer Graphics Metafile (CGM)"
  428. PictureFile$(27) = "Micrografx 2.x, 3.x (DRW)"
  429. PictureFile$(28) = "AutoCAD (DXF)"
  430. PictureFile$(29) = "HPGL Plotter File (PLT)"
  431. PictureFile$(30) = "OS/2 PM MetaFile (MET)"
  432. PictureFile$(31) = "Macintosh PICT (PCT)"
  433. PictureFile$(32) = "Adobe Illustrator (AI)"
  434. PictureFile$(33) = "Corel WordPerfect Graphic (WPG)"
  435. PictureFile$(34) = "Corel Metafile (CMF)"
  436. PictureFile$(35) = "Windows Metafile (WMF)"
  437. PictureFile$(36) = "Enhanced Windows Metafile (EMF)"
  438. PictureFile$(37) = "Lotus Pic (PIC)"
  439. PictureFile$(38) = "CorelCHART (CCH)"
  440. PictureFile$(39) = "CorelDRAW (CDR)"
  441. PictureFile$(40) = "CorelMOVE (CMV)"
  442. PictureFile$(41) = "CorelMOVE (MLB)"
  443.  
  444. 'list of text file types used by drop-down list box
  445. GLOBAL TextFile$(MAX_FILE_EXT)
  446. TextFile$(1) = "All Files"
  447. TextFile$(2) = "VENTURA Generated File (GEN)"
  448. TextFile$(3) = "ANSI Text (TXT)"
  449. TextFile$(4) = "ASCII Text (TXT)"
  450. TextFile$(5) = "ASCII 8-bit Text (TXT)"
  451. TextFile$(6) = "Lotus/Excel Print Table (PRN)"
  452. TextFile$(7) = "Corel WordPerfect 7.0 (WP*)"
  453. TextFile$(8) = "Corel WordPerfect 6.x, 7.0 (WP*)"
  454. TextFile$(9) = "Corel WordPerfect 5.1, 5.2 (WP*)"
  455. TextFile$(10) = "Corel WordPerfect 5.0 (WP*)"
  456. TextFile$(11) = "Corel WordPerfect 4.2 (WP*)"
  457. TextFile$(12) = "Corel WordPerfect 3.x for Macintosh (WPM)"
  458. TextFile$(13) = "Corel WordPerfect 2.x for Macintosh (WPM)"
  459. TextFile$(14) = "Corel WordPerfect 3.x for Macintosh (WPM)"
  460. TextFile$(15) = "PageMaker 6.0 (Text Only) (PM6)"
  461. TextFile$(16) = "FrameMaker 3.0 (MIF)"
  462. TextFile$(17) = "FrameMaker 4.0 (MIF)"
  463. TextFile$(18) = "FrameMaker 5.0 (MIF)"
  464. TextFile$(19) = "MS Word for Windows 6.0, 7.0 (DOC)"
  465. TextFile$(20) = "MS Word for Windows 1.x (DOC)"
  466. TextFile$(21) = "MS Word for Windows 2.x (DOC)"
  467. TextFile$(22) = "MS Word 3.x (DOC)"
  468. TextFile$(23) = "MS Word 4.x (DOC)"
  469. TextFile$(24) = "MS Word 5.0, 5.5 (DOC)"
  470. TextFile$(25) = "MS Word for Mactinosh 3.0 (DOC)"
  471. TextFile$(26) = "MS Word for Mactinosh 4.0 (DOC)"
  472. TextFile$(27) = "MS Word for Mactinosh 5.0 (DOC)"
  473. TextFile$(28) = "Rich Text Format (RTF)"
  474. TextFile$(29) = "WordStar for Windows 1.x (WS*)"
  475. TextFile$(30) = "WordStar for Windows 2.0 (WS*)"
  476. TextFile$(31) = "WordStar 7.0 (WS*)"
  477. TextFile$(32) = "WordStar 6.0 (WS*)"
  478. TextFile$(33) = "WordStar 5.0, 5.5 (WS*)"
  479. TextFile$(34) = "WordStar 4.0 (WS*)"
  480. TextFile$(35) = "WordStar 3.45 (WS*)"
  481. TextFile$(36) = "WordStar 3.3, 3.31 (WS*)"
  482. TextFile$(37) = "WordStar 2000 (WS*)"
  483. TextFile$(38) = "Legacy 1.0, 2.0 (LEG)"
  484. TextFile$(39) = "XYWrite III (XY*)"
  485. TextFile$(40) = "XYWrite III Plus (XY*)"
  486. TextFile$(41) = "XYWrite IV,XYWrite for Windows 1.0 (XY*)"
  487. TextFile$(42) = "AmiProfessional 1.1, 1.2 (SAM)"
  488. TextFile$(43) = "AmiProfessional 2.0, 3.0 (SAM)"
  489. TextFile$(44) = "Microsoft Excel 1.0, 3.0, 4.0 (XLS)"
  490. TextFile$(45) = "Microsoft Excel 5.0 (XLS)"
  491. TextFile$(46) = "LOTUS 1-2-3 (WK)"
  492. TextFile$(47) = "Corel Quattro Pro (WQ)"
  493. TextFile$(48) = "Corel Quattro Pro (WB)"
  494.  
  495. 'list of style sheet types used by drop-down list box
  496. ' -this needs to be an array in order to accomodate the list box control
  497. GLOBAL StyleSheet$(1)
  498. StyleSheet$(1) = "VENTURA Style Sheet (*.STY)"
  499.  
  500. BEGIN DIALOG OBJECT SourceDialog 290, 180, "Corel VENTURA Library Wizard", SUB SourceDialogEventHandler
  501.     TEXTBOX  100, 47, 175, 13, .SourceDirectory
  502.     PUSHBUTTON  229, 66, 46, 14, .BrowseButton, "B&rowse..."
  503.     DDLISTBOX  130, 98, 150, 48, .FileExListBox
  504.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  505.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  506.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  507.     TEXT  95, 10, 185, 20, .Text1, "Enter the location and the extension of the files you wish to use."
  508.     TEXT  94, 100, 35, 10, .Text2, "Extension:"
  509.     IMAGE  10, 10, 75, 130, .SourceImage
  510.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  511.     GROUPBOX  95, 34, 185, 52, .GroupBox3, "Location of files:"
  512. END DIALOG
  513.  
  514.     SourceDialog.SetStyle STYLE_INVISIBLE
  515.     SourceDialog.SourceImage.SetImage "#Step3BMP"
  516.     SourceDialog.SourceImage.SetStyle STYLE_IMAGE_CENTERED
  517.     SourceRet%=DIALOG(SourceDialog)
  518.     SELECT CASE SourceRet%
  519.         CASE DIALOG_RETURN_CANCEL    
  520.             STOP
  521.         CASE DIALOG_RETURN_NEXT        
  522.             SELECT CASE FileType&
  523.                 CASE PICTURE_FILES
  524.                     FileExt$ = PicFileExtension$(FileExtVal%)
  525.                 CASE TEXT_FILES
  526.                     FileExt$ = TextFileExtension$(FileExtVal%)
  527.                 CASE STYLE_SHEETS
  528.                     FileExt$ = "*.STY"
  529.             END SELECT
  530.             GetSourceDir = 1
  531.         CASE DIALOG_RETURN_BACK         
  532.             GetSourceDir = -1
  533.     END SELECT
  534.  
  535. END FUNCTION
  536.  
  537.  
  538. ' *******************************************************************************
  539. ' SourceDialogEventHandler
  540. ' This subroutine responds to user interface with the source directory dialog.
  541. ' 
  542. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  543. '                            generating a dialog event.
  544. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  545. ' *******************************************************************************
  546. SUB SourceDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  547.     IF Event% = EVENT_INITIALIZATION THEN         
  548.         SourceDialog.SetStyle STYLE_VISIBLE
  549.         SourceDialog.SourceDirectory.SetText SourceDir$
  550.         SELECT CASE FileType&
  551.             CASE PICTURE_FILES
  552.                 SourceDialog.FileExListBox.SetArray PictureFile$
  553.                 SourceDialog.FileExListBox.SetSelect FileExtVal%
  554.             CASE TEXT_FILES
  555.                 SourceDialog.FileExListBox.SetArray TextFile$
  556.                 SourceDialog.FileExListBox.SetSelect FileExtVal%
  557.             CASE STYLE_SHEETS
  558.                 SourceDialog.FileExListBox.SetArray StyleSheet$
  559.                 SourceDialog.FileExListBox.SetSelect 1
  560.         END SELECT
  561.     ENDIF
  562.  
  563.     IF Event% = EVENT_CHANGE_IN_CONTENT THEN         
  564.         SELECT CASE ControlID%
  565.             CASE SourceDialog.SourceDirectory.GetID()
  566.                 SourceDir$ = SourceDialog.SourceDirectory.GetText()    
  567.         END SELECT
  568.     ENDIF
  569.  
  570.     IF Event% = EVENT_MOUSE_CLICK THEN         
  571.         SELECT CASE ControlID%
  572.             CASE SourceDialog.NextButton.GetID()        
  573.                 'ensure SourceDir ends in a backslash
  574.                 IF INSTR(SourceDir$, "\", LEN(SourceDir$)) = 0 THEN 
  575.                     SourceDir$ = SourceDir$ & "\"
  576.                 ENDIF
  577.                 SourceDialog.closedialog DIALOG_RETURN_NEXT
  578.  
  579.             CASE SourceDialog.BackButton.GetID()        
  580.                 SourceDialog.closedialog DIALOG_RETURN_BACK
  581.             CASE SourceDialog.CancelButton.GetID()        
  582.                 SourceDialog.closedialog DIALOG_RETURN_CANCEL    
  583.  
  584.             CASE SourceDialog.BrowseButton.GetID()        
  585.                 NewSourceDir$ = GETFOLDER(SourceDir$)                
  586.                 IF NewSourceDir$ <> "" THEN 
  587.                     SourceDir$ = NewSourceDir$
  588.                 ENDIF
  589.                 SourceDialog.SourceDirectory.SetText SourceDir$
  590.  
  591.             CASE SourceDialog.FileExListBox.GetID()        
  592.                 FileExtVal% = SourceDialog.FileExListBox.GetSelect()
  593.         END SELECT
  594.     ENDIF
  595.  
  596.     IF SourceDir$ = "" THEN
  597.         SourceDialog.NextButton.Enable FALSE
  598.     ELSE
  599.         SourceDialog.NextButton.Enable TRUE
  600.     ENDIF    
  601. END SUB
  602.  
  603.  
  604. ' *******************************************************************************
  605. ' ShowFileList
  606. ' This function displays a list of available files of the specified type starting
  607. ' at the specified location.
  608. '
  609. ' PARAMS: None
  610. '
  611. ' RETURNS: ShowFileList AS INTEGER - Integer indicating dialog return value.
  612. ' *******************************************************************************
  613. FUNCTION ShowFileList
  614. BEGIN DIALOG OBJECT ShowFileListDialog 290, 180, "Corel VENTURA Library Wizard", SUB FileListDialogEventHandler
  615.     LISTBOX  10, 25, 100, 107, .FileListBox
  616.     PUSHBUTTON  122, 33, 46, 14, .SelectButton, "&Select >>"
  617.     PUSHBUTTON  122, 49, 46, 14, .DeselectButton, "<< &Deselect"
  618.     PUSHBUTTON  123, 95, 46, 14, .SelectAllButton, "Select &All"
  619.     PUSHBUTTON  123, 112, 46, 14, .DeselectAllButton, "D&eselect All"
  620.     LISTBOX  180, 25, 100, 107, .SelectedFileListBox
  621.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  622.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  623.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  624.     TEXT  10, 2, 269, 11, .Text2, "Select the files you wish to include in your library."
  625.     TEXT  10, 14, 56, 10, .Text4, "Available files:"
  626.     TEXT  88, 14, 20, 10, .FilesCountText, ""
  627.     TEXT  180, 14, 61, 10, .Text5, "Selected files:"
  628.     TEXT  258, 14, 20, 10, .SelectedFilesCountText, ""
  629.     TEXT  10, 136, 270, 12, .StatusText, "No files selected"
  630.     LISTBOX  10, 25, 100, 107, .DirectoryListBox
  631.     LISTBOX  180, 25, 100, 107, .SelectedDirectoryListBox
  632.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  633. END DIALOG
  634.     ShowFileListDialog.SetStyle STYLE_INVISIBLE
  635.     ShowFileListDialog.StatusText.SetStyle STYLE_SUNKEN
  636.     ShowFileListRet% = DIALOG(ShowFileListDialog)
  637.     
  638.     SELECT CASE ShowFileListRet%
  639.         CASE DIALOG_RETURN_CANCEL        
  640.             STOP
  641.         CASE DIALOG_RETURN_NEXT        
  642.             ShowFileList = 1
  643.         CASE DIALOG_RETURN_BACK         
  644.             ShowFileList = -1
  645.     END SELECT
  646. END FUNCTION
  647.  
  648.  
  649. ' *******************************************************************************
  650. ' FileListDialogEventHandler
  651. ' This subroutine responds to user interface with the file list dialog.
  652. ' 
  653. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  654. '                            generating a dialog event.
  655. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  656. ' *******************************************************************************
  657. SUB FileListDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  658.     IF Event% = EVENT_INITIALIZATION THEN         
  659.         ShowFileListDialog.DirectoryListBox.SetStyle STYLE_INVISIBLE            'hide directory list box (for tracking files - user doesn't need to see this)
  660.         ShowFileListDialog.SelectedDirectoryListBox.SetStyle STYLE_INVISIBLE        'hide selected directory list box (for tracking files - user doesn't need to see this)
  661.         ShowFileListDialog.FilesCountText.SetStyle STYLE_RIGHT_JUSTIFY            'right justify text displaying file count
  662.         ShowFileListDialog.SelectedFilesCountText.SetStyle STYLE_RIGHT_JUSTIFY    'right justify text displaying selected files count
  663.  
  664.         'disable NEXT button until file(s) have been selected
  665.         IF ShowFileListDialog.SelectedFileListBox.GetItemCount() = 0 THEN 
  666.             ShowFileListDialog.NextButton.Enable FALSE
  667.         ELSE
  668.             ShowFileListDialog.NextButton.Enable TRUE
  669.         ENDIF    
  670.  
  671.         'IF files have already been selected, display same list
  672.         IF SelectedFilesCount > 0 THEN
  673.             ShowFileListDialog.FileListBox.SetArray AvailableFiles$            'display available files list in Available Files listbox
  674.             ShowFileListDialog.DirectoryListBox.SetArray AvailableDirs$            'display available dirs list in Avaialable Dirs listbox
  675.             ShowFileListDialog.SelectedFileListBox.SetArray SelectedFiles$        'display selected files list in Selected Files listbox
  676.             ShowFileListDialog.SelectedDirectoryListBox.SetArray SelectedDirs$    'display selected dirs list in Selected Dirs listbox
  677.  
  678.         'get and display list of files (with extension FileExt$) starting in Source directory
  679.         ELSE
  680.             GetFileList SourceDir$, FileExt$                                                'get file list
  681.             ShowFileListDialog.FileListBox.SetSelect 1                                        'give focus to first element in file list box
  682.             ShowFileListDialog.StatusText.SetText ShowFileListDialog.DirectoryListBox.GetItem(1)        'set status text to first item in file list
  683.             ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()    'set file count to number of available files
  684.             ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'set selected files count to number of selected files
  685.         ENDIF
  686.         ShowFileListDialog.SetStyle STYLE_VISIBLE
  687.     ENDIF
  688.  
  689.     IF Event% = EVENT_MOUSE_CLICK THEN         
  690.         SELECT CASE ControlID%
  691.             CASE ShowFileListDialog.NextButton.GetID()        
  692.                 'create list of selected files and directories
  693.                 SelectedFilesCount% = ShowFileListDialog.SelectedFileListBox.GetItemCount()
  694.                 REDIM SelectedFiles$(SelectedFilesCount%)    'redimension array to accomodate all selected files
  695.                 REDIM SelectedDirs$(SelectedFilesCount%)    'redimension array to accomodate all selected directories
  696.                 FOR i% = 1 TO SelectedFilesCount%            'FOR all items in selected files list
  697.                     SelectedFiles$(i%) = ShowFileListDialog.SelectedFileListBox.GetItem(i%)    'add item to file list        
  698.                     SelectedDirs$(i%) = ShowFileListDialog.SelectedDirectoryListBox.GetItem(i%)'add item to directory list
  699.                 NEXT i%
  700.     
  701.                 'create list of available files and directories
  702.                 AvailableFilesCount% = ShowFileListDialog.FileListBox.GetItemCount()
  703.                 REDIM AvailableFiles$(AvailableFilesCount)    'redimension array to accomodate all available files
  704.                 REDIM AvailableDirs$(AvailableFilesCount)    'redimension array to accomodate all available directories
  705.                 FOR i% = 1 TO AvailableFilesCount%            'FOR all items in avialable files list
  706.                     AvailableFiles$(i%) = ShowFileListDialog.FileListBox.GetItem(i%)        'add item to file list
  707.                     AvailableDirs$(i%) = ShowFileListDialog.DirectoryListBox.GetItem(i%)    'add item to directory list
  708.                 NEXT i%
  709.                 ShowFileListDialog.closedialog DIALOG_RETURN_NEXT
  710.  
  711.             CASE ShowFileListDialog.BackButton.GetID()        
  712.                 ShowFileListDialog.closedialog DIALOG_RETURN_BACK
  713.  
  714.             CASE ShowFileListDialog.SelectButton.GetID()            
  715.                 indx% = ShowFileListDialog.FileListBox.GetSelect()        'get index of current selection
  716.                 IF indx%=0 THEN        'no files selected, display appropriate message
  717.                     IF ShowFileListDialog.FileListBox.GetItemCount() = 0 THEN
  718.                         MESSAGE "There are no files available for selection."
  719.                     ELSE
  720.                         MESSAGE "Please select a file from the available files list."
  721.                     ENDIF
  722.                 ELSE                    'valid selection, add current selection to selected files list            
  723.                     ShowFileListDialog.SelectedFileListBox.AddItem ShowFileListDialog.FileListBox.GetItem(indx%)            'add current selection to selected files list
  724.                     ShowFileListDialog.FileListBox.RemoveItem indx%                                                'remove current selection from available files list
  725.                     ShowFileListDialog.SelectedDirectoryListBox.AddItem ShowFileListDialog.DirectoryListBox.GetItem(indx%)    'add current selection to selected directory list
  726.                     ShowFileListDialog.DirectoryListBox.RemoveItem indx%                                            'remove current selection from available directory list
  727.                     IF indx% > ShowFileListDialog.FileListBox.GetItemCount() THEN                                    'IF current selection is not the last         
  728.                         ShowFileListDialog.FileListBox.SetSelect indx%-1                                            'set focus to previous item
  729.                     ELSE                    
  730.                         ShowFileListDialog.FileListBox.SetSelect indx%                                            'ELSE set    focus to current selection
  731.                     ENDIF
  732.                      ShowFileListDialog.StatusText.SetText ShowFileListDialog.DirectoryListBox.GetItem(ShowFileListDialog.FileListBox.GetSelect())
  733.                     ShowFileListDialog.SelectedFileListBox.SetSelect 0
  734.                 ENDIF
  735.  
  736.             CASE ShowFileListDialog.DeselectButton.GetID()            
  737.                 indx% = ShowFileListDialog.SelectedFileListBox.GetSelect()    'get index of current selection
  738.                 IF indx%=0 THEN        'no files selected, display appropriate message
  739.                     IF ShowFileListDialog.SelectedFileListBox.GetItemCount() = 0 THEN
  740.                         MESSAGE "There are no files available for deselection"
  741.                     ELSE
  742.                         MESSAGE "Please select a file from the selected files list."
  743.                     ENDIF        
  744.                 ELSE                    'valid selection, remove current selection from selected files list
  745.                     ShowFileListDialog.FileListBox.AddItem ShowFileListDialog.SelectedFileListBox.GetItem(indx%)            'add current selection to available files list
  746.                     ShowFileListDialog.SelectedFileListBox.RemoveItem indx%                                        'remove current selection from selected files list
  747.                     ShowFileListDialog.DirectoryListBox.AddItem ShowFileListDialog.SelectedDirectoryListBox.GetItem(indx%)    'add current selection to available directory list
  748.                     ShowFileListDialog.SelectedDirectoryListBox.RemoveItem indx%                                    'remove current selection from selected directory list
  749.                     IF indx% > ShowFileListDialog.SelectedFileListBox.GetItemCount() THEN                                'IF current selection is not the last         
  750.                         ShowFileListDialog.SelectedFileListBox.SetSelect indx%-1                                    'set focus to previous item
  751.                     ELSE
  752.                         ShowFileListDialog.SelectedFileListBox.SetSelect indx%                                        'ELSE set    focus to current selection
  753.                     ENDIF
  754.                      ShowFileListDialog.StatusText.SetText ShowFileListDialog.SelectedDirectoryListBox.GetItem(ShowFileListDialog.SelectedFileListBox.GetSelect())
  755.                     ShowFileListDialog.FileListBox.SetSelect 0
  756.                 ENDIF
  757.  
  758.             CASE ShowFileListDialog.SelectAllButton.GetID()        
  759.                 ShowFileListDialog.StatusText.SetText "All files selected."
  760.                 ShowFileListDialog.SelectedFileListBox.SetSelect 0
  761.                 WHILE ShowFileListDialog.FileListBox.GetItemCount() > 0        'repeat while there are available files 
  762.                     ShowFileListDialog.SelectedFileListBox.AddItem ShowFileListDialog.FileListBox.GetItem(1)            'add first list item to selected files list
  763.                     ShowFileListDialog.FileListBox.RemoveItem 1                                                'remove first list item from available files list    
  764.                     ShowFileListDialog.SelectedDirectoryListBox.AddItem ShowFileListDialog.DirectoryListBox.GetItem(1)    'add first list item to selected directory list
  765.                     ShowFileListDialog.DirectoryListBox.RemoveItem 1                                            'remove first list item from available directory list
  766.                     ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()                'display number of available files
  767.                     ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'display number of selected files
  768.                 WEND
  769.  
  770.  
  771.             CASE ShowFileListDialog.DeselectAllButton.GetID()        
  772.                 ShowFileListDialog.StatusText.SetText "No files selected."
  773.                 ShowFileListDialog.FileListBox.SetSelect 0
  774.                 WHILE ShowFileListDialog.SelectedFileListBox.GetItemCount() > 0    'repeat while there are selected files
  775.                     ShowFileListDialog.FileListBox.AddItem ShowFileListDialog.SelectedFileListBox.GetItem(1)            'add first list item to FilesList
  776.                     ShowFileListDialog.SelectedFileListBox.RemoveItem 1                                        'remove first list item from selected files list
  777.                     ShowFileListDialog.DirectoryListBox.AddItem ShowFileListDialog.SelectedDirectoryListBox.GetItem(1)    'add first list item to available directory list
  778.                     ShowFileListDialog.SelectedDirectoryListBox.RemoveItem 1                                    'remove first list item from selected directory list
  779.                         ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()            'display number of available files
  780.                     ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'display number of selected files
  781.                 WEND
  782.  
  783.             CASE ShowFileListDialog.CancelButton.GetID()            
  784.                 ShowFileListDialog.closedialog DIALOG_RETURN_CANCEL    
  785.             CASE ShowFileListDialog.FileListBox.GetID()                    
  786.                  ShowFileListDialog.StatusText.SetText ShowFileListDialog.DirectoryListBox.GetItem(ShowFileListDialog.FileListBox.GetSelect())
  787.                 ShowFileListDialog.SelectedFileListBox.SetSelect 0
  788.             CASE ShowFileListDialog.SelectedFileListBox.GetID()            
  789.                  ShowFileListDialog.StatusText.SetText ShowFileListDialog.SelectedDirectoryListBox.GetItem(ShowFileListDialog.SelectedFileListBox.GetSelect())
  790.                 ShowFileListDialog.FileListBox.SetSelect 0
  791.         END SELECT
  792.         ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()                'display number of available files
  793.         ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'display number of selected files
  794.     ENDIF
  795.  
  796.     IF Event% = EVENT_DBL_MOUSE_CLICK THEN         
  797.         SELECT CASE ControlID%
  798.             CASE ShowFileListDialog.FileListBox.GetID()                    'files list
  799.                 indx% = ShowFileListDialog.FileListBox.GetSelect()                                    'get index of selection
  800.                 ShowFileListDialog.SelectedFileListBox.AddItem ShowFileListDialog.FileListBox.GetItem(indx%)    'add selection to SelectedFilesList
  801.                 ShowFileListDialog.FileListBox.RemoveItem indx%                                        'remove selection from available files list
  802.                 ShowFileListDialog.SelectedDirectoryListBox.AddItem ShowFileListDialog.DirectoryListBox.GetItem(indx%)    'add selection to selected path list
  803.                 ShowFileListDialog.DirectoryListBox.RemoveItem indx%                                        'remove selection from available paths list
  804.                 IF indx% > ShowFileListDialog.FileListBox.GetItemCount() THEN
  805.                     ShowFileListDialog.FileListBox.SetSelect indx%-1
  806.                 ELSE
  807.                     ShowFileListDialog.FileListBox.SetSelect indx%
  808.                 ENDIF
  809.  
  810.             CASE ShowFileListDialog.SelectedFileListBox.GetID()            'selected files list
  811.                 indx% = ShowFileListDialog.SelectedFileListBox.GetSelect()                                'get index of selection
  812.                 ShowFileListDialog.FileListBox.AddItem ShowFileListDialog.SelectedFileListBox.GetItem(indx%)    'add selection to FilesList
  813.                 ShowFileListDialog.SelectedFileListBox.RemoveItem indx%                                'remove selection from selected files list
  814.                 ShowFileListDialog.DirectoryListBox.AddItem ShowFileListDialog.SelectedDirectoryListBox.GetItem(indx%)    'add selection to available path list
  815.                 ShowFileListDialog.SelectedDirectoryListBox.RemoveItem indx%                                'remove selection from selected path list
  816.                 IF indx% > ShowFileListDialog.SelectedFileListBox.GetItemCount() THEN
  817.                     ShowFileListDialog.SelectedFileListBox.SetSelect indx%-1
  818.                 ELSE
  819.                     ShowFileListDialog.SelectedFileListBox.SetSelect indx%
  820.                 ENDIF
  821.  
  822.         END SELECT
  823.         ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()                'number of available files
  824.         ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'number of selected files
  825.     ENDIF
  826.     IF ShowFileListDialog.SelectedFileListBox.GetItemCount() = 0 THEN 
  827.         ShowFileListDialog.NextButton.Enable FALSE
  828.     ELSE
  829.         ShowFileListDialog.NextButton.Enable TRUE
  830.     ENDIF    
  831. END SUB
  832.  
  833.  
  834.  
  835. ' *******************************************************************************
  836. ' GetFileList
  837. ' This subroutine recursively searches for files of the specified type, starting
  838. ' in the specified directory (SourceDir). The found files are displayed in the 
  839. ' File List dialog (files and paths separately).
  840. '
  841. ' PARAMS: BYVAL SourceDir$ - The directory at which to begin the search.
  842. '               FileExt$  - The type of file (extension) for which to search.
  843. ' *******************************************************************************
  844. SUB GetFileList(BYVAL SourceDir$, FileExt$)
  845.     'This section finds files of the type specified by FileExt in the directory specified by SourceDir
  846.     File$ = FINDFIRSTFOLDER(SourceDir$ & FileExt$, FILEATTR_READ_ONLY OR FILEATTR_HIDDEN OR FILEATTR_SYSTEM OR FILEATTR_ARCHIVE OR FILEATTR_NORMAL_FILE OR FILEATTR_TEMPORARY OR FILEATTR_COMPRESSED)
  847.     DO WHILE File$ <> ""
  848.         ShowFileListDialog.FileListBox.AddItem File$                'add file name to File drop-down list
  849.         ShowFileListDialog.DirectoryListBox.AddItem SourceDir$        'add file dir to Directory drop-down list
  850.         File$ = FINDNEXTFOLDER()
  851.     LOOP 
  852.  
  853.     'This section finds directories starting in the directory specified by SourceDir
  854.     File$ = FINDFIRSTFOLDER(SourceDir$ & "*.*", FILEATTR_FOLDER OR FILEATTR_READ_ONLY OR FILEATTR_HIDDEN OR FILEATTR_SYSTEM OR FILEATTR_ARCHIVE OR FILEATTR_NORMAL_FILE OR FILEATTR_TEMPORARY OR FILEATTR_COMPRESSED)
  855.     DO WHILE File$ <> ""    
  856.         IF File$ <> "." AND File$ <> ".." AND File$ <> SourceDir$ THEN
  857.             GetFileList SourceDir$ &  File$ & "\", FileExt$
  858.             
  859.             ' This next loop resets the FINDNEXTFOLDER function to the same place as it was before 
  860.             ' we recursed into ourselves.
  861.             SearchFile$ = FINDFIRSTFOLDER(SourceDir$ & "*.*", FILEATTR_FOLDER OR FILEATTR_READ_ONLY OR FILEATTR_HIDDEN OR FILEATTR_SYSTEM OR FILEATTR_ARCHIVE OR FILEATTR_NORMAL_FILE OR FILEATTR_TEMPORARY OR FILEATTR_COMPRESSED)
  862.             DO WHILE File$ <> SearchFile$
  863.                 SearchFile$ = FINDNEXTFOLDER()
  864.             LOOP
  865.         ENDIF
  866.         File$ = FINDNEXTFOLDER()
  867.     LOOP 
  868. END SUB
  869.  
  870.  
  871. ' *******************************************************************************
  872. ' GetLIBName
  873. ' This function prompts the user for the name of the new Library.
  874. '
  875. ' RETURNS: GetLIBName AS INTEGER - Integer indicating dialog return value.
  876. ' *******************************************************************************
  877. FUNCTION GetLIBName%
  878. BEGIN DIALOG OBJECT GetLIBNameDialog 290, 180, "Corel VENTURA Library Wizard", SUB GetLIBNameDialogEventHandler
  879.     TEXTBOX  95, 25, 185, 13, .LibNameTextBox
  880.     TEXTBOX  95, 95, 185, 13, .LibDirTextBox
  881.     PUSHBUTTON  234, 112, 46, 14, .BrowseButton, "&Browse..."
  882.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  883.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  884.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  885.     TEXT  95, 10, 185, 12, .Text1, "What would you like to call your new Library?"
  886.     TEXT  95, 80, 175, 12, .Text2, "Where would you like to put your library?"
  887.     IMAGE  10, 10, 75, 130, .GetLIBNameImage
  888.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  889. END DIALOG
  890.  
  891.     GetLIBNameDialog.SetStyle STYLE_INVISIBLE
  892.     GetLIBNameDialog.GetLIBNameImage.SetImage "#Step2BMP"
  893.     GetLIBNameDialog.GetLIBNameImage.SetStyle STYLE_IMAGE_CENTERED
  894.  
  895.     GetLIBNameRet% = Dialog(GetLIBNameDialog)
  896.     SELECT CASE GetLIBNameRet%
  897.         CASE DIALOG_RETURN_CANCEL    
  898.             STOP
  899.         CASE DIALOG_RETURN_NEXT        
  900.             GetLIBName = 1
  901.         CASE DIALOG_RETURN_BACK         
  902.             GetLIBName = -1
  903.     END SELECT
  904. END FUNCTION
  905.  
  906.  
  907. ' *******************************************************************************
  908. ' GetLIBNameDialogEventHandler
  909. ' This subroutine responds to user interface with the library name dialog.
  910. ' 
  911. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  912. '                            generating a dialog event.
  913. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  914. ' *******************************************************************************
  915. SUB GetLIBNameDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  916. ON ERROR RESUME NEXT
  917.     IF Event% = EVENT_INITIALIZATION THEN         
  918.         GetLIBNameDialog.LibNameTextBox.SetText NewLIBName$
  919.         GetLIBNameDialog.LibDirTextBox.SetText LibraryDir$
  920.         IF NewLIBName$  = "" THEN 
  921.             GetLIBNameDialog.NextButton.Enable FALSE
  922.         ELSE
  923.             GetLIBNameDialog.NextButton.Enable TRUE
  924.         ENDIF    
  925.         GetLIBNameDialog.SetStyle STYLE_VISIBLE
  926.     ENDIF
  927.  
  928.     IF Event% = EVENT_CHANGE_IN_CONTENT THEN         
  929.         SELECT CASE ControlID%
  930.             CASE GetLIBNameDialog.LibNameTextBox.GetID()        
  931.                 NewLIBName$ = GetLIBNameDialog.LibNameTextBox.gettext()        
  932.                 IF NewLIBName$  = "" THEN 
  933.                     GetLIBNameDialog.NextButton.Enable FALSE
  934.                 ELSE
  935.                     GetLIBNameDialog.NextButton.Enable TRUE
  936.                 ENDIF    
  937.             CASE GetLIBNameDialog.LibDirTextBox.GetID()            
  938.                 LibraryDir$ = GetLIBNameDialog.LibDirTextBox.gettext()
  939.         END SELECT
  940.     ENDIF
  941.  
  942.     IF Event% = EVENT_MOUSE_CLICK THEN         
  943.         SELECT CASE ControlID%
  944.             CASE GetLIBNameDialog.NextButton.GetID()        
  945.                 IF INSTR(NewLIBName$ , "vlb") = 0 THEN NewLIBName$  = NewLIBName$  & ".vlb"
  946.                 LIBName$  = LibraryDir$ & "\"  & NewLIBName$ 
  947.                 LibraryExists = DoesFileExist(LIBName$)
  948.                 IF LibraryExists = TRUE THEN         'library already exists, warn user
  949.                     LibraryMsg$= LIBName$ & CHR(13) & "already exists." & CHR(13) + CHR(13) & "Continue anyway?"
  950.                     MsgVal% = MESSAGEBOX(LibraryMsg$, "WARNING", 4 OR 16)
  951.                     IF MsgVal% = MSG_YES THEN     'yes, overwrite library
  952.                         GetLIBNameDialog.closedialog DIALOG_RETURN_NEXT
  953.                     ENDIF
  954.                 ELSE
  955.                     GetLIBNameDialog.closedialog DIALOG_RETURN_NEXT
  956.                 ENDIF        
  957.             CASE GetLIBNameDialog.BackButton.GetID()        
  958.                 GetLIBNameDialog.closedialog DIALOG_RETURN_BACK
  959.             CASE GetLIBNameDialog.CancelButton.GetID()        
  960.                 GetLIBNameDialog.closedialog DIALOG_RETURN_CANCEL    
  961.             CASE GetLIBNameDialog.BrowseButton.GetID()        
  962.                 GetLibraryDir$ = GetFolder(LibraryDir$)                
  963.                 IF GetLibraryDir$ = "" THEN 
  964.                     GetLIBNameDialog.LibDirTextBox.SetText LibraryDir$
  965.                 ELSE
  966.                     GetLIBNameDialog.LibDirTextBox.SetText GetLibraryDir$
  967.                     LibraryDir$ = GetLibraryDir$
  968.                 ENDIF
  969.         END SELECT
  970.     ENDIF
  971. END SUB
  972.  
  973.  
  974.  
  975. ' **************************************************************************************
  976. ' ShowFinish
  977. ' This function displays the finish dialog, showing a list of all files selected for
  978. ' addition to the specified library. As well, the complete name of the library to be
  979. ' used is displayed.
  980. '
  981. ' RETURNS: ShowFinish AS INTEGER - Integer indicating dialog return value.
  982. ' **************************************************************************************
  983. FUNCTION ShowFinish%
  984. BEGIN DIALOG OBJECT ShowFinishDialog 290, 180, "Corel VENTURA Library Wizard", SUB ShowFinishDialogEventHandler
  985.     PUSHBUTTON  181, 160, 46, 14, .FinishButton, "&Finish"
  986.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  987.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  988.     LISTBOX  95, 45, 185, 60, .FileListBox
  989.     IMAGE  10, 10, 75, 130, .ShowFinishImage
  990.     TEXT  95, 10, 185, 12, .Text1, InfoText$
  991.     TEXT  95, 23, 185, 20, .Text2, LIBName$
  992.     TEXT  95, 124, 185, 20, .Text3, "Click Finish, then sit back and watch Corel VENTURA create your new library for you."
  993.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  994.     TEXT  95, 107, 185, 12, .StatusText, ""
  995. END DIALOG
  996.  
  997.     IF SelectedFilesCount = 1 THEN 
  998.         InfoText$ = "The " & SelectedFilesCount & " file listed below will be added to the library:"
  999.     ELSE
  1000.         InfoText$ = "The " & SelectedFilesCount & " files listed below will be added to the library:"
  1001.     ENDIF
  1002.     MKFOLDER(LibraryDir$)        
  1003.     
  1004.     ShowFinishDialog.SetStyle STYLE_INVISIBLE
  1005.     ShowFinishDialog.ShowFinishImage.SetImage "#Step3BMP"
  1006.     ShowFinishDialog.ShowFinishImage.SetStyle STYLE_IMAGE_CENTERED
  1007.     ShowFinishDialog.StatusText.SetStyle STYLE_SUNKEN
  1008.  
  1009.     ShowFinishRet% = Dialog(ShowFinishDialog)
  1010.     SELECT CASE ShowFinishRet%
  1011.         CASE DIALOG_RETURN_CANCEL     
  1012.             STOP
  1013.         CASE DIALOG_RETURN_NEXT      
  1014.             ShowFinishDialog.SetVisible FALSE
  1015.             MakeLIB
  1016.             ShowFinish = 1
  1017.         CASE DIALOG_RETURN_BACK 
  1018.             ShowFinish = -1
  1019.     END SELECT
  1020. END FUNCTION
  1021.  
  1022. ' *******************************************************************************
  1023. ' ShowFinishDialogEventHandler
  1024. ' This subroutine responds to user interface with the finish dialog.
  1025. ' 
  1026. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  1027. '                            generating a dialog event.
  1028. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  1029. ' *******************************************************************************
  1030. SUB ShowFinishDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  1031.     IF Event% = EVENT_INITIALIZATION THEN         
  1032.         ShowFinishDialog.FileListBox.SetArray SelectedFiles$
  1033.         ShowFinishDialog.StatusText.SetText SelectedDirs(1)
  1034.         ShowFinishDialog.SetStyle STYLE_VISIBLE
  1035.     ENDIF
  1036.  
  1037.     IF Event% = EVENT_MOUSE_CLICK THEN     
  1038.         SELECT CASE ControlID%
  1039.             CASE ShowFinishDialog.FinishButton.GetID()
  1040.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_NEXT
  1041.             CASE ShowFinishDialog.BackButton.GetID()
  1042.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_BACK
  1043.             CASE ShowFinishDialog.CancelButton.GetID()
  1044.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_CANCEL
  1045.             CASE ShowFinishDialog.FileListBox.GetID()
  1046.                 ShowFinishDialog.StatusText.SetText SelectedDirs(ShowFinishDialog.FileListBox.GetSelect())
  1047.         END SELECT
  1048.     ENDIF
  1049. END SUB
  1050.  
  1051.  
  1052. ' *******************************************************************************
  1053. ' MakeLIB
  1054. ' This function opens the specified library if it exists (or creates a new one 
  1055. ' if it doesn't exist). The selected files are added to the library, and their
  1056. ' corresponding descriptions changed to that of the file name (without path).
  1057. ' A dialog appears at the completion of the process, indicating the number of
  1058. ' successful library entries.
  1059. '
  1060. ' PARAMS: None
  1061. ' *******************************************************************************
  1062. SUB MakeLIB
  1063. ON ERROR RESUME NEXT
  1064. GLOBAL ItemsInLIB&
  1065.     BEGINWAITCURSOR
  1066.     WITHOBJECT OBJECT_VENTURA8
  1067.     ENDWAITCURSOR
  1068.  
  1069.         IF LibraryExists = TRUE THEN
  1070.             .FileLibraryOpen LIBName$ 
  1071.         ELSE
  1072.             .FileLibraryNew LIBName$         
  1073.         ENDIF
  1074.         .FileLibraryView FALSE, TRUE                    'small icons show details
  1075.  
  1076.         FOR i% = 1 TO SelectedFilesCount%
  1077.             .FileLibraryCreateItem SelectedDirs$(i%) & SelectedFiles$(i%)
  1078.             .FileLibraryItemProperties SelectedFiles$(i%)
  1079.             IF i% MOD 20 = 0 THEN .FileLibrarySave        'save lib every 20 items
  1080.         NEXT i%
  1081.  
  1082.         ItemsInLIB& = .FileLibraryItemCount()
  1083.         .FileLibraryClose TRUE                        'close ALL open libs
  1084.     END WITHOBJECT
  1085. END SUB
  1086.  
  1087.  
  1088. ' *******************************************************************************
  1089. ' ShowSummary
  1090. ' This function displays the summary dialog indicating whether the library has 
  1091. ' been created or appended, and the number of items it now contains.
  1092. '
  1093. ' PARAMS: None
  1094. '
  1095. ' RETURNS: ShowFinish AS INTEGER - Integer indicating dialog return value.
  1096. ' *******************************************************************************
  1097. FUNCTION ShowSummary%
  1098. BEGIN DIALOG OBJECT ShowSummaryDialog 290, 180, "Corel VENTURA Library Wizard", SUB ShowSummaryDialogEventHandler
  1099.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  1100.     PUSHBUTTON  181, 160, 46, 14, .FinishButton, "&Done"
  1101.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  1102.     IMAGE  10, 10, 75, 130, .ShowSummaryImage
  1103.     TEXT  95, 25, 185, 12, .Text1, ""
  1104.     TEXT  95, 10, 185, 12, .Text2, ""
  1105.     TEXT  93, 130, 185, 12, .Text3, "To create another library, click Back."
  1106.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  1107. END DIALOG
  1108.     
  1109.     ShowSummaryDialog.SetStyle STYLE_INVISIBLE
  1110.     ShowSummaryDialog.ShowSummaryImage.SetImage "#LastBMP"
  1111.     ShowSummaryDialog.ShowSummaryImage.SetStyle STYLE_IMAGE_CENTERED
  1112.  
  1113.     ShowSummaryRet% = Dialog(ShowSummaryDialog)
  1114.     SELECT CASE ShowSummaryRet%
  1115.         CASE DIALOG_RETURN_CANCEL     
  1116.             STOP
  1117.         CASE DIALOG_RETURN_NEXT      
  1118.             ShowSummary = 1
  1119.         CASE DIALOG_RETURN_BACK     
  1120.             ShowSummary = -5
  1121.     END SELECT
  1122. END FUNCTION
  1123.  
  1124.  
  1125. ' *******************************************************************************
  1126. ' ShowSummaryDialogEventHandler
  1127. ' This subroutine responds to user interface with the summary dialog.
  1128. ' 
  1129. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  1130. '                            generating a dialog event.
  1131. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  1132. ' *******************************************************************************
  1133. SUB ShowSummaryDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  1134.     IF Event% = EVENT_INITIALIZATION THEN         
  1135.         NameText$ = LIBName$
  1136.         IF ItemsInLIB& > 1 THEN    
  1137.             ItemString$ = " items."
  1138.         ELSE
  1139.             ItemString$ = " item."
  1140.         ENDIF
  1141.         IF LibraryExists = TRUE THEN
  1142.             InfoText$ = "has been appended and now contains" & STR(ItemsInLIB&)  & ItemString$
  1143.         ELSE
  1144.             InfoText$ = "has been created and now contains" & STR(ItemsInLIB&)  & ItemString$
  1145.         ENDIF
  1146.         ShowSummaryDialog.Text2.SetText NameText$
  1147.         ShowSummaryDialog.Text1.SetText InfoText$
  1148.         ShowSummaryDialog.SetStyle STYLE_VISIBLE
  1149.         ShowSummaryDialog.CancelButton.Enable FALSE
  1150.     ENDIF
  1151.  
  1152.     IF Event% = EVENT_MOUSE_CLICK THEN     
  1153.         SELECT CASE ControlID%
  1154.             CASE ShowSummaryDialog.FinishButton.GetID()
  1155.                 ShowSummaryDialog.CloseDialog DIALOG_RETURN_NEXT
  1156.             CASE ShowSummaryDialog.BackButton.GetID()
  1157.                 ShowSummaryDialog.CloseDialog DIALOG_RETURN_BACK
  1158.             CASE ShowSummaryDialog.CancelButton.GetID()
  1159.                 ShowSummaryDialog.CloseDialog DIALOG_RETURN_CANCEL
  1160.         END SELECT
  1161.     ENDIF
  1162. END SUB
  1163.  
  1164.  
  1165. ' **************************************************************************************
  1166. ' DoesFileExist
  1167. ' This function determines whether the specified file exists.
  1168. '
  1169. ' PARAMS:FileName AS STRING - The name and path of the file in question.
  1170. ' RETURNS: DoesFileExist AS BOOLEAN - TRUE if the file exists.
  1171. '                                   - FALSE if the file does not exist.
  1172. ' **************************************************************************************
  1173. FUNCTION DoesFileExist(FileName$) AS BOOLEAN
  1174. ON ERROR GOTO ErrorHandler
  1175.     FileStatus$ = FINDFIRSTFOLDER(FileName$, FILEATTR_READ_ONLY OR FILEATTR_HIDDEN OR FILEATTR_SYSTEM OR FILEATTR_ARCHIVE OR FILEATTR_NORMAL_FILE OR FILEATTR_TEMPORARY)
  1176.     IF FileStatus$ = "" THEN
  1177.         DoesFileExist = FALSE
  1178.     ELSE
  1179.         DoesFileExist = TRUE
  1180.     ENDIF
  1181.  
  1182. FunctionEnd:
  1183. EXIT FUNCTION
  1184.  
  1185. ErrorHandler:
  1186.     SELECT CASE ErrNum
  1187.         CASE ELSE
  1188.             DoesFileExist = FALSE
  1189.     END SELECT
  1190.     RESUME AT FunctionEnd
  1191. END FUNCTION
  1192.  
  1193.  
  1194.