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 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("Cancel", 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 
             installLibs(GUICtrlRead( $pathInput ), GUICtrlRead( $scopeCombo ))
             
        Case $msg = $browseButton 
             updatePath( $pathInput )
        Case $msg = $cancelButton 
             ExitLoop
             
        EndSelect
WEnd