| Line 13... |
Line 13... |
| 13 |
#include <GUIConstants.au3
|
13 |
#include <GUIConstants.au3
|
| 14 |
|
14 |
|
| 15 |
|
15 |
|
| 16 |
|
16 |
|
| 17 |
; == GUI generated with Koda ==);
|
17 |
; == GUI generated with Koda ==);
|
| - |
|
18 |
#include <GUIConstants.au3
|
| - |
|
19 |
; == GUI generated with Koda ==);
|
| 18 |
$GELinstall_src = GUICreate("GEL source Installer", 622, 442, 389, 119)
|
20 |
$GELinstall_src = GUICreate("GEL source Installer", 474, 281, 389, 119)
|
| 19 |
$Button1 = GUICtrlCreateButton("Do It!", 32, 384, 320, 41, 0)
|
21 |
$DoitButton = GUICtrlCreateButton("Do It!", 16, 192, 192, 41, 0)
|
| 20 |
$Group3 = GUICtrlCreateGroup("Install Path (where GEL is build and 3rd party libs are copied to)", 32, 32, 553, 89)
|
22 |
$Group3 = GUICtrlCreateGroup("Install Path (where GEL is build and 3rd party libs are copied to)", 16, 32, 432, 89)
|
| 21 |
$Input1 = GUICtrlCreateInput("c:\GEL", 48, 64, 489, 24)
|
23 |
$pathInput = GUICtrlCreateInput("c:\GEL", 32, 64, 345, 24)
|
| 22 |
$Button2 = GUICtrlCreateButton("...", 544, 64, 27, 25, 0)
|
24 |
$browseButton = GUICtrlCreateButton("...", 400, 64, 27, 25, 0)
|
| 23 |
GUICtrlCreateGroup("", -99, -99, 1, 1)
|
25 |
GUICtrlCreateGroup("", -99, -99, 1, 1)
|
| 24 |
;$Combo1 = GUICtrlCreateCombo("", 208, 144, 145, 24)
|
- |
|
| 25 |
;GUICtrlSetData(-1, "2003|2005", "2003")
|
- |
|
| 26 |
;GUICtrlCreateLabel("Visual Studio Version", 32, 144, 131, 20, $SS_CENTERIMAGE)
|
- |
|
| 27 |
;GUICtrlCreateLabel("Library Type", 32, 192, 80, 20, $SS_CENTERIMAGE)
|
- |
|
| 28 |
GUICtrlCreateLabel("Environment variable scope", 32, 240, 171, 20, $SS_CENTERIMAGE)
|
26 |
GUICtrlCreateLabel("Environment variable scope", 16, 144, 187, 20, $SS_CENTERIMAGE)
|
| 29 |
;$Combo2 = GUICtrlCreateCombo("", 208, 192, 145, 24)
|
- |
|
| 30 |
;GUICtrlSetData(-1, "Separate Libraries|Single Library|CGLA Only", "Separate Libraries")
|
- |
|
| 31 |
$Combo3 = GUICtrlCreateCombo("", 208, 240, 145, 24)
|
27 |
$scopeCombo = GUICtrlCreateCombo("", 240, 144, 208, 24)
|
| 32 |
GUICtrlSetData(-1, "Current User|System", "Current User")
|
28 |
GUICtrlSetData(-1, "Current User|System", "Current User")
|
| 33 |
$Button3 = GUICtrlCreateButton("Close", 368, 384, 192, 41, 0)
|
29 |
$cancelButton = GUICtrlCreateButton("Cancel", 240, 192, 208, 41, 0)
|
| 34 |
;$Checkbox1 = GUICtrlCreateCheckbox("Install Perl", 32, 304, 145, 17)
|
- |
|
| 35 |
GUISetState(@SW_SHOW)
|
30 |
GUISetState(@SW_SHOW)
|
| - |
|
31 |
|
| - |
|
32 |
|
| 36 |
While 1
|
33 |
While 1
|
| 37 |
$msg = GuiGetMsg()
|
34 |
$msg = GuiGetMsg()
|
| 38 |
Select
|
35 |
Select
|
| 39 |
Case $msg = $GUI_EVENT_CLOSE
|
36 |
Case $msg = $GUI_EVENT_CLOSE
|
| 40 |
ExitLoop
|
37 |
ExitLoop
|
| 41 |
Case $msg = $Button1
|
38 |
Case $msg = $DoitButton
|
| 42 |
installLibs(GUICtrlRead($Input1), GUICtrlRead($Combo3))
|
39 |
;installLibs(GUICtrlRead( $pathInput ), GUICtrlRead( $scopeCombo ))
|
| - |
|
40 |
installAll(GUICtrlRead( $pathInput ), GUICtrlRead( $scopeCombo ))
|
| 43 |
|
41 |
|
| 44 |
Case $msg = $Button2
|
42 |
Case $msg = $browseButton
|
| 45 |
updatePath($Input1)
|
43 |
updatePath( $pathInput )
|
| 46 |
Case $msg = $Button3
|
44 |
Case $msg = $cancelButton
|
| 47 |
ExitLoop
|
45 |
ExitLoop
|
| 48 |
|
46 |
|
| 49 |
EndSelect
|
47 |
EndSelect
|
| 50 |
WEnd
|
48 |
WEnd
|
| 51 |
|
49 |
|