Changeset 319 for branches/guitools-2.0/shared/smbtree.vrs

Timestamp:

Aug 25, 2009, 9:17:41 AM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: More work on EVFSGUI V.next (several additions)

File:

• branches/guitools-2.0/shared/smbtree.vrs (modified) (4 diffs)

branches/guitools-2.0/shared/smbtree.vrs

@@ -11 +11 @@
         UserCred = '-N'
     end
+
+    if ShowHidden = 'SHOWHIDDEN' | ShowHidden = '' then ShowHidden = 1
+
     say 'detach 'samba.!smbtreeexe' 'debuglevel' 'UserCred' >'samba.!msg
     address cmd 'detach 'samba.!smbtreeexe' 'debuglevel' 'UserCred' >'samba.!msg
@@ -63 +66 @@
                     parent = smbtree.!machine
                     smbtree.!share = VRMethod( "CN_smbtree", "AddRecord",parent,, share||'0D0A'x||comment, res)
+                    if pos("$", share) > 0 then ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!share, "Visible", ShowHidden)
                 end
             end
@@ -146 +150 @@
 */
 _GuessIcon: procedure
-    text = arg(1)
+    text = translate(arg(1))
     select /* Printer guessing */
         when pos('LJ',text)      > 0 then res = '#65:PMWP.DLL'
@@ -158 +162 @@
         when pos('LEXMARK',text) > 0 then res = '#65:PMWP.DLL'
         when pos('IPC$',text)    > 0 then res = '#59:PMWP.DLL'
+        when pos('GHOSTPDF',text)> 0 then res = '#65:PMWP.DLL'
+        when pos('PDF',text)     > 0 & ,
+             pos('WRI',text)     > 0 then res = '#65:PMWP.DLL'
         otherwise res = "#34:PMWP.DLL"
     end