Changeset 1013 for trunk/guitools/sscc

Timestamp:

Mar 5, 2017, 12:41:06 PM (8 years ago)

Author:

Herwig Bauernfeind

Message:

GUITools: Optionally install Samba silently

Location:

trunk/guitools/sscc

Files:

• sscc.vrp (modified) (1 diff)
• sscc.vrx (modified) (3 diffs)
• sscc.vry (modified) ( previous)

trunk/guitools/sscc/sscc.vrp

@@ -2 +2 @@
 VRX: sscc.VRX
 VXOFile: VROBJEX
-MacroPath: VRM:U:\Develop\Samba\guitools-1.0\install
+MacroPath: VRM:U:\Develop\Samba\trunk\guitools\sscc
 EXEPath: 
 RunParameters: /install
-RunDirectory: U:\Develop\Samba\guitools-1.0\install
-VRXWindow: __VREMainWindow,1,2891,5541,1012,8106
-VRXWindow: __VRESectionListWindow,1,1421,14791,12129,4541
-VRXWindow: __VREToolsWindow,0,4031,11708,6992,1669
-VRXWindow: __VREWindListWindow,1,867,10166,3891,3150
+RunDirectory: U:\Develop\Samba\trunk\guitools\sscc
+VRXWindow: __VREMainWindow,1,2891,5637,5767,8000
+VRXWindow: __VRESectionListWindow,1,1518,13153,10431,3342
+VRXWindow: __VREToolsWindow,0,4031,11804,6992,1669
+VRXWindow: __VREWindListWindow,1,2096,13250,4710,3150
 UserFile: 1
 UserWindow: Main,1
-UserWindow: Installer,1

trunk/guitools/sscc/sscc.vrx

@@ -1015 +1015 @@
 */
 _SambaUserCreate: 
-    eCSUser = value("USER",,"OS2ENVIRONMENT")
-    if translate(eCSUser) <> "root" & translate(eCSUser) <> "guest" then do
-        Msg.Text = NLVGetMessage(75, eCSUser)
+    OS2User = value("USER",,"OS2ENVIRONMENT")
+    if translate(OS2User) <> "root" & translate(OS2User) <> "guest" then do
+        Msg.Text = NLVGetMessage(75, OS2User)
         Msg.Type = "I"
         call _ShowMsg
@@ -2355 +2355 @@
     Msg.Type = "I"
     call _ShowMsg
+    ok = SysSetObjectData("<sscc>","PARAMETERS=/config;")
+say "SysSetObjectData ok="ok
     call Installer_Fini
 return
@@ -2463 +2465 @@
 */
 Main_Create: 
-    ok = VRREdirectStdIO("ON")
-    options.!debug = 1
+    ok = VRREdirectStdIO("OFF")
+    options.!debug = 0
 
     call _LoadOtherFuncs