mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-12-14 17:39:58 +00:00
259 lines
6.5 KiB
Plaintext
259 lines
6.5 KiB
Plaintext
|
/*
|
||
|
|
|
||
|
|
LyX for Windows Launcher
|
||
|
|
Author: Joost Verburg
|
||
|
|
|
||
|
|
This will be installed as lyx.exe.
|
||
|
|
|
||
|
|
The application will setup the environment variables and geometry based
|
||
|
|
on registry settings and obtain the command line output of lyxc.exe,
|
||
|
|
which can be shown in case of a crash. Version information and an icon are
|
||
|
|
also included.
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
!include "MUI.nsh"
|
||
|
|
!include "LogicLib.nsh"
|
||
|
|
|
||
|
|
!include "..\packaging\installer\settings.nsh" ;Version info from installer
|
||
|
|
|
||
|
|
Caption "${APP_NAME} ${APP_VERSION}"
|
||
|
|
OutFile lyx.exe
|
||
|
|
BrandingText " "
|
||
|
|
|
||
|
|
;--------------------------------
|
||
|
|
;User interface for debug output
|
||
|
|
|
||
|
|
!define MUI_ICON "..\packaging\icons\lyx_32x32.ico"
|
||
|
|
!define MUI_CUSTOMFUNCTION_GUIINIT InitInterface
|
||
|
|
|
||
|
|
!define MUI_INSTFILESPAGE_FINISHHEADER_TEXT "Error Information"
|
||
|
|
!define MUI_INSTFILESPAGE_FINISHHEADER_SUBTEXT "See Chapter 3 of the LyX Introduction \
|
||
|
|
(Help > Introduction) for information about reporting this issue."
|
||
|
|
|
||
|
|
!insertmacro MUI_PAGE_INSTFILES
|
||
|
|
|
||
|
|
!insertmacro MUI_LANGUAGE English
|
||
|
|
|
||
|
|
ShowInstDetails show
|
||
|
|
|
||
|
|
;--------------------------------
|
||
|
|
;Windows API constants
|
||
|
|
|
||
|
|
!define SWP_NOSIZE 0x1
|
||
|
|
!define MONITOR_DEFAULTTONEAREST 0x2
|
||
|
|
|
||
|
|
!define SM_CYCAPTION 4
|
||
|
|
!define SM_CXSIZEFRAME 32
|
||
|
|
!define SM_CYSIZEFRAME 33
|
||
|
|
|
||
|
|
;--------------------------------
|
||
|
|
;Variables
|
||
|
|
|
||
|
|
Var LyXLanguage
|
||
|
|
Var Geometry
|
||
|
|
Var ReturnValue
|
||
|
|
|
||
|
|
;--------------------------------
|
||
|
|
;Version information
|
||
|
|
|
||
|
|
VIProductVersion "${APP_VERSION_NUMBER}"
|
||
|
|
VIAddVersionKey /LANG=${LANG_ENGLISH} "ProductName" "${APP_NAME}"
|
||
|
|
VIAddVersionKey /LANG=${LANG_ENGLISH} "FileDescription" "${APP_INFO}"
|
||
|
|
VIAddVersionKey /LANG=${LANG_ENGLISH} "FileVersion" "${APP_VERSION}"
|
||
|
|
VIAddVersionKey /LANG=${LANG_ENGLISH} "LegalCopyright" "${APP_COPYRIGHT}"
|
||
|
|
|
||
|
|
;--------------------------------
|
||
|
|
;Macros
|
||
|
|
|
||
|
|
!macro SystemCall STACK
|
||
|
|
|
||
|
|
Push "${STACK}"
|
||
|
|
CallInstDLL "$EXEDIR\System.dll" Call
|
||
|
|
|
||
|
|
!macroend
|
||
|
|
|
||
|
|
!macro GetLyXSetting NAME VAR
|
||
|
|
|
||
|
|
Push "${NAME}"
|
||
|
|
Call GetLyXSetting
|
||
|
|
Pop "${VAR}"
|
||
|
|
|
||
|
|
!macroend
|
||
|
|
|
||
|
|
;--------------------------------
|
||
|
|
;Main application
|
||
|
|
|
||
|
|
Section -Prepare
|
||
|
|
|
||
|
|
HideWindow
|
||
|
|
|
||
|
|
;LyX Language
|
||
|
|
!insertmacro GetLyXSetting "Language" $LyXLanguage
|
||
|
|
|
||
|
|
;Set language for gettext
|
||
|
|
${if} $LyXLanguage != ""
|
||
|
|
Push LC_ALL
|
||
|
|
Push $LyXLanguage
|
||
|
|
Call SetEnvironmentVariable
|
||
|
|
${endif}
|
||
|
|
|
||
|
|
;Apparently the output charset needs to be set to some value,
|
||
|
|
;otherwise no non-ASCII characters will be displayed
|
||
|
|
Push OUTPUT_CHARSET
|
||
|
|
Push -
|
||
|
|
Call SetEnvironmentVariable
|
||
|
|
|
||
|
|
;Point to the Aiksaurus data in the LyX folder
|
||
|
|
Push AIK_DATA_DIR
|
||
|
|
Push "$EXEDIR\aiksaurus"
|
||
|
|
Call SetEnvironmentVariable
|
||
|
|
|
||
|
|
;LyX window geometry
|
||
|
|
!insertmacro GetLyXSetting "Geometry" $Geometry
|
||
|
|
|
||
|
|
${if} $Geometry == ""
|
||
|
|
|
||
|
|
;No geometry is set in the registry, calculate a good default for the monitor
|
||
|
|
|
||
|
|
;Work area of current monitor
|
||
|
|
!insertmacro SystemCall "user32::MonitorFromWindow(i $HWNDPARENT, i ${MONITOR_DEFAULTTONEAREST}) i.R0"
|
||
|
|
!insertmacro SystemCall "*(i40, i0, i0, i0, i0, i0, i0, i0, i0, i0) i .R1)" ;MONITORINFO input (size of structure)
|
||
|
|
!insertmacro SystemCall "user32::GetMonitorInfo(i $R0, i $R1)"
|
||
|
|
!insertmacro SystemCall "*$R1(i., i., i., i., i., i .R2, i .R3, i .R4, i .R5, i.)" ;MONITORINFO ouput (RECT of work area)
|
||
|
|
IntOp $R6 $R4 - $R2 ;Width
|
||
|
|
IntOp $R7 $R5 - $R3 ;Height
|
||
|
|
|
||
|
|
;LyX expects settings for the inner window
|
||
|
|
!insertmacro SystemCall "user32::GetSystemMetrics(i ${SM_CYCAPTION}) i .R0" ;Caption area
|
||
|
|
IntOp $R3 $R3 + $R0
|
||
|
|
IntOp $R7 $R7 - $R0
|
||
|
|
!insertmacro SystemCall "user32::GetSystemMetrics(i ${SM_CYSIZEFRAME}) i .R0" ;Y border
|
||
|
|
IntOp $R3 $R3 + $R0
|
||
|
|
IntOp $R0 $R0 * 2
|
||
|
|
IntOp $R7 $R7 - $R0
|
||
|
|
!insertmacro SystemCall "user32::GetSystemMetrics(i ${SM_CXSIZEFRAME}) i .R0" ;X border
|
||
|
|
IntOp $R2 $R2 + $R0
|
||
|
|
IntOp $R0 $R0 * 2
|
||
|
|
IntOp $R6 $R6 - $R0
|
||
|
|
|
||
|
|
;Leave space for panals on right side if possible
|
||
|
|
${if} $R6 > 1250
|
||
|
|
IntOp $R6 $R6 - 430
|
||
|
|
${endif}
|
||
|
|
|
||
|
|
;Limit width to 1024 pixels for convenient reading
|
||
|
|
${if} $R6 > 1024
|
||
|
|
StrCpy $R6 1024
|
||
|
|
${endif}
|
||
|
|
|
||
|
|
StrCpy $Geometry "$R6x$R7+$R2+$R3" ;WxH+X+Y
|
||
|
|
|
||
|
|
${endif}
|
||
|
|
|
||
|
|
SectionEnd
|
||
|
|
|
||
|
|
Section -Launch
|
||
|
|
|
||
|
|
;Start LyX and capture the command line output
|
||
|
|
|
||
|
|
Push '"$EXEDIR\lyxc.exe" -geometry $Geometry'
|
||
|
|
CallInstDLL "$EXEDIR\nsExec.dll" ExecToLog
|
||
|
|
Pop $ReturnValue ;Return value
|
||
|
|
|
||
|
|
SectionEnd
|
||
|
|
|
||
|
|
Section -Debug
|
||
|
|
|
||
|
|
;Check whether something went wrong
|
||
|
|
|
||
|
|
${if} $ReturnValue == "error"
|
||
|
|
|
||
|
|
;Probably the file does not exist
|
||
|
|
MessageBox MB_OK|MB_ICONSTOP "Failed to start LyX."
|
||
|
|
|
||
|
|
${elseif} $ReturnValue != 0
|
||
|
|
|
||
|
|
;LyX has crashed
|
||
|
|
MessageBox MB_YESNO|MB_ICONSTOP \
|
||
|
|
"LyX has been closed because of an unexpected situation.$\n\
|
||
|
|
This is most likely caused by a flaw in the software.$\n$\n\
|
||
|
|
When you open your documents again, you will be able$\n\
|
||
|
|
to restore an emergency save and continue working.$\n$\n\
|
||
|
|
Would you like to view detailed information about this error?" \
|
||
|
|
IDYES debug IDNO no_debug
|
||
|
|
|
||
|
|
${endif}
|
||
|
|
|
||
|
|
no_debug:
|
||
|
|
|
||
|
|
Quit
|
||
|
|
|
||
|
|
debug:
|
||
|
|
|
||
|
|
;The interface with debug information will be shown
|
||
|
|
|
||
|
|
SetDetailsPrint textonly
|
||
|
|
DetailPrint "The following details are available about the error:"
|
||
|
|
SetDetailsPrint none
|
||
|
|
|
||
|
|
;Hide controls we don't need
|
||
|
|
FindWindow $R0 "#32770" "" $HWNDPARENT
|
||
|
|
GetDlgItem $R0 $R0 1004
|
||
|
|
ShowWindow $R0 ${SW_HIDE}
|
||
|
|
|
||
|
|
;Put the log window on the screen again
|
||
|
|
Push "user32::SetWindowPos(i $HWNDPARENT, i 0, i 133, i 100, i 0, i 0, i ${SWP_NOSIZE})"
|
||
|
|
CallInstDLL "$EXEDIR\System.dll" Call
|
||
|
|
BringToFront
|
||
|
|
|
||
|
|
SectionEnd
|
||
|
|
|
||
|
|
;--------------------------------
|
||
|
|
;Functions
|
||
|
|
|
||
|
|
Function InitInterface
|
||
|
|
|
||
|
|
;Keep the log window outside the screen to ensure that there will be no flickering
|
||
|
|
Push "user32::SetWindowPos(i $HWNDPARENT, i 0, i -32000, i -32000, i 0, i 0, i ${SWP_NOSIZE})"
|
||
|
|
CallInstDLL "$EXEDIR\System.dll" Call
|
||
|
|
|
||
|
|
FunctionEnd
|
||
|
|
|
||
|
|
Function GetLyXSetting
|
||
|
|
|
||
|
|
;Get a LyX setting from the registry
|
||
|
|
;First try a current user setting, then a system setting
|
||
|
|
|
||
|
|
Exch $R0
|
||
|
|
Push $R1
|
||
|
|
|
||
|
|
ReadRegStr $R1 HKCU ${APP_REGKEY_SETTINGS} $R0
|
||
|
|
|
||
|
|
${if} $R1 == ""
|
||
|
|
ReadRegStr $R1 HKLM ${APP_REGKEY_SETTINGS} $R0
|
||
|
|
${endif}
|
||
|
|
|
||
|
|
Exch $R1
|
||
|
|
Exch 1
|
||
|
|
Pop $R0
|
||
|
|
|
||
|
|
FunctionEnd
|
||
|
|
|
||
|
|
Function SetEnvironmentVariable
|
||
|
|
|
||
|
|
;Sets the value of an environment variable
|
||
|
|
;Input on stack: name of variable, value
|
||
|
|
|
||
|
|
Exch $R0
|
||
|
|
Exch 1
|
||
|
|
Exch $R1
|
||
|
|
|
||
|
|
Push 'kernel32::SetEnvironmentVariable(t, t) i("$R1", "$R0")'
|
||
|
|
CallInstDLL "$EXEDIR\System.dll" Call
|
||
|
|
|
||
|
|
Pop $R1
|
||
|
|
Pop $R0
|
||
|
|
|
||
|
|
FunctionEnd
|