trunk/pygtk/create.nsi

; NSIS script to create an ASCEND binary installer.
; by John Pye, 2006.
;
; Based on example2.nsi from the NSIS distribution.
;
; This script is based on example1.nsi, but it remembers the directory, 
; has uninstall support and (optionally) installs start menu shortcuts.
;
; It will install example2.nsi into a directory that the user selects,

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

; The name of the installer
Name "ASCEND"

!include LogicLib.nsh

; The file to write
!ifdef OUTFILE
OutFile ${OUTFILE}.exe
!else
OutFile ascend-setup.exe
!endif


;SetCompressor /FINAL zlib
SetCompressor /SOLID lzma

; The default installation directory
InstallDir $PROGRAMFILES\ASCEND

; Registry key to check for directory (so if you install again, it will 
; overwrite the old one automatically)
InstallDirRegKey HKLM "Software\ASCEND" "Install_Dir"

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

; Pages

Page components
Page directory
Page instfiles

UninstPage uninstConfirm
UninstPage instfiles

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

Var /GLOBAL PYOK
Var /GLOBAL PYPATH
Var /GLOBAL GTKOK
Var /GLOBAL GTKPATH
Var /GLOBAL GLADEOK
Var /GLOBAL GLADEPATH
Var /GLOBAL PYINSTALLED
Var /GLOBAL TCLOK
Var /GLOBAL TCLPATH
Var /GLOBAL TCLINSTALLED

Function .onInit
    StrCpy $PYINSTALLED ""
    StrCpy $TCLINSTALLED ""

    Call DetectPython
    Pop $PYOK
    Pop $PYPATH
    
    Call DetectGTK
    Pop $GTKOK
    Pop $GTKPATH

    Call DetectGlade
    Pop $GLADEOK
    Pop $GLADEPATH  
    
    Call DetectTcl
    Pop $TCLOK
    Pop $TCLPATH    
    
FunctionEnd


; The stuff to install
Section "ASCEND (required)"
    SectionIn RO

    DetailPrint "--- COMMON FILES ---"

    ; Set output path to the installation directory.
    SetOutPath $INSTDIR
    File "..\ascend.dll"
    File "..\ascend-config"

    ; Model Library
    SetOutPath $INSTDIR\models
    File /r /x .svn "..\models\*.a4*"
    File /r /x .svn "..\models\*.tcl"
    File /r /x .svn "..\models\*.dll" ; extension modules
    File /r /x .svn "..\models\*.py"; python modules

    SetOutPath $INSTDIR
    File "Makefile.bt"
    File "ascend.syn"

    ; Set 'librarypath' in .ascend.ini
    WriteINIstr $APPDATA\.ascend.ini Directories librarypath "$DOCUMENTS\ascdata;$INSTDIR\models"

    ; Write the installation path into the registry
    WriteRegStr HKLM SOFTWARE\ASCEND "Install_Dir" "$INSTDIR"

    ; Write the uninstall keys for Windows
    WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND" "DisplayName" "ASCEND Simulation Environment"
    WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND" "UninstallString" '"$INSTDIR\uninstall.exe"'
    WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND" "NoModify" 1
    WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND" "NoRepair" 1
    WriteUninstaller "uninstall.exe"

    ; Write file locations to the registry for access from ascend-config
    WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_LIB" "$INSTDIR"
    WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_BIN" "$INSTDIR"
    WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_INCLUDE" "$INSTDIR\include"
    WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_ASCDATA" "$INSTDIR"
    WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_MODELS" "$INSTDIR\models"

    ; Create 'ascend-config.bat' batch file for launching the python script 'ascend-config'.
    ClearErrors
    FileOpen $0 $INSTDIR\ascend-config.bat w
    IfErrors ascendconfigerror
    FileWrite $0 "@echo off"
    FileWriteByte $0 "13"
    FileWriteByte $0 "10"
    FileWrite $0 "set PATH=$PYPATH;$GTKPATH"
    FileWriteByte $0 "13"
    FileWriteByte $0 "10"
    FileWrite $0 "cd "
    FileWrite $0 $INSTDIR 
    FileWriteByte $0 "13"
    FileWriteByte $0 "10"
    FileWrite $0 "$PYPATH\python "
    FileWriteByte $0 "34" 
    FileWrite $0 "$INSTDIR\ascend-config"
    FileWriteByte $0 "34"
    FileWrite $0 " %1 %2 %3 %4 %5 %6 %7 %8"
    FileWriteByte $0 "13"
    FileWriteByte $0 "10"

    FileClose $0

    Return
