Changeset 451 for branches/guitools-1.0/smbusers/smbusers.VRX

Timestamp:

May 25, 2010, 6:17:14 PM (15 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: SSCC 1.0.0, SMBUsers 0.9.8 several fixes, rest

File:

• branches/guitools-1.0/smbusers/smbusers.VRX (modified) (7 diffs)

branches/guitools-1.0/smbusers/smbusers.VRX

@@ -91 +91 @@
 __VXREXX____APPENDS__:
 /*
-#append U:\Develop\Samba\guitools-1.0\shared\nlv.vrs
+#append U:\Develop\Samba\guitools-2.0\shared\nlv.vrs
 #append U:\Develop\Samba\guitools-1.0\shared\inittempDir.vrs
 #append U:\Develop\Samba\guitools-1.0\shared\sambainit.vrs
@@ -614 +614 @@
     call rxfuncadd 'IniLoadFuncs', 'REXXINI', 'IniLoadFuncs'
     call IniLoadFuncs
+
+    call RxFuncAdd 'PRLoadFuncs',  'PR1UTIL', 'PRLoadFuncs'
+    call PRLoadFuncs
 
     /* Deal with DRCtrlxxx */
@@ -1613 +1616 @@
 /*:VRX         _UserRecWriteBackToStems
 */
-_UserRecWriteBackToStems: 
+_UserRecWriteBackToStems:
+    if \VRIsValidObject( RH )  then return
     Cur = VRMethod("CN_Users","GetFieldData", RH, NrFH)
     Username.Cur = VRMethod("CN_Users","GetFieldData", RH, UsernameFH) 
@@ -2119 +2123 @@
 return
 
+/*:VRX         CN_Users_Click
+*/
+CN_Users_Click: 
+    if VRInfo("Top") < 1325 & VRGet("CN_Users", "View") = "Detail" then return
+return
+
 /*:VRX         CN_Users_ContextMenu
 */
 CN_Users_ContextMenu: 
+    say VRInfo("top")
     if VRInfo("Top") < 1325 & VRGet("CN_users", "View") = "Detail" then call _ColumnsMenu "CN_users"
     else do
@@ -2136 +2147 @@
 */
 CN_Users_DoubleClick: 
+    if VRInfo("Top") < 340 & VRGet("CN_Users", "View") = "Detail" then return
     say 'CN_Users_DoubleClick() started'
     RH = VRInfo("Record")
@@ -2146 +2158 @@
 */
 CN_Users_EndEdit: 
+    if VRInfo("Top") < 340 & VRGet("CN_Users", "View") = "Detail" then do
+        say VRInfo("Object")
+        return
+    end
     call beep 880, 20
     RH = VRInfo("Record")
@@ -3089 +3105 @@
 
     call _SambaInit
+say "hier!"
     if ErrorState then call _OnErrorDisable
+say "hier jetzt!"
     if StartSamba then do
         address cmd samba.!smbcmd' start'
     end
+say "hier2!"
     if \_SambaRunning() then do
         Msg.Text  = NLVGetMessage(107)