Subversion Repositories gelsvn

Rev

Rev 236 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 236 Rev 237
Line 11... Line 11...
11 
 
 11 
 
12 
#include <GELfunc.au3>
 12 
#include <GELfunc.au3>
13 
#include <GUIConstants.au3
 13 
#include <GUIConstants.au3
14 
 
 14 
 
15 
 
 15 
 
16 
 
 - 
 
17 
; == GUI generated with Koda ==);
 16 
; == GUI generated with Koda ==);
18 
#include <GUIConstants.au3
 17 
#include <GUIConstants.au3
19 
; == GUI generated with Koda ==);
 18 
; == GUI generated with Koda ==);
20 
$GELinstall_src = GUICreate("GEL source Installer", 474, 281, 389, 119)
 19 
$GELinstall_src = GUICreate("GEL source Installer", 474, 281, 389, 119)
21 
$DoitButton = GUICtrlCreateButton("Do It!", 16, 192, 192, 41, 0)
 20 
$DoitButton = GUICtrlCreateButton("Do It!", 16, 192, 192, 41, 0)
Line 25... Line 24...
25 
GUICtrlCreateGroup("", -99, -99, 1, 1)
 24 
GUICtrlCreateGroup("", -99, -99, 1, 1)
26 
GUICtrlCreateLabel("Environment variable scope", 16, 144, 187, 20, $SS_CENTERIMAGE)
 25 
GUICtrlCreateLabel("Environment variable scope", 16, 144, 187, 20, $SS_CENTERIMAGE)
27 
$scopeCombo = GUICtrlCreateCombo("", 240, 144, 208, 24)
 26 
$scopeCombo = GUICtrlCreateCombo("", 240, 144, 208, 24)
28 
GUICtrlSetData(-1, "Current User|System", "Current User")
 27 
GUICtrlSetData(-1, "Current User|System", "Current User")
29 
$cancelButton = GUICtrlCreateButton("Cancel", 240, 192, 208, 41, 0)
 28 
$cancelButton = GUICtrlCreateButton("Cancel", 240, 192, 208, 41, 0)
- 
 
 29 
 
- 
 
 30 
useExisting($pathInput , GUICtrlRead( $scopeCombo ))
- 
 
 31 
 
30 
GUISetState(@SW_SHOW)
 32 
GUISetState(@SW_SHOW)
31 
 
 33 
 
32 
 
 34 
 
33 
While 1
 35 
While 1
34 
	$msg = GuiGetMsg()
 36 
	$msg = GuiGetMsg()