Mercurial > pidgin.yaz
view gaim-installer.nsi @ 14875:7357d46ba817
[gaim-migrate @ 17644]
SF Patch #1586467 from Benjamin Moody - floppusmaximus
"Currently if a plugin creates a multi-line, non-HTML
string preference, i.e. a GaimPluginPref with type
GAIM_PLUGIN_PREF_STRING_FORMAT and format-type
GAIM_STRING_FORMAT_TYPE_MULTILINE, the resulting widget
is extremely narrow and impossible to use.
This is because the widget is packed into an hbox
without allowing expansion (expand = fill = FALSE.) If
HTML is enabled, the presence of the format bar forces
the widget to be wide enough to be usable. Disabling
HTML causes the format bar to be removed, so the widget
is set to the minimum allowed size."
committer: Tailor Script <tailor@pidgin.im>
author | Richard Laager <rlaager@wiktel.com> |
---|---|
date | Wed, 01 Nov 2006 02:13:37 +0000 |
parents | 1072720fc35f |
children | 43f692951d49 |
line wrap: on
line source
; Installer script for win32 Gaim ; Original Author: Herman Bloggs <hermanator12002@yahoo.com> ; Updated By: Daniel Atallah <daniel_atallah@yahoo.com> ; NOTE: this .NSI script is intended for NSIS 2.08 ; ;-------------------------------- ;Global Variables Var name Var GTK_FOLDER Var GTK_THEME_SEL Var ISSILENT Var STARTUP_RUN_KEY Var SPELLCHECK_SEL ;-------------------------------- ;Configuration ;The name var is set in .onInit Name $name !ifdef WITH_GTK OutFile "gaim-${GAIM_VERSION}.exe" !else !ifdef DEBUG OutFile "gaim-${GAIM_VERSION}-debug.exe" !else OutFile "gaim-${GAIM_VERSION}-no-gtk.exe" !endif !endif SetCompressor /SOLID lzma ShowInstDetails show ShowUninstDetails show SetDateSave on ; $name and $INSTDIR are set in .onInit function.. !include "MUI.nsh" !include "Sections.nsh" !include "FileFunc.nsh" !insertmacro GetParameters !insertmacro GetOptions !insertmacro GetParent !include "WordFunc.nsh" !insertmacro VersionCompare !include "TextFunc.nsh" !insertmacro ConfigRead !insertmacro ConfigWriteS ;-------------------------------- ;Defines !define GAIM_NSIS_INCLUDE_PATH ".\gtk\win32\nsis" !define GAIM_INSTALLER_DEPS "..\win32-dev\gaim-inst-deps" !define GAIM_REG_KEY "SOFTWARE\gaim" !define GAIM_UNINSTALL_KEY "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Gaim" !define HKLM_APP_PATHS_KEY "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\gaim.exe" !define GAIM_STARTUP_RUN_KEY "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" !define GAIM_UNINST_EXE "gaim-uninst.exe" !define GTK_MIN_VERSION "2.6.10" !define GTK_INSTALL_VERSION "2.10.6" !define GTK_REG_KEY "SOFTWARE\GTK\2.0" !define PERL_REG_KEY "SOFTWARE\Perl" !define PERL_DLL "perl58.dll" !define GTK_DEFAULT_INSTALL_PATH "$COMMONFILES\GTK\2.0" !define GTK_RUNTIME_INSTALLER "..\gtk_installer\gtk-runtime*.exe" !define ASPELL_REG_KEY "SOFTWARE\Aspell" !define DOWNLOADER_URL "http://gaim.sourceforge.net/win32/download_redir.php" ;-------------------------------- ;Version resource VIProductVersion "${GAIM_PRODUCT_VERSION}" VIAddVersionKey "ProductName" "Gaim" VIAddVersionKey "FileVersion" "${GAIM_VERSION}" VIAddVersionKey "ProductVersion" "${GAIM_VERSION}" VIAddVersionKey "LegalCopyright" "" !ifdef WITH_GTK VIAddVersionKey "FileDescription" "Gaim Installer (w/ GTK+ Installer)" !else !ifdef DEBUG VIAddVersionKey "FileDescription" "Gaim Installer (Debug Version)" !else VIAddVersionKey "FileDescription" "Gaim Installer (w/o GTK+ Installer)" !endif !endif ;-------------------------------- ;Modern UI Configuration !define MUI_ICON ".\gtk\pixmaps\gaim-install.ico" !define MUI_UNICON ".\gtk\pixmaps\gaim-install.ico" !define MUI_WELCOMEFINISHPAGE_BITMAP ".\gtk\win32\nsis\gaim-intro.bmp" !define MUI_HEADERIMAGE !define MUI_HEADERIMAGE_BITMAP ".\gtk\win32\nsis\gaim-header.bmp" ; Alter License section !define MUI_LICENSEPAGE_BUTTON $(GAIM_LICENSE_BUTTON) !define MUI_LICENSEPAGE_TEXT_BOTTOM $(GAIM_LICENSE_BOTTOM_TEXT) !define MUI_LANGDLL_REGISTRY_ROOT "HKCU" !define MUI_LANGDLL_REGISTRY_KEY ${GAIM_REG_KEY} !define MUI_LANGDLL_REGISTRY_VALUENAME "Installer Language" !define MUI_COMPONENTSPAGE_SMALLDESC !define MUI_ABORTWARNING ;Finish Page config !define MUI_FINISHPAGE_RUN "$INSTDIR\gaim.exe" !define MUI_FINISHPAGE_RUN_NOTCHECKED !define MUI_FINISHPAGE_LINK $(GAIM_FINISH_VISIT_WEB_SITE) !define MUI_FINISHPAGE_LINK_LOCATION "http://gaim.sourceforge.net/win32" ;-------------------------------- ;Pages !ifndef WITH_GTK !define MUI_PAGE_CUSTOMFUNCTION_PRE preWelcomePage !endif !insertmacro MUI_PAGE_WELCOME !insertmacro MUI_PAGE_LICENSE "./COPYING" !insertmacro MUI_PAGE_COMPONENTS !ifdef WITH_GTK ; GTK+ install dir page !define MUI_PAGE_CUSTOMFUNCTION_PRE preGtkDirPage !define MUI_PAGE_CUSTOMFUNCTION_LEAVE postGtkDirPage !define MUI_DIRECTORYPAGE_VARIABLE $GTK_FOLDER !insertmacro MUI_PAGE_DIRECTORY !endif ; Gaim install dir page !insertmacro MUI_PAGE_DIRECTORY !insertmacro MUI_PAGE_INSTFILES !insertmacro MUI_PAGE_FINISH !insertmacro MUI_UNPAGE_WELCOME !insertmacro MUI_UNPAGE_CONFIRM !insertmacro MUI_UNPAGE_INSTFILES !insertmacro MUI_UNPAGE_FINISH ;-------------------------------- ;Languages ;; English goes first because its the default. The rest are ;; in alphabetical order (at least the strings actually displayed ;; will be). !insertmacro MUI_LANGUAGE "English" !insertmacro MUI_LANGUAGE "Albanian" !insertmacro MUI_LANGUAGE "Bulgarian" !insertmacro MUI_LANGUAGE "Catalan" !insertmacro MUI_LANGUAGE "Czech" !insertmacro MUI_LANGUAGE "Danish" !insertmacro MUI_LANGUAGE "SimpChinese" !insertmacro MUI_LANGUAGE "TradChinese" !insertmacro MUI_LANGUAGE "German" !insertmacro MUI_LANGUAGE "Spanish" !insertmacro MUI_LANGUAGE "French" !insertmacro MUI_LANGUAGE "Hebrew" !insertmacro MUI_LANGUAGE "Italian" !insertmacro MUI_LANGUAGE "Japanese" !insertmacro MUI_LANGUAGE "Korean" !insertmacro MUI_LANGUAGE "Kurdish" !insertmacro MUI_LANGUAGE "Lithuanian" !insertmacro MUI_LANGUAGE "Hungarian" !insertmacro MUI_LANGUAGE "Dutch" !insertmacro MUI_LANGUAGE "Norwegian" !insertmacro MUI_LANGUAGE "Polish" !insertmacro MUI_LANGUAGE "PortugueseBR" !insertmacro MUI_LANGUAGE "Portuguese" !insertmacro MUI_LANGUAGE "Romanian" !insertmacro MUI_LANGUAGE "Russian" !insertmacro MUI_LANGUAGE "Serbian" !insertmacro MUI_LANGUAGE "Slovak" !insertmacro MUI_LANGUAGE "Slovenian" !insertmacro MUI_LANGUAGE "Finnish" !insertmacro MUI_LANGUAGE "Swedish" ;-------------------------------- ;Translations !define GAIM_DEFAULT_LANGFILE "${GAIM_NSIS_INCLUDE_PATH}\translations\english.nsh" !include "${GAIM_NSIS_INCLUDE_PATH}\langmacros.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ALBANIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\albanian.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "BULGARIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\bulgarian.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "CATALAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\catalan.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "CZECH" "${GAIM_NSIS_INCLUDE_PATH}\translations\czech.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "DANISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\danish.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "DUTCH" "${GAIM_NSIS_INCLUDE_PATH}\translations\dutch.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ENGLISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\english.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "FINNISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\finnish.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "FRENCH" "${GAIM_NSIS_INCLUDE_PATH}\translations\french.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "GERMAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\german.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "HEBREW" "${GAIM_NSIS_INCLUDE_PATH}\translations\hebrew.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "HUNGARIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\hungarian.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ITALIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\italian.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "JAPANESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\japanese.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "KOREAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\korean.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "KURDISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\kurdish.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "LITHUANIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\lithuanian.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "NORWEGIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\norwegian.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "POLISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\polish.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "PORTUGUESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\portuguese.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "PORTUGUESEBR" "${GAIM_NSIS_INCLUDE_PATH}\translations\portuguese-br.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ROMANIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\romanian.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "RUSSIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\russian.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SERBIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\serbian-latin.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SIMPCHINESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\simp-chinese.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SLOVAK" "${GAIM_NSIS_INCLUDE_PATH}\translations\slovak.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SLOVENIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\slovenian.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SPANISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\spanish.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SWEDISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\swedish.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "TRADCHINESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\trad-chinese.nsh" ;-------------------------------- ;Reserve Files ; Only need this if using bzip2 compression !insertmacro MUI_RESERVEFILE_INSTALLOPTIONS !insertmacro MUI_RESERVEFILE_LANGDLL ReserveFile "${NSISDIR}\Plugins\UserInfo.dll" ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Start Install Sections ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;-------------------------------- ;Uninstall any old version of Gaim Section -SecUninstallOldGaim ; Check install rights.. Call CheckUserInstallRights Pop $R0 ;If gaim is currently set to run on startup, ; save the section of the Registry where the setting is before uninstalling, ; so we can put it back after installing the new version ClearErrors ReadRegStr $STARTUP_RUN_KEY HKCU "${GAIM_STARTUP_RUN_KEY}" "Gaim" IfErrors +3 StrCpy $STARTUP_RUN_KEY "HKCU" Goto +4 ClearErrors ReadRegStr $STARTUP_RUN_KEY HKLM "${GAIM_STARTUP_RUN_KEY}" "Gaim" IfErrors +2 StrCpy $STARTUP_RUN_KEY "HKLM" StrCmp $R0 "HKLM" gaim_hklm StrCmp $R0 "HKCU" gaim_hkcu done gaim_hkcu: ReadRegStr $R1 HKCU ${GAIM_REG_KEY} "" ReadRegStr $R2 HKCU ${GAIM_REG_KEY} "Version" ReadRegStr $R3 HKCU "${GAIM_UNINSTALL_KEY}" "UninstallString" Goto try_uninstall gaim_hklm: ReadRegStr $R1 HKLM ${GAIM_REG_KEY} "" ReadRegStr $R2 HKLM ${GAIM_REG_KEY} "Version" ReadRegStr $R3 HKLM "${GAIM_UNINSTALL_KEY}" "UninstallString" ; If previous version exists .. remove try_uninstall: StrCmp $R1 "" done ; Version key started with 0.60a3. Prior versions can't be ; automaticlly uninstalled. StrCmp $R2 "" uninstall_problem ; Check if we have uninstall string.. IfFileExists $R3 0 uninstall_problem ; Have uninstall string.. go ahead and uninstall. SetOverwrite on ; Need to copy uninstaller outside of the install dir ClearErrors CopyFiles /SILENT $R3 "$TEMP\${GAIM_UNINST_EXE}" SetOverwrite off IfErrors uninstall_problem ; Ready to uninstall.. ClearErrors ExecWait '"$TEMP\${GAIM_UNINST_EXE}" /S _?=$R1' IfErrors exec_error Delete "$TEMP\${GAIM_UNINST_EXE}" Goto done exec_error: Delete "$TEMP\${GAIM_UNINST_EXE}" Goto uninstall_problem uninstall_problem: ; We can't uninstall. Either the user must manually uninstall or we ignore and reinstall over it. MessageBox MB_OKCANCEL $(GAIM_PROMPT_CONTINUE_WITHOUT_UNINSTALL) /SD IDOK IDOK done Quit done: SectionEnd ;-------------------------------- ;GTK+ Runtime Install Section !ifdef WITH_GTK Section $(GTK_SECTION_TITLE) SecGtk SectionIn 1 RO Call CheckUserInstallRights Pop $R1 SetOutPath $TEMP SetOverwrite on File /oname=gtk-runtime.exe ${GTK_RUNTIME_INSTALLER} SetOverwrite off Call DoWeNeedGtk Pop $R0 Pop $R6 StrCmp $R0 "0" have_gtk StrCmp $R0 "1" upgrade_gtk StrCmp $R0 "2" upgrade_gtk StrCmp $R0 "3" no_gtk no_gtk no_gtk: StrCmp $R1 "NONE" gtk_no_install_rights ClearErrors ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT /D=$GTK_FOLDER' IfErrors gtk_install_error done upgrade_gtk: StrCpy $GTK_FOLDER $R6 StrCmp $R0 "2" +2 ; Upgrade isn't optional MessageBox MB_YESNO $(GTK_UPGRADE_PROMPT) /SD IDYES IDNO done ClearErrors ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE /S /D=$GTK_FOLDER' IfErrors gtk_install_error done gtk_install_error: Delete "$TEMP\gtk-runtime.exe" MessageBox MB_OK $(GTK_INSTALL_ERROR) /SD IDOK Quit have_gtk: StrCpy $GTK_FOLDER $R6 StrCmp $R1 "NONE" done ; If we have no rights.. can't re-install.. ; Even if we have a sufficient version of GTK+, we give user choice to re-install. ClearErrors ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT' IfErrors gtk_install_error Goto done ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; end got_install rights gtk_no_install_rights: ; Install GTK+ to Gaim install dir StrCpy $GTK_FOLDER $INSTDIR ClearErrors ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT /D=$GTK_FOLDER' IfErrors gtk_install_error SetOverwrite on ClearErrors CopyFiles /FILESONLY "$GTK_FOLDER\bin\*.dll" $GTK_FOLDER SetOverwrite off IfErrors gtk_install_error Delete "$GTK_FOLDER\bin\*.dll" Goto done ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; end gtk_no_install_rights done: Delete "$TEMP\gtk-runtime.exe" SectionEnd ; end of GTK+ section !endif ;-------------------------------- ;Gaim Install Section Section $(GAIM_SECTION_TITLE) SecGaim SectionIn 1 RO ; Check install rights.. Call CheckUserInstallRights Pop $R0 ; Get GTK+ lib dir if we have it.. StrCmp $R0 "NONE" gaim_none StrCmp $R0 "HKLM" gaim_hklm gaim_hkcu gaim_hklm: ReadRegStr $R1 HKLM ${GTK_REG_KEY} "Path" WriteRegStr HKLM "${HKLM_APP_PATHS_KEY}" "" "$INSTDIR\gaim.exe" WriteRegStr HKLM "${HKLM_APP_PATHS_KEY}" "Path" "$R1\bin" WriteRegStr HKLM ${GAIM_REG_KEY} "" "$INSTDIR" WriteRegStr HKLM ${GAIM_REG_KEY} "Version" "${GAIM_VERSION}" WriteRegStr HKLM "${GAIM_UNINSTALL_KEY}" "DisplayName" $(GAIM_UNINSTALL_DESC) WriteRegStr HKLM "${GAIM_UNINSTALL_KEY}" "UninstallString" "$INSTDIR\${GAIM_UNINST_EXE}" ; Sets scope of the desktop and Start Menu entries for all users. SetShellVarContext "all" Goto gaim_install_files gaim_hkcu: ReadRegStr $R1 HKCU ${GTK_REG_KEY} "Path" StrCmp $R1 "" 0 gaim_hkcu1 ReadRegStr $R1 HKLM ${GTK_REG_KEY} "Path" gaim_hkcu1: WriteRegStr HKCU ${GAIM_REG_KEY} "" "$INSTDIR" WriteRegStr HKCU ${GAIM_REG_KEY} "Version" "${GAIM_VERSION}" WriteRegStr HKCU "${GAIM_UNINSTALL_KEY}" "DisplayName" $(GAIM_UNINSTALL_DESC) WriteRegStr HKCU "${GAIM_UNINSTALL_KEY}" "UninstallString" "$INSTDIR\${GAIM_UNINST_EXE}" Goto gaim_install_files gaim_none: ReadRegStr $R1 HKLM ${GTK_REG_KEY} "Path" gaim_install_files: SetOutPath "$INSTDIR" ; Gaim files SetOverwrite on File /r .\win32-install-dir\*.* !ifdef DEBUG File "${GAIM_INSTALLER_DEPS}\exchndl.dll" !endif ; Install shfolder.dll if need be.. SearchPath $R4 "shfolder.dll" StrCmp $R4 "" 0 got_shfolder SetOutPath "$SYSDIR" File "${GAIM_INSTALLER_DEPS}\shfolder.dll" SetOutPath "$INSTDIR" got_shfolder: ; Check if Perl is installed, if so add it to the AppPaths ReadRegStr $R2 HKLM ${PERL_REG_KEY} "" StrCmp $R2 "" 0 perl_exists ReadRegStr $R2 HKCU ${PERL_REG_KEY} "" StrCmp $R2 "" perl_done perl_exists perl_exists: IfFileExists "$R2\bin\${PERL_DLL}" 0 perl_done StrCmp $R0 "HKLM" 0 perl_done ReadRegStr $R3 HKLM "${HKLM_APP_PATHS_KEY}" "Path" WriteRegStr HKLM "${HKLM_APP_PATHS_KEY}" "Path" "$R3;$R2\bin" perl_done: ; If this is under NT4, delete the SILC support stuff ; there is a bug that will prevent any account from connecting ; See https://lists.silcnet.org/pipermail/silc-devel/2005-January/001588.html Call GetWindowsVersion Pop $R2 StrCmp $R2 "NT 4.0" +1 +4 Delete "$INSTDIR\plugins\libsilc.dll" Delete "$INSTDIR\silcclient.dll" Delete "$INSTDIR\silc.dll" SetOutPath "$INSTDIR" ; If we don't have install rights.. we're done StrCmp $R0 "NONE" done SetOverwrite off ; write out uninstaller SetOverwrite on WriteUninstaller "$INSTDIR\${GAIM_UNINST_EXE}" SetOverwrite off ; If we previously had gaim setup to run on startup, make it do so again StrCmp $STARTUP_RUN_KEY "HKCU" +1 +2 WriteRegStr HKCU "${GAIM_STARTUP_RUN_KEY}" "Gaim" "$INSTDIR\gaim.exe" StrCmp $STARTUP_RUN_KEY "HKLM" +1 +2 WriteRegStr HKLM "${GAIM_STARTUP_RUN_KEY}" "Gaim" "$INSTDIR\gaim.exe" done: SectionEnd ; end of default Gaim section ;-------------------------------- ;Shortcuts SubSection /e $(GAIM_SHORTCUTS_SECTION_TITLE) SecShortcuts Section /o $(GAIM_DESKTOP_SHORTCUT_SECTION_TITLE) SecDesktopShortcut SetOverwrite on CreateShortCut "$DESKTOP\Gaim.lnk" "$INSTDIR\gaim.exe" SetOverwrite off SectionEnd Section $(GAIM_STARTMENU_SHORTCUT_SECTION_TITLE) SecStartMenuShortcut SetOverwrite on CreateDirectory "$SMPROGRAMS\Gaim" CreateShortCut "$SMPROGRAMS\Gaim\Gaim.lnk" "$INSTDIR\gaim.exe" SetOverwrite off SectionEnd SubSectionEnd ;-------------------------------- ;GTK+ Themes SubSection /e $(GTK_THEMES_SECTION_TITLE) SecGtkThemes Section /o $(GTK_NOTHEME_SECTION_TITLE) SecGtkNone Push "Raleigh" Call WriteGtkThemeConfig SectionEnd Section $(GTK_WIMP_SECTION_TITLE) SecGtkWimp Push "MS-Windows" Call WriteGtkThemeConfig SectionEnd Section /o $(GTK_BLUECURVE_SECTION_TITLE) SecGtkBluecurve Push "Bluecurve" Call WriteGtkThemeConfig SectionEnd Section /o $(GTK_LIGHTHOUSEBLUE_SECTION_TITLE) SecGtkLighthouseblue Push "Lighthouseblue" Call WriteGtkThemeConfig SectionEnd SubSectionEnd ;-------------------------------- ;Spell Checking SubSection /e $(GAIM_SPELLCHECK_SECTION_TITLE) SecSpellCheck Section /o $(GAIM_SPELLCHECK_BRETON) SecSpellCheckBreton Push ${SecSpellCheckBreton} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_CATALAN) SecSpellCheckCatalan Push ${SecSpellCheckCatalan} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_CZECH) SecSpellCheckCzech Push ${SecSpellCheckCzech} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_WELSH) SecSpellCheckWelsh Push ${SecSpellCheckWelsh} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_DANISH) SecSpellCheckDanish Push ${SecSpellCheckDanish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_GERMAN) SecSpellCheckGerman Push ${SecSpellCheckGerman} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_GREEK) SecSpellCheckGreek Push ${SecSpellCheckGreek} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_ENGLISH) SecSpellCheckEnglish Push ${SecSpellCheckEnglish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_ESPERANTO) SecSpellCheckEsperanto Push ${SecSpellCheckEsperanto} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_SPANISH) SecSpellCheckSpanish Push ${SecSpellCheckSpanish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_FAROESE) SecSpellCheckFaroese Push ${SecSpellCheckFaroese} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_FRENCH) SecSpellCheckFrench Push ${SecSpellCheckFrench} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_ITALIAN) SecSpellCheckItalian Push ${SecSpellCheckItalian} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_DUTCH) SecSpellCheckDutch Push ${SecSpellCheckDutch} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_NORWEGIAN) SecSpellCheckNorwegian Push ${SecSpellCheckNorwegian} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_POLISH) SecSpellCheckPolish Push ${SecSpellCheckPolish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_PORTUGUESE) SecSpellCheckPortuguese Push ${SecSpellCheckPortuguese} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_ROMANIAN) SecSpellCheckRomanian Push ${SecSpellCheckRomanian} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_RUSSIAN) SecSpellCheckRussian Push ${SecSpellCheckRussian} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_SLOVAK) SecSpellCheckSlovak Push ${SecSpellCheckSlovak} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_SWEDISH) SecSpellCheckSwedish Push ${SecSpellCheckSwedish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_UKRAINIAN) SecSpellCheckUkrainian Push ${SecSpellCheckUkrainian} Call InstallAspellAndDict SectionEnd SubSectionEnd ;-------------------------------- ;Uninstaller Section Section Uninstall Call un.CheckUserInstallRights Pop $R0 StrCmp $R0 "NONE" no_rights StrCmp $R0 "HKCU" try_hkcu try_hklm try_hkcu: ReadRegStr $R0 HKCU ${GAIM_REG_KEY} "" StrCmp $R0 $INSTDIR 0 cant_uninstall ; HKCU install path matches our INSTDIR.. so uninstall DeleteRegKey HKCU ${GAIM_REG_KEY} DeleteRegKey HKCU "${GAIM_UNINSTALL_KEY}" Goto cont_uninstall try_hklm: ReadRegStr $R0 HKLM ${GAIM_REG_KEY} "" StrCmp $R0 $INSTDIR 0 try_hkcu ; HKLM install path matches our INSTDIR.. so uninstall DeleteRegKey HKLM ${GAIM_REG_KEY} DeleteRegKey HKLM "${GAIM_UNINSTALL_KEY}" DeleteRegKey HKLM "${HKLM_APP_PATHS_KEY}" ; Sets start menu and desktop scope to all users.. SetShellVarContext "all" cont_uninstall: ; The WinPrefs plugin may have left this behind.. DeleteRegValue HKCU "${GAIM_STARTUP_RUN_KEY}" "Gaim" DeleteRegValue HKLM "${GAIM_STARTUP_RUN_KEY}" "Gaim" ; Remove Language preference info DeleteRegKey HKCU ${GAIM_REG_KEY} ;${MUI_LANGDLL_REGISTRY_ROOT} ${MUI_LANGDLL_REGISTRY_KEY} RMDir /r "$INSTDIR\locale" RMDir /r "$INSTDIR\pixmaps" RMDir /r "$INSTDIR\perlmod" Delete "$INSTDIR\plugins\extplacement.dll" Delete "$INSTDIR\plugins\gaimrc.dll" Delete "$INSTDIR\plugins\history.dll" Delete "$INSTDIR\plugins\iconaway.dll" Delete "$INSTDIR\plugins\idle.dll" Delete "$INSTDIR\plugins\libgg.dll" Delete "$INSTDIR\plugins\libirc.dll" Delete "$INSTDIR\plugins\libjabber.dll" Delete "$INSTDIR\plugins\libmsn.dll" Delete "$INSTDIR\plugins\libnapster.dll" Delete "$INSTDIR\plugins\libnovell.dll" Delete "$INSTDIR\plugins\liboscar.dll" Delete "$INSTDIR\plugins\libqq.dll" Delete "$INSTDIR\plugins\libsametime.dll" Delete "$INSTDIR\plugins\libsilc.dll" Delete "$INSTDIR\plugins\libsimple.dll" Delete "$INSTDIR\plugins\libtoc.dll" Delete "$INSTDIR\plugins\libyahoo.dll" Delete "$INSTDIR\plugins\log_reader.dll" Delete "$INSTDIR\plugins\notify.dll" Delete "$INSTDIR\plugins\perl.dll" Delete "$INSTDIR\plugins\psychic.dll" Delete "$INSTDIR\plugins\relnot.dll" Delete "$INSTDIR\plugins\spellchk.dll" Delete "$INSTDIR\plugins\ssl-nss.dll" Delete "$INSTDIR\plugins\ssl.dll" Delete "$INSTDIR\plugins\statenotify.dll" Delete "$INSTDIR\plugins\tcl.dll" Delete "$INSTDIR\plugins\ticker.dll" Delete "$INSTDIR\plugins\timestamp.dll" Delete "$INSTDIR\plugins\timestamp_format.dll" Delete "$INSTDIR\plugins\win2ktrans.dll" Delete "$INSTDIR\plugins\winprefs.dll" RMDir "$INSTDIR\plugins" Delete "$INSTDIR\sounds\gaim\alert.wav" Delete "$INSTDIR\sounds\gaim\login.wav" Delete "$INSTDIR\sounds\gaim\logout.wav" Delete "$INSTDIR\sounds\gaim\receive.wav" Delete "$INSTDIR\sounds\gaim\send.wav" RMDir "$INSTDIR\sounds\gaim" RMDir "$INSTDIR\sounds" Delete "$INSTDIR\gaim.exe" Delete "$INSTDIR\gtkgaim.dll" Delete "$INSTDIR\idletrack.dll" Delete "$INSTDIR\libgaim.dll" Delete "$INSTDIR\libgtkspell.dll" Delete "$INSTDIR\libmeanwhile-1.dll" Delete "$INSTDIR\libxml2.dll" Delete "$INSTDIR\nspr4.dll" Delete "$INSTDIR\nss3.dll" Delete "$INSTDIR\nssckbi.dll" Delete "$INSTDIR\plc4.dll" Delete "$INSTDIR\plds4.dll" Delete "$INSTDIR\silc.dll" Delete "$INSTDIR\silcclient.dll" Delete "$INSTDIR\softokn3.dll" Delete "$INSTDIR\ssl3.dll" Delete "$INSTDIR\${GAIM_UNINST_EXE}" !ifdef DEBUG Delete "$INSTDIR\exchndl.dll" !endif Delete "$INSTDIR\install.log" ;Try to remove Gaim install dir .. if empty RMDir "$INSTDIR" ; Shortcuts.. RMDir /r "$SMPROGRAMS\Gaim" Delete "$DESKTOP\Gaim.lnk" Goto done cant_uninstall: MessageBox MB_OK $(un.GAIM_UNINSTALL_ERROR_1) /SD IDOK Quit no_rights: MessageBox MB_OK $(un.GAIM_UNINSTALL_ERROR_2) /SD IDOK Quit done: SectionEnd ; end of uninstall section ;-------------------------------- ;Descriptions !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN !insertmacro MUI_DESCRIPTION_TEXT ${SecGaim} \ $(GAIM_SECTION_DESCRIPTION) !ifdef WITH_GTK !insertmacro MUI_DESCRIPTION_TEXT ${SecGtk} \ $(GTK_SECTION_DESCRIPTION) !endif !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkThemes} \ $(GTK_THEMES_SECTION_DESCRIPTION) !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkNone} \ $(GTK_NO_THEME_DESC) !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkWimp} \ $(GTK_WIMP_THEME_DESC) !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkBluecurve} \ $(GTK_BLUECURVE_THEME_DESC) !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkLighthouseblue} \ $(GTK_LIGHTHOUSEBLUE_THEME_DESC) !insertmacro MUI_DESCRIPTION_TEXT ${SecShortcuts} \ $(GAIM_SHORTCUTS_SECTION_DESCRIPTION) !insertmacro MUI_DESCRIPTION_TEXT ${SecDesktopShortcut} \ $(GAIM_DESKTOP_SHORTCUT_DESC) !insertmacro MUI_DESCRIPTION_TEXT ${SecStartMenuShortcut} \ $(GAIM_STARTMENU_SHORTCUT_DESC) !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheck} \ $(GAIM_SPELLCHECK_SECTION_DESCRIPTION) !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckBreton} \ "$(GAIM_SPELLCHECK_BRETON) (862kb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckCatalan} \ "$(GAIM_SPELLCHECK_CATALAN) (3.9Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckCzech} \ "$(GAIM_SPELLCHECK_CZECH) (17Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckWelsh} \ "$(GAIM_SPELLCHECK_WELSH) (4.2Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckDanish} \ "$(GAIM_SPELLCHECK_DANISH) (6.9Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckGerman} \ "$(GAIM_SPELLCHECK_GERMAN) (5.4Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckGreek} \ "$(GAIM_SPELLCHECK_GREEK) (7.1Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckEnglish} \ "$(GAIM_SPELLCHECK_ENGLISH) (2.3Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckEsperanto} \ "$(GAIM_SPELLCHECK_ESPERANTO) (5.7Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckSpanish} \ "$(GAIM_SPELLCHECK_SPANISH) (7.0Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckFaroese} \ "$(GAIM_SPELLCHECK_FAROESE) (913kb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckFrench} \ "$(GAIM_SPELLCHECK_FRENCH) (9.3Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckItalian} \ "$(GAIM_SPELLCHECK_ITALIAN) (770kb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckDutch} \ "$(GAIM_SPELLCHECK_DUTCH) (3.7Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckNorwegian} \ "$(GAIM_SPELLCHECK_NORWEGIAN) (3.2Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckPolish} \ "$(GAIM_SPELLCHECK_POLISH) (9.3Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckPortuguese} \ "$(GAIM_SPELLCHECK_PORTUGUESE) (5.5Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckRomanian} \ "$(GAIM_SPELLCHECK_ROMANIAN) (906kb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckRussian} \ "$(GAIM_SPELLCHECK_RUSSIAN) (11Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckSlovak} \ "$(GAIM_SPELLCHECK_SLOVAK) (8.0Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckSwedish} \ "$(GAIM_SPELLCHECK_SWEDISH) (2.2Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckUkrainian} \ "$(GAIM_SPELLCHECK_UKRAINIAN) (12Mb)" !insertmacro MUI_FUNCTION_DESCRIPTION_END ;-------------------------------- ;Functions Function WriteGtkThemeConfig Exch $0 Push $1 ClearErrors ${ConfigRead} "$PROFILE\.gtkrc-2.0" "gtk-theme-name =" $1 IfErrors new_file ${ConfigWriteS} "$PROFILE\.gtkrc-2.0" "gtk-theme-name =" "$\"$0$\"" $1 Goto done new_file: ClearErrors FileOpen $1 "$PROFILE\.gtkrc-2.0" w FileWrite $1 "gtk-theme-name = $\"$0$\"" FileClose $1 Goto done done: Pop $1 Pop $0 FunctionEnd !macro CheckUserInstallRightsMacro UN Function ${UN}CheckUserInstallRights Push $0 Push $1 ClearErrors UserInfo::GetName IfErrors Win9x Pop $0 UserInfo::GetAccountType Pop $1 StrCmp $1 "Admin" 0 +3 StrCpy $1 "HKLM" Goto done StrCmp $1 "Power" 0 +3 StrCpy $1 "HKLM" Goto done StrCmp $1 "User" 0 +3 StrCpy $1 "HKCU" Goto done StrCmp $1 "Guest" 0 +3 StrCpy $1 "NONE" Goto done ; Unknown error StrCpy $1 "NONE" Goto done Win9x: StrCpy $1 "HKLM" done: Exch $1 Exch Pop $0 FunctionEnd !macroend !insertmacro CheckUserInstallRightsMacro "" !insertmacro CheckUserInstallRightsMacro "un." ; ; Usage: ; Push $0 ; Path string ; Call VerifyDir ; Pop $0 ; 0 - Bad path 1 - Good path ; Function VerifyDir Exch $0 Push $1 Push $2 Loop: IfFileExists $0 dir_exists StrCpy $1 $0 ; save last ${GetParent} $0 $0 StrLen $2 $0 ; IfFileExists "C:" on xp returns true and on win2k returns false ; So we're done in such a case.. IntCmp $2 2 loop_done ; GetParent of "C:" returns "" IntCmp $2 0 loop_done Goto Loop loop_done: StrCpy $1 "$0\GaImFooB" ; Check if we can create dir on this drive.. ClearErrors CreateDirectory $1 IfErrors DirBad DirGood dir_exists: ClearErrors FileOpen $1 "$0\gaimfoo.bar" w IfErrors PathBad PathGood DirGood: RMDir $1 Goto PathGood1 DirBad: RMDir $1 Goto PathBad1 PathBad: FileClose $1 Delete "$0\gaimfoo.bar" PathBad1: StrCpy $0 "0" Push $0 Goto done PathGood: FileClose $1 Delete "$0\gaimfoo.bar" PathGood1: StrCpy $0 "1" Push $0 done: Exch 3 ; The top of the stack contains the output variable Pop $0 Pop $2 Pop $1 FunctionEnd Function .onVerifyInstDir Push $0 Push $INSTDIR Call VerifyDir Pop $0 StrCmp $0 "0" 0 dir_good Pop $0 Abort dir_good: Pop $0 FunctionEnd ; ; Usage: ; Call DoWeNeedGtk ; First Pop: ; 0 - We have the correct version ; Second Pop: Key where Version was found ; 1 - We have an old version that should work, prompt user for optional upgrade ; Second Pop: HKLM or HKCU depending on where GTK was found. ; 2 - We have an old version that needs to be upgraded ; Second Pop: HKLM or HKCU depending on where GTK was found. ; 3 - We don't have Gtk+ at all ; Second Pop: "NONE, HKLM or HKCU" depending on our rights.. ; Function DoWeNeedGtk ; Logic should be: ; - Check what user rights we have (HKLM or HKCU) ; - If HKLM rights.. ; - Only check HKLM key for GTK+ ; - If installed to HKLM, check it and return. ; - If HKCU rights.. ; - First check HKCU key for GTK+ ; - if good or bad exists stop and ret. ; - If no hkcu gtk+ install, check HKLM ; - If HKLM ver exists but old, return as if no ver exits. ; - If no rights ; - Check HKLM Push $0 Push $1 Push $2 Push $3 Call CheckUserInstallRights Pop $1 StrCmp $1 "HKLM" check_hklm StrCmp $1 "HKCU" check_hkcu check_hklm check_hkcu: ReadRegStr $0 HKCU ${GTK_REG_KEY} "Version" StrCpy $2 "HKCU" StrCmp $0 "" check_hklm have_gtk check_hklm: ReadRegStr $0 HKLM ${GTK_REG_KEY} "Version" StrCpy $2 "HKLM" StrCmp $0 "" no_gtk have_gtk have_gtk: ; GTK+ is already installed.. check version. ${VersionCompare} ${GTK_INSTALL_VERSION} $0 $3 IntCmp $3 1 +1 good_version good_version ${VersionCompare} ${GTK_MIN_VERSION} $0 $3 ; Bad version. If hklm ver and we have hkcu or no rights.. return no gtk StrCmp $1 "NONE" no_gtk ; if no rights.. can't upgrade StrCmp $1 "HKCU" 0 +2 ; if HKLM can upgrade.. StrCmp $2 "HKLM" no_gtk ; have hkcu rights.. if found hklm ver can't upgrade.. Push $2 IntCmp $3 1 +3 Push "1" ; Optional Upgrade Goto done Push "2" ; Mandatory Upgrade Goto done good_version: StrCmp $2 "HKLM" have_hklm_gtk have_hkcu_gtk have_hkcu_gtk: ; Have HKCU version ReadRegStr $0 HKCU ${GTK_REG_KEY} "Path" Goto good_version_cont have_hklm_gtk: ReadRegStr $0 HKLM ${GTK_REG_KEY} "Path" Goto good_version_cont good_version_cont: Push $0 ; The path to existing GTK+ Push "0" Goto done no_gtk: Push $1 ; our rights Push "3" Goto done done: ; The top two items on the stack are what we want to return Exch 4 Pop $0 Exch 4 Pop $3 Pop $2 Pop $1 FunctionEnd !macro RunCheckMacro UN Function ${UN}RunCheck Push $R0 System::Call 'kernel32::OpenMutex(i 2031617, b 0, t "gaim_is_running") i .R0' IntCmp $R0 0 done MessageBox MB_OK|MB_ICONEXCLAMATION $(GAIM_IS_RUNNING) /SD IDOK Abort done: Pop $R0 FunctionEnd !macroend !insertmacro RunCheckMacro "" !insertmacro RunCheckMacro "un." Function .onInit Push $R0 System::Call 'kernel32::CreateMutexA(i 0, i 0, t "gaim_installer_running") i .r1 ?e' Pop $R0 StrCmp $R0 0 +3 MessageBox MB_OK|MB_ICONEXCLAMATION $(INSTALLER_IS_RUNNING) /SD IDOK Abort Call RunCheck StrCpy $name "Gaim ${GAIM_VERSION}" StrCpy $GTK_THEME_SEL ${SecGtkWimp} StrCpy $SPELLCHECK_SEL "" !insertmacro SetSectionFlag ${SecGtkThemes} ${SF_RO} !insertmacro UnselectSection ${SecGtkThemes} !insertmacro SelectSection $GTK_THEME_SEL !insertmacro SetSectionFlag ${SecSpellCheck} ${SF_RO} !insertmacro UnselectSection ${SecSpellCheck} ;Mark the dictionaries that are already installed as readonly Call SelectAndDisableInstalledDictionaries StrCpy $ISSILENT "/NOUI" ; GTK installer has two silent states.. one with Message boxes, one without ; If gaim installer was run silently, we want to supress gtk installer msg boxes. IfSilent 0 set_gtk_normal StrCpy $ISSILENT "/S" set_gtk_normal: ${GetParameters} $R0 ClearErrors ${GetOptions} $R0 "/L=" $R0 IfErrors +3 StrCpy $LANGUAGE $R0 Goto skip_lang ; Select Language ; Display Language selection dialog !insertmacro MUI_LANGDLL_DISPLAY skip_lang: ; If install path was set on the command, use it. StrCmp $INSTDIR "" 0 instdir_done ; If gaim is currently intalled, we should default to where it is currently installed ClearErrors ReadRegStr $INSTDIR HKCU "${GAIM_REG_KEY}" "" IfErrors +2 StrCmp $INSTDIR "" 0 instdir_done ClearErrors ReadRegStr $INSTDIR HKLM "${GAIM_REG_KEY}" "" IfErrors +2 StrCmp $INSTDIR "" 0 instdir_done Call CheckUserInstallRights Pop $R0 StrCmp $R0 "HKLM" 0 user_dir StrCpy $INSTDIR "$PROGRAMFILES\Gaim" Goto instdir_done user_dir: Push $SMPROGRAMS ${GetParent} $SMPROGRAMS $R2 ${GetParent} $R2 $R2 StrCpy $INSTDIR "$R2\Gaim" instdir_done: Pop $R0 FunctionEnd Function un.onInit Call un.RunCheck StrCpy $name "Gaim ${GAIM_VERSION}" ; Get stored language preference !insertmacro MUI_UNGETLANGUAGE FunctionEnd ; This is a modified StartRadioButtons (from Sections.nsh) ; The only difference is that it allows for nothing in the group to be selected ; In that case, the default variable should be set to "" !macro StartRadioButtonsUnselectable var !define StartRadioButtons_Var "${var}" Push $R0 Push $R1 ;If we have no selection, don't try to unselect it StrCmp "${StartRadioButtons_Var}" "" +4 SectionGetFlags "${StartRadioButtons_Var}" $R0 IntOp $R1 $R0 & ${SF_SELECTED} IntOp $R0 $R0 & ${SECTION_OFF} SectionSetFlags "${StartRadioButtons_Var}" $R0 ; If the previous value isn't currently selected, ; we don't want to select it at the end IntCmp $R1 ${SF_SELECTED} +2 StrCpy "${StartRadioButtons_Var}" "" StrCpy $R1 "${StartRadioButtons_Var}" !macroend Function .onSelChange Push $0 Push $1 Push $2 !insertmacro StartRadioButtons $GTK_THEME_SEL !insertmacro RadioButton ${SecGtkNone} !insertmacro RadioButton ${SecGtkWimp} !insertmacro RadioButton ${SecGtkBluecurve} !insertmacro RadioButton ${SecGtkLighthouseblue} !insertmacro EndRadioButtons ; Check that at most one of the non-readonly spelling dictionaries are selected ; We can't use $R0 or $R1 in this block since they're used in the macros !insertmacro StartRadioButtonsUnselectable $SPELLCHECK_SEL ; Start with the first language dictionary IntOp $2 ${SecSpellCheck} + 1 start_spellcheck_radio: SectionGetFlags $2 $0 IntOp $1 $0 & ${SF_SECGRPEND} ; If it is the end of the section group, stop IntCmp $1 ${SF_SECGRPEND} end_spellcheck_radio IntOp $0 $0 & ${SF_RO} IntCmp $0 ${SF_RO} after_button_insert ; If !readonly, then it is part of the radiobutton group !insertmacro RadioButton $2 after_button_insert: IntOp $2 $2 + 1 ;Advance to the next section Goto start_spellcheck_radio end_spellcheck_radio: !insertmacro EndRadioButtons Pop $2 Pop $1 Pop $0 FunctionEnd ; Page enter and exit functions.. !ifndef WITH_GTK Function preWelcomePage ; If this installer dosn't have GTK, check whether we need it. ; We do this here an not in .onInit because language change in ; .onInit doesn't take effect until it is finished. Push $R0 Call DoWeNeedGtk Pop $R0 Pop $GTK_FOLDER IntCmp $R0 1 have_gtk have_gtk MessageBox MB_OK $(GTK_INSTALLER_NEEDED) /SD IDOK Quit have_gtk: Pop $R0 FunctionEnd !endif !ifdef WITH_GTK Function preGtkDirPage Push $R0 Push $R1 Call DoWeNeedGtk Pop $R0 Pop $R1 IntCmp $R0 2 +2 +2 no_gtk StrCmp $R0 "3" no_gtk no_gtk ; Don't show dir selector.. Upgrades are done to existing path.. Pop $R1 Pop $R0 Abort no_gtk: StrCmp $R1 "NONE" 0 no_gtk_cont ; Got no install rights.. Pop $R1 Pop $R0 Abort no_gtk_cont: ; Suggest path.. StrCmp $R1 "HKCU" 0 hklm1 ${GetParent} $SMPROGRAMS $R0 ${GetParent} $R0 $R0 StrCpy $R0 "$R0\GTK\2.0" Goto got_path hklm1: StrCpy $R0 "${GTK_DEFAULT_INSTALL_PATH}" got_path: StrCpy $name "GTK+ ${GTK_INSTALL_VERSION}" StrCpy $GTK_FOLDER $R0 Pop $R1 Pop $R0 FunctionEnd Function postGtkDirPage Push $R0 StrCpy $name "Gaim ${GAIM_VERSION}" Push $GTK_FOLDER Call VerifyDir Pop $R0 StrCmp $R0 "0" 0 done MessageBox MB_OK $(GTK_BAD_INSTALL_PATH) /SD IDOK Pop $R0 Abort done: Pop $R0 FunctionEnd !endif ; GetWindowsVersion ; ; Based on Yazno's function, http://yazno.tripod.com/powerpimpit/ ; Updated by Joost Verburg ; ; Returns on top of stack ; ; Windows Version (95, 98, ME, NT x.x, 2000, XP, 2003) ; or ; '' (Unknown Windows Version) ; ; Usage: ; Call GetWindowsVersion ; Pop $R0 ; ; at this point $R0 is "NT 4.0" or whatnot Function GetWindowsVersion Push $R0 Push $R1 ClearErrors ReadRegStr $R0 HKLM \ "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion IfErrors 0 lbl_winnt ; we are not NT ReadRegStr $R0 HKLM \ "SOFTWARE\Microsoft\Windows\CurrentVersion" VersionNumber StrCpy $R1 $R0 1 StrCmp $R1 '4' 0 lbl_error StrCpy $R1 $R0 3 StrCmp $R1 '4.0' lbl_win32_95 StrCmp $R1 '4.9' lbl_win32_ME lbl_win32_98 lbl_win32_95: StrCpy $R0 '95' Goto lbl_done lbl_win32_98: StrCpy $R0 '98' Goto lbl_done lbl_win32_ME: StrCpy $R0 'ME' Goto lbl_done lbl_winnt: StrCpy $R1 $R0 1 StrCmp $R1 '3' lbl_winnt_x StrCmp $R1 '4' lbl_winnt_x StrCpy $R1 $R0 3 StrCmp $R1 '5.0' lbl_winnt_2000 StrCmp $R1 '5.1' lbl_winnt_XP StrCmp $R1 '5.2' lbl_winnt_2003 lbl_error lbl_winnt_x: StrCpy $R0 "NT $R0" 6 Goto lbl_done lbl_winnt_2000: Strcpy $R0 '2000' Goto lbl_done lbl_winnt_XP: Strcpy $R0 'XP' Goto lbl_done lbl_winnt_2003: Strcpy $R0 '2003' Goto lbl_done lbl_error: Strcpy $R0 '' lbl_done: Pop $R1 Exch $R0 FunctionEnd ; SpellChecker Related Functions ;------------------------------- ; Convert the a Section index to the language code ; Push the section index onto the stack and pop off the language code after the call ; This will set the error code, if no match is found Function GetLangCodeForSection ClearErrors Push $R0 Exch Pop $R0 ;This is the section index IntCmp $R0 ${SecSpellCheckBreton} 0 +3 +3 StrCpy $R0 "br" Goto done IntCmp $R0 ${SecSpellCheckCatalan} 0 +3 +3 StrCpy $R0 "ca" Goto done IntCmp $R0 ${SecSpellCheckCzech} 0 +3 +3 StrCpy $R0 "cs" Goto done IntCmp $R0 ${SecSpellCheckWelsh} 0 +3 +3 StrCpy $R0 "cy" Goto done IntCmp $R0 ${SecSpellCheckDanish} 0 +3 +3 StrCpy $R0 "da" Goto done IntCmp $R0 ${SecSpellCheckGerman} 0 +3 +3 StrCpy $R0 "de" Goto done IntCmp $R0 ${SecSpellCheckGreek} 0 +3 +3 StrCpy $R0 "el" Goto done IntCmp $R0 ${SecSpellCheckEnglish} 0 +3 +3 StrCpy $R0 "en" Goto done IntCmp $R0 ${SecSpellCheckEsperanto} 0 +3 +3 StrCpy $R0 "eo" Goto done IntCmp $R0 ${SecSpellCheckSpanish} 0 +3 +3 StrCpy $R0 "es" Goto done IntCmp $R0 ${SecSpellCheckFaroese} 0 +3 +3 StrCpy $R0 "fo" Goto done IntCmp $R0 ${SecSpellCheckFrench} 0 +3 +3 StrCpy $R0 "fr" Goto done IntCmp $R0 ${SecSpellCheckItalian} 0 +3 +3 StrCpy $R0 "it" Goto done IntCmp $R0 ${SecSpellCheckDutch} 0 +3 +3 StrCpy $R0 "nl" Goto done IntCmp $R0 ${SecSpellCheckNorwegian} 0 +3 +3 StrCpy $R0 "no" Goto done IntCmp $R0 ${SecSpellCheckPolish} 0 +3 +3 StrCpy $R0 "pl" Goto done IntCmp $R0 ${SecSpellCheckPortuguese} 0 +3 +3 StrCpy $R0 "pt" Goto done IntCmp $R0 ${SecSpellCheckRomanian} 0 +3 +3 StrCpy $R0 "ro" Goto done IntCmp $R0 ${SecSpellCheckRussian} 0 +3 +3 StrCpy $R0 "ru" Goto done IntCmp $R0 ${SecSpellCheckSlovak} 0 +3 +3 StrCpy $R0 "sk" Goto done IntCmp $R0 ${SecSpellCheckSwedish} 0 +3 +3 StrCpy $R0 "sv" Goto done IntCmp $R0 ${SecSpellCheckUkrainian} 0 +3 +3 StrCpy $R0 "uk" Goto done SetErrors done: Exch $R0 FunctionEnd ;GetLangCodeForSection ; Select and Disable any Sections that have currently installed dictionaries Function SelectAndDisableInstalledDictionaries Push $R0 Push $R1 Push $R2 ; Start with the first language dictionary IntOp $R0 ${SecSpellCheck} + 1 start: ; If it is the end of the section group, stop SectionGetFlags $R0 $R1 IntOp $R2 $R1 & ${SF_SECGRPEND} IntCmp $R2 ${SF_SECGRPEND} done Push $R0 Call GetLangCodeForSection Pop $R2 IfErrors end_loop ReadRegStr $R2 HKLM "${ASPELL_REG_KEY}-$R2" "" ; Check that the dictionary is installed StrCmp $R2 "" end_loop ; If it isn't installed, skip to the next item IntOp $R1 $R1 | ${SF_RO} ; Mark Readonly IntOp $R1 $R1 | ${SF_SELECTED} ; Select SectionSetFlags $R0 $R1 end_loop: IntOp $R0 $R0 + 1 ;Advance to the next section Goto start done: Pop $R2 Pop $R1 Pop $R0 FunctionEnd Function InstallAspellAndDict Push $R0 Exch Call GetLangCodeForSection Pop $R0 ;This is the language code Push $R1 IfErrors done ; We weren't able to convert the section to lang code retry: Call InstallAspell Pop $R1 StrCmp $R1 "" +3 StrCmp $R1 "cancel" done MessageBox MB_RETRYCANCEL "$(GAIM_SPELLCHECK_ERROR) : $R1" /SD IDCANCEL IDRETRY retry IDCANCEL done retry_dict: Push $R0 Call InstallAspellDictionary Pop $R1 StrCmp $R1 "" +3 StrCmp $R1 "cancel" done MessageBox MB_RETRYCANCEL "$(GAIM_SPELLCHECK_DICT_ERROR) : $R1" /SD IDCANCEL IDRETRY retry_dict done: Pop $R1 Pop $R0 FunctionEnd Function InstallAspell Push $R0 Push $R1 Push $R2 check: ClearErrors ReadRegDWORD $R0 HKLM ${ASPELL_REG_KEY} "AspellVersion" IntCmp $R0 15 installed ; If this is the check after installation, don't infinite loop on failure StrCmp $R1 "$TEMP\aspell_installer.exe" 0 +3 StrCpy $R0 $(ASPELL_INSTALL_FAILED) Goto done ; We need to download and install aspell StrCpy $R1 "$TEMP\aspell_installer.exe" StrCpy $R2 "${DOWNLOADER_URL}?version=${GAIM_VERSION}&dl_pkg=aspell_core" DetailPrint "Downloading Aspell... ($R2)" NSISdl::download $R2 $R1 Pop $R0 StrCmp $R0 "success" +2 Goto done ExecWait '"$R1"' Delete $R1 Goto check ; Check that it is now installed correctly installed: ;Aspell is currently installed, no error message DetailPrint "Aspell is installed" StrCpy $R0 '' done: Pop $R2 Pop $R1 Exch $R0 FunctionEnd Function InstallAspellDictionary Push $R0 Exch Pop $R0 ;This is the language code Push $R1 Push $R2 Push $R3 check: ClearErrors ReadRegStr $R2 HKLM "${ASPELL_REG_KEY}-$R0" "" StrCmp $R2 "" 0 installed ; If this is the check after installation, don't infinite loop on failure StrCmp $R1 "$TEMP\aspell_dict-$R0.exe" 0 +3 StrCpy $R0 $(ASPELL_INSTALL_FAILED) Goto done ; We need to download and install aspell StrCpy $R1 "$TEMP\aspell_dict-$R0.exe" StrCpy $R3 "${DOWNLOADER_URL}?version=${GAIM_VERSION}&dl_pkg=lang_$R0" DetailPrint "Downloading the Aspell $R0 Dictionary... ($R3)" NSISdl::download $R3 $R1 Pop $R3 StrCmp $R3 "success" +3 StrCpy $R0 $R3 Goto done ExecWait '"$R1"' Delete $R1 Goto check ; Check that it is now installed correctly installed: ;The dictionary is currently installed, no error message DetailPrint "Aspell $R0 Dictionary is installed" StrCpy $R0 '' done: Pop $R3 Pop $R2 Pop $R1 Exch $R0 FunctionEnd