Subversion Repositories gelsvn

; ----------------------------------------------------------------------------

;

; AutoIt Version: 3.1.0

; Author:         A.N.Other <myemail@nowhere.com>

;

; Script Function:

;	Template AutoIt script.

;

; ----------------------------------------------------------------------------

#include <GELfunc.au3>

#include <GUIConstants.au3

; == GUI generated with Koda ==);

#include <GUIConstants.au3

; == GUI generated with Koda ==);

$GELinstall_src = GUICreate("GEL source Installer", 474, 281, 389, 119)

$DoitButton = GUICtrlCreateButton("Do It!", 16, 192, 192, 41, 0)

$Group3 = GUICtrlCreateGroup("Install Path (where GEL and 3rd party libs are copied to)", 16, 32, 432, 89)

$pathInput = GUICtrlCreateInput("c:\GEL", 32, 64, 345, 24)

$browseButton = GUICtrlCreateButton("...", 400, 64, 27, 25, 0)

GUICtrlCreateGroup("", -99, -99, 1, 1)

GUICtrlCreateLabel("Environment variable scope", 16, 144, 187, 20, $SS_CENTERIMAGE)

$scopeCombo = GUICtrlCreateCombo("", 240, 144, 208, 24)

GUICtrlSetData(-1, "Current User|System", "Current User")

$cancelButton = GUICtrlCreateButton("Close", 240, 192, 208, 41, 0)

useExisting($pathInput , GUICtrlRead( $scopeCombo ))

GUISetState(@SW_SHOW)

While 1

	$msg = GuiGetMsg()

	Select

	Case $msg = $GUI_EVENT_CLOSE

		ExitLoop

	Case $msg = $DoitButton 

             installAll(GUICtrlRead( $pathInput ), GUICtrlRead( $scopeCombo ))

	Case $msg = $browseButton 

             updatePath( $pathInput )

        Case $msg = $cancelButton 

             ExitLoop

	EndSelect

WEnd