Changeset 621

Timestamp:

Aug 9, 2011, 8:15:14 AM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI: Fix missing workgroup string, add help buttons

Location:

branches/guitools-2.0/evfsgui

Files:

• evfsgui.VRP (modified) (1 diff)
• evfsgui.VRX (modified) (13 diffs)
• evfsgui.VRY (modified) ( previous)

branches/guitools-2.0/evfsgui/evfsgui.VRP

@@ -10 +10 @@
 VRXWindow: __VREFileListWindow,1,807,11033,1590,3358
 VRXWindow: __VRESectionListWindow,1,2674,10648,8696,4794
-VRXWindow: __VREToolsWindow,1,2529,723,6489,1659
+VRXWindow: __VREToolsWindow,1,2529,723,6483,1663
 VRXWindow: __VREWindListWindow,1,542,8721,2951,3150
 UserFile: 1
 UserWindow: Main,1
-UserWindow: SW_MOUNTPOINT,1
 UserWindow: SW_INFO,1
 UserWindow: SW_PORTCONNECT,1

branches/guitools-2.0/evfsgui/evfsgui.VRX

@@ -458 +458 @@
     CALL NLVSetText 'DT_SERVER',   "Caption", 19
     CALL NLVSetText 'DT_SHARE',    "Caption", 20
+    CALL NLVSetText 'DT_NETWORK',  "Caption", 21
     CALL NLVSetText 'CHK_MTYPE',   "Caption", 23
     CALL NLVSetText 'PB_ADVANCED', "Caption", 24
@@ -465 +466 @@
     CALL NLVSetText 'PB_MOUNT',    "Caption", 28
     CALL NLVSetText 'PB_EDITCANCEL',"Caption", 3
+    CALL NLVSetText 'PB_DIALOGHELP',"Caption", 4
 
     CALL NLVSetText 'PB_AUTOSTART',"Caption", 35
@@ -471 +473 @@
     CALL NLVSetText 'PB_LOAD',     "Caption", 31
     CALL NLVSetText 'PB_HELP',     "Caption", 4
+    CALL NLVSetText 'PB_CONDET_HELP',"Caption", 4
+    CALL NLVSetText 'PB_SMBTREE_HELP',"Caption", 4
 
     CALL NLVSetText 'MENU_CONTEXT_DETACH',        "Caption", 11
@@ -1344 +1348 @@
     IF options.!debug == 1 THEN SAY time()' CN_SMBTREE_DoubleClick done'
 return
+/*:VRX         CN_SMBTREE_DragFile
+*/
+CN_SMBTREE_DragFile: 
+    IF options.!debug == 1 THEN SAY time()' CN_SMBTREE_DragFile started'
+
+    obj = VRInfo( "object" )
+
+    ok = VRMethod( "CN_SMBTREE", "GetRecordList", "SourceOrSelected", "SelRH." )
+    if SelRH.0 = 0 then do
+        IF options.!debug == 1 THEN SAY time()' CN_SMBTREE_DragStart aborted'
+        return
+    end
+
+    call _dropdeprecated
+    call _GetSMBObjectProperties SelRH.1
+
+    select
+        when SMBObj.udatatype = "WORKGROUP" | SMBObj.udatatype = "SERVER" | SMBObj.udatatype = "DISK" then do
+            call VRMethod obj, 'StartDrag'
+        end
+        when SMBObj.udatatype = "PRINTER" then do
+            CALL VRMessage 'Main', NLVGetMessage( 62 ), NLVGetMessage( 5 ), 'E'
+        end
+        otherwise nop /* FILE DIRECTORY */
+    end
+
+    IF options.!debug == 1 THEN SAY time()' CN_SMBTREE_DragFile done'
+return
+
 /*:VRX         CN_SMBTREE_DragStart
 */
@@ -1841 +1874 @@
         ok = VRSet("Menu_View_Buttons","Checked", settings.!buttonson)
         ok = VRset("GB_Buttons","Visible", settings.!buttonson)
