Changeset 634

Timestamp:

Sep 13, 2011, 8:48:04 AM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI 2.1.x: Fetch missing credentials for browsing

Location:

branches/guitools-2.0/evfsgui

Files:

• evfsgui.VRP (modified) (1 diff)
• evfsgui.VRX (modified) (4 diffs)

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,6486,1665
+VRXWindow: __VREToolsWindow,1,2529,723,6489,1667
 VRXWindow: __VREWindListWindow,1,542,8721,2951,3150
 UserFile: 1

branches/guitools-2.0/evfsgui/evfsgui.VRX

@@ -740 +740 @@
     credentials.!password = VRGet("EF_PASSWORD","Value")
 
-    if advanced.!browseauth = 1 & credentials.!username = "" then do
-        window = VRLoadSecondary( "SW_LOGIN", "W" )
-    end
-
     if pos("4OS2", value("COMSPEC",,"OS2ENVIRONMENT")) = 0
         then UserCred = '--user='Credentials.!username'%'Credentials.!password
@@ -2021 +2017 @@
     main_iwidth  = VRGet("Main","InteriorWidth")                /* Width of window client-area */
     main_iheight = VRGet("Main","InteriorHeight")               /* Height of window client-area */
-say main_iheight
+
     if main_iheight < 5500 then ok = VRSet("Main","Height",6200)
     sbar_height  = VRGet("GB_STATUSBAR","Height")               /* Height of status-bar */
@@ -3612 +3608 @@
 PB_REFRESH_Click: PROCEDURE EXPOSE settings. options. icons. fs. samba. debuglevel advanced. UserCred Refreshmode
     IF options.!debug == 1 THEN SAY time()' '||"PB_REFRESH_Click started"
+
+    if advanced.!browseauth = 1 & (UserCred = "--user=%" | UserCred = "" ) then do
+        window = VRLoadSecondary( "SW_LOGIN", "W" )
+    end
+
     call _UserCredUpdate
     ok = VRset("Pict_Throbber", "Visible", 1)
@@ -3900 +3901 @@
     OldPos = VRGet("SPLIT_Main","Left")
     ok = VRSet("SPLIT_Main","Left", NewPos)
-    ok = VRset("GB_SMBTREE","Left",NewPos+60)
+    ok = VRset("GB_SMBTREE","Left", NewPos+60)
     call Main_Resize
     ok = VRset("Main", "Painting", 1)