Subversion Repositories gelsvn

Rev

Rev 228 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
226 bj 1
; ----------------------------------------------------------------------------
2
;
3
; AutoIt Version: 3.1.0
4
; Author:         A.N.Other <myemail@nowhere.com>
5
;
6
; Script Function:
7
;	Template AutoIt script.
8
;
9
; ----------------------------------------------------------------------------
10
 
231 bj 11
 
228 bj 12
#include <GELfunc.au3>
13
#include <GUIConstants.au3
231 bj 14
 
15
 
16
 
228 bj 17
; == GUI generated with Koda ==);
18
$GELinstall_src = GUICreate("GEL source Installer", 622, 442, 389, 119)
231 bj 19
$Button1 = GUICtrlCreateButton("Do It!", 32, 384, 320, 41, 0)
228 bj 20
$Group3 = GUICtrlCreateGroup("Install Path (where GEL is build and 3rd party libs are copied to)", 32, 32, 553, 89)
21
$Input1 = GUICtrlCreateInput("c:\GEL", 48, 64, 489, 24)
22
$Button2 = GUICtrlCreateButton("...", 544, 64, 27, 25, 0)
23
GUICtrlCreateGroup("", -99, -99, 1, 1)
231 bj 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)
228 bj 28
GUICtrlCreateLabel("Environment variable scope", 32, 240, 171, 20, $SS_CENTERIMAGE)
231 bj 29
;$Combo2 = GUICtrlCreateCombo("", 208, 192, 145, 24)
30
;GUICtrlSetData(-1, "Separate Libraries|Single Library|CGLA Only", "Separate Libraries")
228 bj 31
$Combo3 = GUICtrlCreateCombo("", 208, 240, 145, 24)
32
GUICtrlSetData(-1, "Current User|System", "Current User")
231 bj 33
$Button3 = GUICtrlCreateButton("Close", 368, 384, 192, 41, 0)
34
;$Checkbox1 = GUICtrlCreateCheckbox("Install Perl", 32, 304, 145, 17)
228 bj 35
GUISetState(@SW_SHOW)
36
While 1
37
	$msg = GuiGetMsg()
38
	Select
39
	Case $msg = $GUI_EVENT_CLOSE
40
		ExitLoop
41
	Case $msg = $Button1
42
             installLibs(GUICtrlRead($Input1), GUICtrlRead($Combo3))
231 bj 43
 
228 bj 44
	Case $msg = $Button2
45
             updatePath($Input1)
46
        Case $msg = $Button3
231 bj 47
             ExitLoop
48
 
228 bj 49
	EndSelect
50
WEnd
226 bj 51
 
227 bj 52
 
53