ascendconfigerror:
    MessageBox MB_OK "The 'ascend-config.bat' file was not installed properly; problems writing to that file."  
    
SectionEnd

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

Section "PyGTK GUI"
    ${If} $PYOK == 'OK'
        ${If} $GTKOK == 'OK'
            ${If} $GLADEOK == 'OK'
                ;MessageBox MB_OK "Python: $PYPATH, GTK: $GTKPATH"

                DetailPrint "--- PYTHON INTERFACE ---"

                ; Set output path to the installation directory.
                SetOutPath $INSTDIR

                ; Python interface
                File "_ascpy.dll"
                File "*.py"
                SetOutPath $INSTDIR\glade
                File "glade\*.glade"
                File "glade\*.png"

                ; Create 'ascend.bat' launcher for PyGTK interface
                ClearErrors
                FileOpen $0 $INSTDIR\ascend.bat w
                IfErrors pydone
                FileWrite $0 "@echo off"
                FileWriteByte $0 "13"
                FileWriteByte $0 "10"
                FileWrite $0 "set PATH=$PYPATH;$GTKPATH"
                FileWriteByte $0 "13"
                FileWriteByte $0 "10"
                FileWrite $0 "cd "
                FileWrite $0 $INSTDIR 
                FileWriteByte $0 "13"
                FileWriteByte $0 "10"
                FileWrite $0 "$PYPATH\python gtkbrowser.py --pygtk-assets="
                FileWriteByte $0 "34" 
                FileWrite $0 "$INSTDIR\glade"
                FileWriteByte $0 "34"
                FileWrite $0 " %1 %2 %3 %4 %5 %6 %7 %8"
                FileWriteByte $0 "13"
                FileWriteByte $0 "10"

                FileClose $0

                StrCpy $PYINSTALLED "1"
                WriteRegDWORD HKLM "SOFTWARE\ASCEND" "Python" 1 
            ${Else}
                MessageBox MB_OK "PyGTK GUI can not be installed, because Glade was not found on this system. If you do want to use the PyGTK GUI, please check the installation instructions ($GLADEPATH)"
            ${EndIf}                
        ${Else}
            MessageBox MB_OK "PyGTK GUI can not be installed, because GTK+ 2.0 was not found on this system. If you do want to use the PyGTK GUI, please check the installation instructions ($GTKPATH)"
        ${EndIf}
    ${Else}
        MessageBox MB_OK "PyGTK GUI can not be installed, because Python was not found on this system. If you do want to use the PyGTK GUI, please check the installation instructions ($PYPATH)"
    ${EndIf}
    Return
    
pydone:
    MessageBox MB_OK "PyGTK GUI was not installed properly -- problems with creating ascend.bar"    
SectionEnd

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

Section "Tcl/Tk GUI"

${If} $TCLOK != 'OK'
    MessageBox MB_OK "Tck/Tk GUI can not be installed, because ActiveTcl was not found on this system. If do you want to use the Tcl/Tk GUI, please check the installation instructions ($TCLPATH)"
${Else}
    DetailPrint "--- TCL/TK INTERFACE ---"
    SetOutPath $INSTDIR\tcltk
    File /r /x .svn "..\tcltk\TK\*"
    SetOutPath $INSTDIR
    File "..\tcltk\generic\interface\ascendtcl.dll"
    File "..\tcltk\generic\interface\ascend4.exe"
    
    StrCpy $TCLINSTALLED "!"
    WriteRegDWORD HKLM "SOFTWARE\ASCEND" "TclTk" 1

