installer: squash all warnings (except of one that comes later); remove unused code

git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@39496 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
Uwe Stöhr 2011-08-19 21:38:26 +00:00
parent b505d06116
commit 6b36f46b4f
3 changed files with 44 additions and 101 deletions

View File

@ -8,27 +8,27 @@ downloaded or installed (depending on the type of installer)
*/ */
Var ExternalPage #Var ExternalPage
Var ExternalPage.Info #Var ExternalPage.Info
Var ExternalPage.Setup #Var ExternalPage.Setup
Var ExternalPage.Existing #Var ExternalPage.Existing
Var ExternalPage.Folder #Var ExternalPage.Folder
Var ExternalPage.Folder.Text #Var ExternalPage.Folder.Text
Var ExternalPage.Folder.Return #Var ExternalPage.Folder.Return
Var ExternalPage.FolderBrowse #Var ExternalPage.FolderBrowse
Var ExternalPage.FolderInfo #Var ExternalPage.FolderInfo
Var ExternalPage.NoInstall #Var ExternalPage.NoInstall
Var ExternalPage.RadioButton.Click #Var ExternalPage.RadioButton.Click
Var ExternalPage.FolderBrowse.Click #Var ExternalPage.FolderBrowse.Click
Var LaTeXState #Var LaTeXState
Var LaTeXSetup.State #Var LaTeXSetup.State
Var LaTeXExisting.State #Var LaTeXExisting.State
Var LaTeXNoInstall.State #Var LaTeXNoInstall.State
Var ControlState #Var ControlState
Var ComponentSize #Var ComponentSize
!macro EXTERNAL_SHOWDIALOG COMPONENT !macro EXTERNAL_SHOWDIALOG COMPONENT
@ -36,8 +36,8 @@ Var ComponentSize
!insertmacro MUI_HEADER_TEXT $(TEXT_EXTERNAL_${COMPONENT}_TITLE) $(TEXT_EXTERNAL_${COMPONENT}_SUBTITLE) !insertmacro MUI_HEADER_TEXT $(TEXT_EXTERNAL_${COMPONENT}_TITLE) $(TEXT_EXTERNAL_${COMPONENT}_SUBTITLE)
GetFunctionAddress $ExternalPage.RadioButton.Click ExternalRadioButtonClick # GetFunctionAddress $ExternalPage.RadioButton.Click ExternalRadioButtonClick
GetFunctionAddress $ExternalPage.FolderBrowse.Click ExternalFolderBrowseClick # GetFunctionAddress $ExternalPage.FolderBrowse.Click ExternalFolderBrowseClick
nsDialogs::Create /NOUNLOAD 1018 nsDialogs::Create /NOUNLOAD 1018
Pop $ExternalPage Pop $ExternalPage
@ -104,7 +104,7 @@ Var ComponentSize
${NSD_SetState} $ExternalPage.NoInstall $${COMPONENT}NoInstall.State ${NSD_SetState} $ExternalPage.NoInstall $${COMPONENT}NoInstall.State
${EndIf} ${EndIf}
Call ExternalRadioButtonClick #Call ExternalRadioButtonClick
nsDialogs::Show nsDialogs::Show
@ -163,43 +163,43 @@ Var ComponentSize
!macroend !macroend
Function ExternalRadioButtonClick #Function ExternalRadioButtonClick
# Enable the folder selection controls depending # Enable the folder selection controls depending
# if the option to use an existing installation is selected # if the option to use an existing installation is selected
${NSD_GetState} $ExternalPage.Existing $ControlState # ${NSD_GetState} $ExternalPage.Existing $ControlState
${If} $ControlState = ${BST_CHECKED} # ${If} $ControlState = ${BST_CHECKED}
EnableWindow $ExternalPage.Folder 1 # EnableWindow $ExternalPage.Folder 1
EnableWindow $ExternalPage.FolderBrowse 1 # EnableWindow $ExternalPage.FolderBrowse 1
EnableWindow $ExternalPage.FolderInfo 1 # EnableWindow $ExternalPage.FolderInfo 1
${Else} # ${Else}
EnableWindow $ExternalPage.Folder 0 # EnableWindow $ExternalPage.Folder 0
EnableWindow $ExternalPage.FolderBrowse 0 # EnableWindow $ExternalPage.FolderBrowse 0
EnableWindow $ExternalPage.FolderInfo 0 # EnableWindow $ExternalPage.FolderInfo 0
${EndIf} # ${EndIf}
FunctionEnd #FunctionEnd
Function ExternalFolderBrowseClick #Function ExternalFolderBrowseClick
# Browse button clicked # Browse button clicked
# Get current folder to set as default # Get current folder to set as default
${NSD_GetText} $ExternalPage.Folder $ExternalPage.Folder.Text # ${NSD_GetText} $ExternalPage.Folder $ExternalPage.Folder.Text
# Browse for new folder # Browse for new folder
nsDialogs::SelectFolderDialog /NOUNLOAD "" $ExternalPage.Folder.Text # nsDialogs::SelectFolderDialog /NOUNLOAD "" $ExternalPage.Folder.Text
Pop $ExternalPage.Folder.Return # Pop $ExternalPage.Folder.Return
${If} $ExternalPage.Folder.Return != error # ${If} $ExternalPage.Folder.Return != error
StrCpy $ExternalPage.Folder.Text $ExternalPage.Folder.Return # StrCpy $ExternalPage.Folder.Text $ExternalPage.Folder.Return
${EndIf} # ${EndIf}
${NSD_SetText} $ExternalPage.Folder $ExternalPage.Folder.Text # ${NSD_SetText} $ExternalPage.Folder $ExternalPage.Folder.Text
FunctionEnd #FunctionEnd
# Page functions # Page functions

