Changeset 44 for trunk/gui

Timestamp:

Aug 19, 2013, 3:10:23 AM (12 years ago)

Author:

Alex Taylor

Message:

Fixed some minor errors in updating presentation drivers (printerpaks).

Location:

trunk/gui

Files:

• printer/manager/PRINTOOL.VRX (modified) (3 diffs)
• printer/manager/PRINTOOL.VRY (modified) ( previous)
• shared/PrManUtl.VRS (modified) (2 diffs)

trunk/gui/printer/manager/PRINTOOL.VRX

@@ -467 +467 @@
 
     ppaks.0 = _count
+
+    CALL VRMethod 'CN_PRINTERPAKS', 'RemoveRecord', 'All'
     CALL VRMethod 'CN_PRINTERPAKS', 'AddRecordList',, 'Last', 'ppaks.'
 
@@ -888 +890 @@
 LoadSettings: PROCEDURE EXPOSE globals.
 
-    globals.!version = '0.44'
+    globals.!version = '0.45'
     globals.!copyright = '2013'
 
@@ -2317 +2319 @@
     CALL NLSSetText 'PB_DEVICE_OTHER',    'Caption', 188
     CALL NLSSetText 'PB_DEVICE_REFRESH',  'Caption', 63
-    CALL NLSSetText 'PB_DEVICE_INSTALL',  'Caption', 8
+    CALL NLSSetText 'PB_DEVICE_INSTALL',  'Caption', 2
     CALL NLSSetText 'PB_DEVICE_CANCEL',   'Caption', 3
 

trunk/gui/shared/PrManUtl.VRS

@@ -237 +237 @@
     IF drv_dir == '' THEN RETURN 0
 
-
     IF VerifyDriverEAs( driver ) == 0 THEN RETURN 0
 
@@ -273 +272 @@
     END
 
+    /* If AUXPRINT.PAK exists, copy it as well */
+    copyfile = drv_dir'\AUXPRINT.PAK'
+    IF STREAM( copyfile, 'C', 'QUERY EXISTS') <> '' THEN DO
+        ok = VRCopyFile( copyfile, newdrvdir'\AUXPRINT.PAK'
+        CALL LINEOUT globals.!log1, ' -' copyfile ':' ok
+    END
+
+    /* Create an EA file if necessary */
     eafile = VRParseFilePath( driver, 'N') || '.EA'
-    IF \VRFileExists( newdrvdir'\'eafile ) THEN
-        ADDRESS CMD '@EAUTIL' newdrvdir'\'drv_name ea_file '/s /p 2>NUL 1>NUL'
+    IF VRFileExists( newdrvdir'\'eafile ) THEN
+        CALL VRDeleteFile newdrvdir'\'eafile
+    ADDRESS CMD '@EAUTIL' newdrvdir'\'drv_name newdrvdir'\'eafile '/s /p 2>NUL 1>NUL'
 
 RETURN 1