${EndIf}

SectionEnd

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

; Optional section (can be disabled by the user)
Section "Start Menu Shortcuts"
  
  WriteRegDWORD HKLM "SOFTWARE\ASCEND" "StartMenu" 1

  CreateDirectory "$SMPROGRAMS\ASCEND"
  CreateShortCut "$SMPROGRAMS\ASCEND\Uninstall.lnk" "$INSTDIR\uninstall.exe" "" "$INSTDIR\uninstall.exe" 0
  CreateShortCut "$SMPROGRAMS\ASCEND\ASCEND Tcl/Tk.lnk" "$INSTDIR\ascend4.exe" "" "$INSTDIR\ascend4.exe" 0

  ; Link to PyGTK GUI
  StrCmp $PYINSTALLED "" smdone smpython
smpython:
  CreateShortCut "$SMPROGRAMS\ASCEND\ASCEND.lnk" "$INSTDIR\ascend.bat" "" "$INSTDIR\ascend.bat" 0
smdone:
  
SectionEnd

;------------------------------------------------------------------
; UNINSTALLER

Section "Uninstall"

;--- python components ---

    ReadRegDWORD $0 HKLM "SOFTWARE\ASCEND" "Python"
    IntCmp $0 0 unnopython unpython
  
unpython:
    DetailPrint "--- REMOVING PYTHON COMPONENTS ---"
    Delete $INSTDIR\_ascpy.dll
    Delete $INSTDIR\ascend.bat
    Delete $INSTDIR\*.py
    Delete $INSTDIR\glade\*.glade
    Delete $INSTDIR\glade\*.png
    RmDir $INSTDIR\glade

unnopython:

;--- tcl/tk components ---

    ReadRegDWORD $0 HKLM "SOFTWARE\ASCEND" "TclTk"
    ${If} $0 != 0
        DetailPrint "--- REMOVING TCL/TK COMPONENTS ---"
        Delete $INSTDIR\ascendtcl.dll
        RMDir /r $INSTDIR\tcltk
    ${EndIf}

;--- start menu ---

    ReadRegDWORD $1 HKLM "SOFTWARE\ASCEND" "StartMenu"
    IntCmp $1 0 unnostart unstart 
unstart:
    ; Remove shortcuts, if any
    DetailPrint "--- REMOVING START MENU SHORTCUTS ---"
    RmDir /r "$SMPROGRAMS\ASCEND"

unnostart:

;--- common components ---

    DetailPrint "--- REMOVING COMMON COMPONENTS ---"
    ; Remove registry keys

    DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND"
    DeleteRegKey HKLM "SOFTWARE\ASCEND"

    ; Remove files and uninstaller

    Delete $INSTDIR\ascend.dll
    Delete $INSTDIR\Makefile.bt
    Delete $INSTDIR\ascend.syn
    RMDir /r $INSTDIR\models

    ; Remove directories used
    RMDir "$INSTDIR"

SectionEnd

;---------------------------------------------------------------------
; UTILITY ROUTINES

Function DetectPython
    ReadRegStr $R6 HKCU "SOFTWARE\Python\PythonCore\2.4\InstallPath" ""
    ${If} $R6 == ''
        ReadRegStr $R6 HKLM "SOFTWARE\Python\PythonCore\2.4\InstallPath" ""
        ${If} $R6 == ''
            Push "No registry key found"
            Push "NOK"
            Return
        ${EndIf}
    ${EndIf}
    
    ${If} ${FileExists} "$R6\python.exe"
        Push "$R6"
        Push "OK"
    ${Else}
        Push "No python.exe found"
        Push "NOK"
    ${EndIf}
FunctionEnd

;--------------------------------------------------------------------
; Prefer the current user's installation of GTK, fall back to the local machine

