Changeset 43 for trunk/gui/printer/manager

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.

File:

• trunk/gui/printer/manager/PRINTOOL.VRX (modified) (1 diff)

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