View File

@ -134,63 +134,6 @@ FunctionEnd
#-------------------------------- #--------------------------------
Function GetParentA
# deletes a subfolder of the APPDATA path for all users
# used by the function "un.getUsers"
Exch $R0
Push $R1
Push $R2
Push $R3
StrCpy $R1 0
StrLen $R2 $R0
loop:
IntOp $R1 $R1 + 1
IntCmp $R1 $R2 get 0 get
StrCpy $R3 $R0 1 -$R1
StrCmp $R3 "\" get
Goto loop
get:
StrCpy $R0 $R0 -$R1
Pop $R3
Pop $R2
Pop $R1
Exch $R0
FunctionEnd
#--------------------------------
Function GetUsers
# reads the subfolders of the "Documents and Settings" folder to get a list of the users
StrCpy $R3 ""
Push "$PROFILE"
Call GetParentA
Pop $R2
StrCpy $R2 "$R2"
FindFirst $R0 $R1 "$R2\*"
StrCmp $R1 "" findend 0
findloop:
IfFileExists "$R2\$R1\*.*" 0 notDir
StrCmp $R1 "." notDir
StrCmp $R1 ".." notDir
StrCmp $R1 "All Users" notDir
StrCmp $R1 "Default User" notDir
StrCmp $R1 "All Users.WINNT" notDir
StrCmp $R1 "Default User.WINNT" notDir
StrCpy $R3 "$R3|$R1"
notDir:
FindNext $R0 $R1
StrCmp $R1 "" findend 0
Goto findloop
findend:
FindClose $R0
FunctionEnd
#--------------------------------
Function un.GetParentA Function un.GetParentA
# deletes a subfolder of the APPDATA path for all users # deletes a subfolder of the APPDATA path for all users
# used by the function "un.getUsers" # used by the function "un.getUsers"

View File

@ -10,8 +10,8 @@ Var PathLaTeX
Var PathLaTeXLocal Var PathLaTeXLocal
Var PathBibTeXEditor Var PathBibTeXEditor
Var SetupLaTeX #Var SetupLaTeX
Var SizeLaTeX #Var SizeLaTeX
Var Acrobat Var Acrobat
Var APPDATemp Var APPDATemp