Function DetectGTK
    ReadRegStr $R6 HKCU "SOFTWARE\GTK\2.0" "DllPath"
    ${If} $R6 == ''
        ReadRegStr $R6 HKLM "SOFTWARE\GTK\2.0" "DllPath"
        ${If} $R6 == ''
            Push "No GTK registry key found"
            Push "NOK"
            Return
        ${EndIf}
    ${EndIf}

    ${If} ${FileExists} "$R6\libgtk-win32-2.0-0.dll"
        Push "$R6"
        Push "OK"
    ${Else}
        Push "No libgtk-win32-2.0-0.dll found in'$R6'"
        Push "NOK"
    ${EndIf}
FunctionEnd

;--------------------------------------------------------------------
; Prefer the current user's installation of GTK, fall back to the local machine

Function DetectGlade
    ReadRegStr $R6 HKCU "SOFTWARE\GTK\2.0" "DllPath"
    ${If} $R6 == ''
        ReadRegStr $R6 HKLM "SOFTWARE\GTK\2.0" "DllPath"
        ${If} $R6 == ''
            Push "No GTK registry key found"
            Push "NOK"
            Return
        ${EndIf}
    ${EndIf}

    ${If} ${FileExists} "$R6\libglade-2.0-0.dll"
        Push "$R6"
        Push "OK"
    ${Else}
        Push "No libglade-2.0-0.dll found in'$R6'"
        Push "NOK"
    ${EndIf}
FunctionEnd

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

Function DetectTcl
    ReadRegStr $R6 HKCU "SOFTWARE\ActiveState\ActiveTcl" "CurrentVersion"
    ${If} $R6 == ''
        ReadRegStr $R6 HKLM "SOFTWARE\ActiveState\ActiveTcl" "CurrentVersion"
        ${If} $R6 == ''
            Push "No 'CurrentVersion' registry key"
            Push "NOK"
            Return
        ${Else}
            StrCpy $R7 "SOFTWARE\ActiveState\ActiveTcl\$R6"
            ReadRegStr $R8 HKLM $R7 ""      
        ${EndIf}
    ${Else}
        StrCpy $R7 "SOFTWARE\ActiveState\ActiveTcl\$R6"
        ReadRegStr $R8 HKCU $R7 ""      
    ${EndIf}

    ${If} $R8 == ''
        Push "No value for $R7"
        Push "NOK"
    ${Else}
        Push "$R8\bin"
        Push "OK"
    ${EndIf}
