Subversion Repositories gelsvn

Rev

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

Rev 227 Rev 228
Line 7... Line 7...
7 
;	Template AutoIt script.
 7 
;	Template AutoIt script.
8 
;
 8 
;
9 
; ----------------------------------------------------------------------------
 9 
; ----------------------------------------------------------------------------
10 
 
 10 
 
11 
; Script Start - Add your code below here
 11 
; Script Start - Add your code below here
- 
 
 12 
#include <GELfunc.au3>
- 
 
 13 
#include <GUIConstants.au3
- 
 
 14 
; == GUI generated with Koda ==);
- 
 
 15 
$GELinstall_src = GUICreate("GEL source Installer", 622, 442, 389, 119)
- 
 
 16 
$Button1 = GUICtrlCreateButton("Modify env vars and install 3rd party libs", 32, 384, 320, 41, 0)
- 
 
 17 
$Group3 = GUICtrlCreateGroup("Install Path (where GEL is build and 3rd party libs are copied to)", 32, 32, 553, 89)
- 
 
 18 
$Input1 = GUICtrlCreateInput("c:\GEL", 48, 64, 489, 24)
- 
 
 19 
$Button2 = GUICtrlCreateButton("...", 544, 64, 27, 25, 0)
- 
 
 20 
GUICtrlCreateGroup("", -99, -99, 1, 1)
- 
 
 21 
$Combo1 = GUICtrlCreateCombo("", 208, 144, 145, 24)
- 
 
 22 
GUICtrlSetData(-1, "2003|2005", "2003")
- 
 
 23 
GUICtrlCreateLabel("Visual Studio Version", 32, 144, 131, 20, $SS_CENTERIMAGE)
- 
 
 24 
GUICtrlCreateLabel("Library Type", 32, 192, 80, 20, $SS_CENTERIMAGE)
- 
 
 25 
GUICtrlCreateLabel("Environment variable scope", 32, 240, 171, 20, $SS_CENTERIMAGE)
- 
 
 26 
$Combo2 = GUICtrlCreateCombo("", 208, 192, 145, 24)
- 
 
 27 
GUICtrlSetData(-1, "Separate Libraries|Single Library|CGLA Only", "Separate Libraries")
- 
 
 28 
$Combo3 = GUICtrlCreateCombo("", 208, 240, 145, 24)
- 
 
 29 
GUICtrlSetData(-1, "Current User|System", "Current User")
- 
 
 30 
$Button3 = GUICtrlCreateButton("Build Solution", 368, 384, 192, 41, 0)
- 
 
 31 
$Checkbox1 = GUICtrlCreateCheckbox("Install Perl", 32, 304, 145, 17)
- 
 
 32 
GUISetState(@SW_SHOW)
- 
 
 33 
While 1
- 
 
 34 
	$msg = GuiGetMsg()
- 
 
 35 
	Select
- 
 
 36 
	Case $msg = $GUI_EVENT_CLOSE
- 
 
 37 
		ExitLoop
- 
 
 38 
	Case $msg = $Button1
- 
 
 39 
             installLibs(GUICtrlRead($Input1), GUICtrlRead($Combo3))
- 
 
 40 
	Case $msg = $Button2
- 
 
 41 
             updatePath($Input1)
- 
 
 42 
        Case $msg = $Button3
- 
 
 43 
             makeSolution(GUICtrlRead($Input1), GUICtrlRead($Combo1), GUICtrlRead($Combo2), GUICtrlRead($Combo3))
- 
 
 44
- 
 
 45 
	EndSelect
- 
 
 46 
WEnd
12 
 
 47 
 
13 
 
 48 
 
14 
 
 49 
 
15 
 
 - 
 
16 
$envloc = "HKCU\Environment"
 - 
 
17 
;$envloc = "HKLM\System\ControlSet001\Control\Session Manager\Environment"
 - 
 
18 
 
 - 
 
19 
;
 - 
 
20 
 
 - 
 
21 
;$Path = RegREad($envloc,"Path")
 - 
 
22 
;RegWrite($envloc,"Path","REG_EXPAND_SZ",$Path & "%GEL_BIN_PATH%")
 - 
 
23 
;RegWrite($envloc,"GEL_BIN","REG_EXPAND_SZ",$GELPath)
 - 
 
24 
 
 - 
 
25 
 
 -