Subversion Repositories gelsvn

Rev

Rev 232 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 232 Rev 237
Line 27... Line 27...
27 
    If $text <> "" Then
 27 
    If $text <> "" Then
28 
      GUICtrlSetData($inpubox, $text)
 28 
      GUICtrlSetData($inpubox, $text)
29 
    EndIf
 29 
    EndIf
30 
EndFunc
 30 
EndFunc
31 
 
 31 
 
- 
 
 32 
Func useExisting(ByRef $inpubox, $scope)
- 
 
 33 
  $envloc = EnvLocal($scope)
- 
 
 34 
  $prevPath = RegRead($envloc,"GEL_LIB")
- 
 
 35
- 
 
 36 
    If $prevPath <> "" Then
- 
 
 37 
      GUICtrlSetData($inpubox, StringTrimRight($prevPath, 4 ))
- 
 
 38 
    EndIf
- 
 
 39 
 
- 
 
 40 
EndFunc
- 
 
 41 
 
32 
Func installLibs($GELpath, $scope)
 42 
Func installLibs($GELpath, $scope)
33
43
34 
  $envloc = EnvLocal($scope)
 44 
  $envloc = EnvLocal($scope)
35 
 
 45 
 
36 
  RegWrite($envloc,"GEL_INCLUDE","REG_EXPAND_SZ",$GELpath & "\include")
 46 
  RegWrite($envloc,"GEL_INCLUDE","REG_EXPAND_SZ",$GELpath & "\include")