FunctionEnd
1	johnpye	845	; NSIS script to create an ASCEND binary installer.
2			; by John Pye, 2006.
3	johnpye	357	;
4	johnpye	845	; Based on example2.nsi from the NSIS distribution.
5			;
6	johnpye	628	; This script is based on example1.nsi, but it remembers the directory,
7	johnpye	357	; has uninstall support and (optionally) installs start menu shortcuts.
8			;
9			; It will install example2.nsi into a directory that the user selects,
10
11			;--------------------------------
12
13			; The name of the installer
14	johnpye	818	Name "ASCEND"
15	johnpye	357
16	johnpye	845	!include LogicLib.nsh
17
18	johnpye	357	; The file to write
19	johnpye	578	!ifdef OUTFILE
20			OutFile ${OUTFILE}.exe
21			!else
22			OutFile ascend-setup.exe
23			!endif
24	johnpye	357
25	johnpye	465
26	johnpye	922	;SetCompressor /FINAL zlib
27			SetCompressor /SOLID lzma
28	johnpye	578
29	johnpye	357	; The default installation directory
30			InstallDir $PROGRAMFILES\ASCEND
31
32			; Registry key to check for directory (so if you install again, it will
33			; overwrite the old one automatically)
34			InstallDirRegKey HKLM "Software\ASCEND" "Install_Dir"
35
36			;--------------------------------
37
38			; Pages
39
40			Page components
41			Page directory
42			Page instfiles
43
44			UninstPage uninstConfirm
45			UninstPage instfiles
46
47			;--------------------------------
48
49	johnpye	845	Var /GLOBAL PYOK
50			Var /GLOBAL PYPATH
51			Var /GLOBAL GTKOK
52			Var /GLOBAL GTKPATH
53	johnpye	859	Var /GLOBAL GLADEOK
54			Var /GLOBAL GLADEPATH
55	johnpye	845	Var /GLOBAL PYINSTALLED
56			Var /GLOBAL TCLOK
57			Var /GLOBAL TCLPATH
58			Var /GLOBAL TCLINSTALLED
59
60			Function .onInit
61			StrCpy $PYINSTALLED ""
62			StrCpy $TCLINSTALLED ""
63
64			Call DetectPython
65			Pop $PYOK
66			Pop $PYPATH
67
68			Call DetectGTK
69			Pop $GTKOK
70			Pop $GTKPATH
71	johnpye	859
72			Call DetectGlade
73			Pop $GLADEOK
74			Pop $GLADEPATH
75	johnpye	845
76			Call DetectTcl
77			Pop $TCLOK
78			Pop $TCLPATH
79
80			FunctionEnd
81
82
83	johnpye	357	; The stuff to install
84			Section "ASCEND (required)"
85	johnpye	922	SectionIn RO
86	johnpye	357
87	johnpye	922	DetailPrint "--- COMMON FILES ---"
88
89			; Set output path to the installation directory.
90			SetOutPath $INSTDIR
91			File "..\ascend.dll"
92			File "..\ascend-config"
93	johnpye	603
94	johnpye	922	; Model Library
95			SetOutPath $INSTDIR\models
96			File /r /x .svn "..\models\.a4"
97			File /r /x .svn "..\models\*.tcl"
98			File /r /x .svn "..\models\*.dll" ; extension modules
99			File /r /x .svn "..\models\*.py"; python modules
100	johnpye	603
101	johnpye	922	SetOutPath $INSTDIR
102			File "Makefile.bt"
103			File "ascend.syn"
104
105			; Set 'librarypath' in .ascend.ini
106			WriteINIstr $APPDATA\.ascend.ini Directories librarypath "$DOCUMENTS\ascdata;$INSTDIR\models"
107
108			; Write the installation path into the registry
109			WriteRegStr HKLM SOFTWARE\ASCEND "Install_Dir" "$INSTDIR"
110
111			; Write the uninstall keys for Windows
112			WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND" "DisplayName" "ASCEND Simulation Environment"
113			WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND" "UninstallString" '"$INSTDIR\uninstall.exe"'
114			WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND" "NoModify" 1
115			WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND" "NoRepair" 1
116			WriteUninstaller "uninstall.exe"
117
118			; Write file locations to the registry for access from ascend-config
119			WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_LIB" "$INSTDIR"
120			WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_BIN" "$INSTDIR"
121			WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_INCLUDE" "$INSTDIR\include"
122			WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_ASCDATA" "$INSTDIR"
123			WriteRegStr HKLM SOFTWARE\ASCEND "INSTALL_MODELS" "$INSTDIR\models"
124
125			; Create 'ascend-config.bat' batch file for launching the python script 'ascend-config'.
126			ClearErrors
127			FileOpen $0 $INSTDIR\ascend-config.bat w
128			IfErrors ascendconfigerror
129			FileWrite $0 "@echo off"
130			FileWriteByte $0 "13"
131			FileWriteByte $0 "10"
132			FileWrite $0 "set PATH=$PYPATH;$GTKPATH"
133			FileWriteByte $0 "13"
134			FileWriteByte $0 "10"
135			FileWrite $0 "cd "
136			FileWrite $0 $INSTDIR
137			FileWriteByte $0 "13"
138			FileWriteByte $0 "10"
139			FileWrite $0 "$PYPATH\python "
140			FileWriteByte $0 "34"
141			FileWrite $0 "$INSTDIR\ascend-config"
142			FileWriteByte $0 "34"
143			FileWrite $0 " %1 %2 %3 %4 %5 %6 %7 %8"
144			FileWriteByte $0 "13"
145			FileWriteByte $0 "10"
146
147			FileClose $0
148
149			Return
150			ascendconfigerror:
151			MessageBox MB_OK "The 'ascend-config.bat' file was not installed properly; problems writing to that file."
152
153	johnpye	357	SectionEnd
154
155	johnpye	845	;--------------------------------
156
157			Section "PyGTK GUI"
158	johnpye	859	${If} $PYOK == 'OK'
159			${If} $GTKOK == 'OK'
160			${If} $GLADEOK == 'OK'
161			;MessageBox MB_OK "Python: $PYPATH, GTK: $GTKPATH"
162	johnpye	845
163	johnpye	859	DetailPrint "--- PYTHON INTERFACE ---"
164	johnpye	845
165	johnpye	859	; Set output path to the installation directory.
166			SetOutPath $INSTDIR
167	johnpye	845
168	johnpye	859	; Python interface
169			File "_ascpy.dll"
170			File "*.py"
171			SetOutPath $INSTDIR\glade
172			File "glade\*.glade"
173			File "glade\*.png"
174	johnpye	845
175	johnpye	859	; Create 'ascend.bat' launcher for PyGTK interface
176			ClearErrors
177			FileOpen $0 $INSTDIR\ascend.bat w
178			IfErrors pydone
179			FileWrite $0 "@echo off"
180			FileWriteByte $0 "13"
181			FileWriteByte $0 "10"
182			FileWrite $0 "set PATH=$PYPATH;$GTKPATH"
183			FileWriteByte $0 "13"
184			FileWriteByte $0 "10"
185			FileWrite $0 "cd "
186			FileWrite $0 $INSTDIR
187			FileWriteByte $0 "13"
188			FileWriteByte $0 "10"
189	johnpye	860	FileWrite $0 "$PYPATH\python gtkbrowser.py --pygtk-assets="
190			FileWriteByte $0 "34"
191			FileWrite $0 "$INSTDIR\glade"
192			FileWriteByte $0 "34"
193			FileWrite $0 " %1 %2 %3 %4 %5 %6 %7 %8"
194	johnpye	859	FileWriteByte $0 "13"
195			FileWriteByte $0 "10"
196	johnpye	845
197	johnpye	859	FileClose $0
198	johnpye	845
199	johnpye	859	StrCpy $PYINSTALLED "1"
200			WriteRegDWORD HKLM "SOFTWARE\ASCEND" "Python" 1
201			${Else}
202			MessageBox MB_OK "PyGTK GUI can not be installed, because Glade was not found on this system. If you do want to use the PyGTK GUI, please check the installation instructions ($GLADEPATH)"
203			${EndIf}
204			${Else}
205			MessageBox MB_OK "PyGTK GUI can not be installed, because GTK+ 2.0 was not found on this system. If you do want to use the PyGTK GUI, please check the installation instructions ($GTKPATH)"
206			${EndIf}
207			${Else}
208			MessageBox MB_OK "PyGTK GUI can not be installed, because Python was not found on this system. If you do want to use the PyGTK GUI, please check the installation instructions ($PYPATH)"
209			${EndIf}
210			Return
211	johnpye	845
212			pydone:
213	johnpye	859	MessageBox MB_OK "PyGTK GUI was not installed properly -- problems with creating ascend.bar"
214	johnpye	845	SectionEnd
215
216			;---------------------------------
217
218			Section "Tcl/Tk GUI"
219
220			${If} $TCLOK != 'OK'
221			MessageBox MB_OK "Tck/Tk GUI can not be installed, because ActiveTcl was not found on this system. If do you want to use the Tcl/Tk GUI, please check the installation instructions ($TCLPATH)"
222			${Else}
223			DetailPrint "--- TCL/TK INTERFACE ---"
224			SetOutPath $INSTDIR\tcltk
225			File /r /x .svn "..\tcltk\TK\*"
226			SetOutPath $INSTDIR
227			File "..\tcltk\generic\interface\ascendtcl.dll"
228			File "..\tcltk\generic\interface\ascend4.exe"
229
230			StrCpy $TCLINSTALLED "!"
231			WriteRegDWORD HKLM "SOFTWARE\ASCEND" "TclTk" 1
232
233			${EndIf}
234
235			SectionEnd
236
237			;---------------------------------
238
239	johnpye	357	; Optional section (can be disabled by the user)
240			Section "Start Menu Shortcuts"
241	johnpye	845
242			WriteRegDWORD HKLM "SOFTWARE\ASCEND" "StartMenu" 1
243	johnpye	357
244			CreateDirectory "$SMPROGRAMS\ASCEND"
245			CreateShortCut "$SMPROGRAMS\ASCEND\Uninstall.lnk" "$INSTDIR\uninstall.exe" "" "$INSTDIR\uninstall.exe" 0
246	johnpye	845	CreateShortCut "$SMPROGRAMS\ASCEND\ASCEND Tcl/Tk.lnk" "$INSTDIR\ascend4.exe" "" "$INSTDIR\ascend4.exe" 0
247
248			; Link to PyGTK GUI
249			StrCmp $PYINSTALLED "" smdone smpython
250			smpython:
251	johnpye	357	CreateShortCut "$SMPROGRAMS\ASCEND\ASCEND.lnk" "$INSTDIR\ascend.bat" "" "$INSTDIR\ascend.bat" 0
252	johnpye	845	smdone:
253	johnpye	357
254			SectionEnd
255
256	johnpye	845	;------------------------------------------------------------------
257			; UNINSTALLER
258	johnpye	357
259	johnpye	845	Section "Uninstall"
260	johnpye	357
261	johnpye	845	;--- python components ---
262
263			ReadRegDWORD $0 HKLM "SOFTWARE\ASCEND" "Python"
264			IntCmp $0 0 unnopython unpython
265	johnpye	357
266	johnpye	845	unpython:
267			DetailPrint "--- REMOVING PYTHON COMPONENTS ---"
268			Delete $INSTDIR\_ascpy.dll
269			Delete $INSTDIR\ascend.bat
270			Delete $INSTDIR\*.py
271			Delete $INSTDIR\glade\*.glade
272			Delete $INSTDIR\glade\*.png
273			RmDir $INSTDIR\glade
274	johnpye	357
275	johnpye	845	unnopython:
276	johnpye	357
277	johnpye	845	;--- tcl/tk components ---
278	johnpye	357
279	johnpye	845	ReadRegDWORD $0 HKLM "SOFTWARE\ASCEND" "TclTk"
280			${If} $0 != 0
281			DetailPrint "--- REMOVING TCL/TK COMPONENTS ---"
282			Delete $INSTDIR\ascendtcl.dll
283			RMDir /r $INSTDIR\tcltk
284			${EndIf}
285	johnpye	357
286	johnpye	845	;--- start menu ---
287
288			ReadRegDWORD $1 HKLM "SOFTWARE\ASCEND" "StartMenu"
289			IntCmp $1 0 unnostart unstart
290			unstart:
291			; Remove shortcuts, if any
292			DetailPrint "--- REMOVING START MENU SHORTCUTS ---"
293			RmDir /r "$SMPROGRAMS\ASCEND"
294
295			unnostart:
296
297			;--- common components ---
298
299			DetailPrint "--- REMOVING COMMON COMPONENTS ---"
300			; Remove registry keys
301
302			DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ASCEND"
303			DeleteRegKey HKLM "SOFTWARE\ASCEND"
304
305			; Remove files and uninstaller
306
307			Delete $INSTDIR\ascend.dll
308			Delete $INSTDIR\Makefile.bt
309			Delete $INSTDIR\ascend.syn
310			RMDir /r $INSTDIR\models
311
312			; Remove directories used
313			RMDir "$INSTDIR"
314
315	johnpye	357	SectionEnd
316	johnpye	845
317			;---------------------------------------------------------------------
318			; UTILITY ROUTINES
319
320			Function DetectPython
321	johnpye	859	ReadRegStr $R6 HKCU "SOFTWARE\Python\PythonCore\2.4\InstallPath" ""
322			${If} $R6 == ''
323			ReadRegStr $R6 HKLM "SOFTWARE\Python\PythonCore\2.4\InstallPath" ""
324			${If} $R6 == ''
325			Push "No registry key found"
326			Push "NOK"
327			Return
328			${EndIf}
329			${EndIf}
330
331			${If} ${FileExists} "$R6\python.exe"
332			Push "$R6"
333			Push "OK"
334			${Else}
335			Push "No python.exe found"
336			Push "NOK"
337			${EndIf}
338			FunctionEnd
339	johnpye	845
340	johnpye	859	;--------------------------------------------------------------------
341			; Prefer the current user's installation of GTK, fall back to the local machine
342	johnpye	845
343	johnpye	859	Function DetectGTK
344			ReadRegStr $R6 HKCU "SOFTWARE\GTK\2.0" "DllPath"
345			${If} $R6 == ''
346			ReadRegStr $R6 HKLM "SOFTWARE\GTK\2.0" "DllPath"
347			${If} $R6 == ''
348			Push "No GTK registry key found"
349			Push "NOK"
350			Return
351			${EndIf}
352			${EndIf}
353
354			${If} ${FileExists} "$R6\libgtk-win32-2.0-0.dll"
355			Push "$R6"
356			Push "OK"
357			${Else}
358			Push "No libgtk-win32-2.0-0.dll found in'$R6'"
359			Push "NOK"
360			${EndIf}
361	johnpye	845	FunctionEnd
362
363			;--------------------------------------------------------------------
364	johnpye	859	; Prefer the current user's installation of GTK, fall back to the local machine
365	johnpye	845
366	johnpye	859	Function DetectGlade
367			ReadRegStr $R6 HKCU "SOFTWARE\GTK\2.0" "DllPath"
368			${If} $R6 == ''
369			ReadRegStr $R6 HKLM "SOFTWARE\GTK\2.0" "DllPath"
370			${If} $R6 == ''
371			Push "No GTK registry key found"
372			Push "NOK"
373			Return
374			${EndIf}
375			${EndIf}
376	johnpye	845
377	johnpye	859	${If} ${FileExists} "$R6\libglade-2.0-0.dll"
378			Push "$R6"
379			Push "OK"
380			${Else}
381			Push "No libglade-2.0-0.dll found in'$R6'"
382			Push "NOK"
383			${EndIf}
384	johnpye	845	FunctionEnd
385
386			;--------------------------------------------------------------------
387
388			Function DetectTcl
389	johnpye	859	ReadRegStr $R6 HKCU "SOFTWARE\ActiveState\ActiveTcl" "CurrentVersion"
390			${If} $R6 == ''
391			ReadRegStr $R6 HKLM "SOFTWARE\ActiveState\ActiveTcl" "CurrentVersion"
392			${If} $R6 == ''
393			Push "No 'CurrentVersion' registry key"
394			Push "NOK"
395			Return
396			${Else}
397			StrCpy $R7 "SOFTWARE\ActiveState\ActiveTcl\$R6"
398			ReadRegStr $R8 HKLM $R7 ""
399			${EndIf}
400			${Else}
401			StrCpy $R7 "SOFTWARE\ActiveState\ActiveTcl\$R6"
402			ReadRegStr $R8 HKCU $R7 ""
403			${EndIf}
404
405			${If} $R8 == ''
406			Push "No value for $R7"
407			Push "NOK"
408			${Else}
409			Push "$R8\bin"
410			Push "OK"
411			${EndIf}
412	johnpye	845	FunctionEnd