+        ok = VRset("PB_DIALOGHELP","Visible", \settings.!buttonson)
+        ok = VRset("PB_CONDET_HELP","Visible", \settings.!buttonson)
+        ok = VRset("PB_SMBTREE_HELP","Visible", \settings.!buttonson)
+
         options.!buttondelta = 440 * settings.!buttonson
 
@@ -2058 +2095 @@
     ok = VRset("PB_REFRESH", "Left",   VRGet("PB_CONNECT","Width") + marginx2)
     ok = VRset("PB_REFRESH", "Top",    pane_height - pbtn_height   - marginx2)
+    ok = VRset("PB_SMBTREE_HELP", "Left", rpane_width - marginx2 - VRGet("PB_SMBTREE_HELP","Width") + 24)
+    ok = VRset("PB_SMBTREE_HELP", "Top",  pane_height - pbtn_height - marginx2)
 
     ok = VRset("PICT_THROBBER", "Top",  VRGet("CN_SMBTREE","Height") % 2 + 100 )
@@ -2091 +2130 @@
     ok = VRset("PB_CONDET_LOAD", "Left", VRGet("PB_CONDET_SAVE","Width") + marginx2)
     ok = VRset("PB_CONDET_LOAD", "Top",  pane_height - pbtn_height - marginx2      )
+    ok = VRset("PB_CONDET_HELP", "Left", rpane_width - marginx2 - VRGet("PB_CONDET_HELP","Width") + 24)
+    ok = VRset("PB_CONDET_HELP", "Top",  pane_height - pbtn_height - marginx2)
 
     /* Dialog stuff */
@@ -2111 +2152 @@
     ok = VRset("PB_EDITCANCEL", "Left", VRGet("PB_MOUNT","Width") + marginx2)
     ok = VRset("PB_EDITCANCEL", "Top",  pane_height - pbtn_height - marginx2)
+
+    ok = VRset("PB_DIALOGHELP", "Left", rpane_width - marginx2 - VRGet("PB_DIALOGHELP","Width") + 24)
+    ok = VRset("PB_DIALOGHELP", "Top",  pane_height - pbtn_height - marginx2)
+
 
     ok = VRset("GB_SHARE", "Left",  margin )
@@ -2514 +2559 @@
         ok = VRSet("Menu_View_Buttons","Checked",0)
         ok = VRset("GB_Buttons","Visible", 0)
+        ok = VRset("PB_DIALOGHELP","Visible", 1)
+        ok = VRset("PB_CONDET_HELP","Visible", 1)
+        ok = VRset("PB_SMBTREE_HELP","Visible", 1)
         options.!buttondelta = 0
         settings.!buttonson = 0
@@ -2520 +2568 @@
     else do
         ok = VRSet("GB_Buttons","Visible", 1)
+        ok = VRset("PB_DIALOGHELP","Visible", 0)
+        ok = VRset("PB_CONDET_HELP","Visible", 0)
+        ok = VRset("PB_SMBTREE_HELP","Visible", 0)
         ok = VRSet("Menu_View_Buttons","Checked",1)
         options.!buttondelta = buttons_height
@@ -3046 +3097 @@
 PB_CLOSE_Click:
     CALL Quit
+return
+
+/*:VRX         PB_CONDET_HELP_Click
+*/
+PB_CONDET_HELP_Click:
+    CALL VRMethod 'GB_CONDET', 'InvokeHelp'
 return
 
@@ -3271 +3328 @@
 RETURN
 
+/*:VRX         PB_DIALOGHELP_Click
+*/
+PB_DIALOGHELP_Click:
+    CALL VRMethod 'GB_DIALOG', 'InvokeHelp'
+return
+
 /*:VRX         PB_EDITCANCEL_Click
 */
@@ -3649 +3712 @@
 
     CALL SW_SETTINGS_Close
+return
+
+/*:VRX         PB_SMBTREE_HELP_Click
+*/
+PB_SMBTREE_HELP_Click:
+    CALL VRMethod 'GB_SMBTREE', 'InvokeHelp'
 return