Changeset 43 for trunk/gui

Timestamp:

Aug 16, 2013, 3:36:39 PM (12 years ago)

Author:

Alex Taylor

Message:

Refresh printer container when default flag is changed. Minor tweak to directory setup logic when adding a new PM driver.

Location:

trunk/gui

Files:

• printer/manager/PRINTOOL.VRX (modified) (1 diff)
• shared/PrManUtl.VRS (modified) (2 diffs)

trunk/gui/printer/manager/PRINTOOL.VRX

@@ -1888 +1888 @@
     _queue = VRMethod('CN_PRINTERS', 'GetFieldData', record, globals.!hcfPrinters.!queue )
     ok = RPUQueueDefault( _queue )
-/*
-    IF ok == 1 THEN DO
-        CALL VRSet 'MI_PRINTER_DEFAULT', 'Checked', 1
-        _flags = VRMethod('CN_PRINTERS', 'GetFieldData', record, globals.!hcfPrinters.!flags )
-        IF POS( _flags, 'D') == 0 THEN DO
-            _flags = 'D'_flags
-            CALL VRMethod 'CN_PRINTERS', 'SetFieldData', record, globals.!hcfPrinters.!flags, _flags
-        END
-    END
-*/
+
+/*** Would also need to remove 'D' flag from previous default printer.  Simpler
+ *** just to call RefreshPrinters (below) instead.
+ *
+ *  IF ok == 1 THEN DO
+ *      CALL VRSet 'MI_PRINTER_DEFAULT', 'Checked', 1
+ *      _flags = VRMethod('CN_PRINTERS', 'GetFieldData', record, globals.!hcfPrinters.!flags )
+ *      IF POS( _flags, 'D') == 0 THEN DO
+ *          _flags = 'D'_flags
+ *          CALL VRMethod 'CN_PRINTERS', 'SetFieldData', record, globals.!hcfPrinters.!flags, _flags
+ *      END
+ *  END
+ */
+
     CALL VRMethod 'CN_PRINTERS', 'SetRecordAttr', record, 'Source', 0
+    CALL RefreshPrinters
 RETURN ok
 

trunk/gui/shared/PrManUtl.VRS

@@ -234 +234 @@
 
     drv_dir = VRParseFilePath( driver, 'DP')
+    drv_name = VRParseFilePath( driver, 'NE')
     IF drv_dir == '' THEN RETURN 0
+
 
     IF VerifyDriverEAs( driver ) == 0 THEN RETURN 0
@@ -270 +272 @@
         DROP filelist
     END
+
+    eafile = VRParseFilePath( driver, 'N') || '.EA'
+    IF \VRFileExists( newdrvdir'\'eafile ) THEN
+        ADDRESS CMD '@EAUTIL' newdrvdir'\'drv_name ea_file '/s /p 2>NUL 1>NUL'
 
 RETURN 1