mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-12-15 09:43:31 +00:00
5542bb2238
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/branches/BRANCH_1_4_X@18931 a592a061-630c-0410-9148-cb99ea01b6c8
317 lines
7.6 KiB
Plaintext
317 lines
7.6 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 while debugging or in case of a crash. Version information and an icon
|
|
are also included.
|
|
|
|
*/
|
|
|
|
!include "MUI.nsh"
|
|
!include "LogicLib.nsh"
|
|
!include "FileFunc.nsh"
|
|
!include "StrFunc.nsh"
|
|
!insertmacro GetParameters
|
|
${StrStr}
|
|
|
|
!include "..\packaging\installer\settings.nsh" ;Version info from installer
|
|
|
|
;--------------------------------
|
|
;Settings
|
|
|
|
Caption "${APP_NAME} ${APP_VERSION}"
|
|
OutFile lyx.exe
|
|
BrandingText " "
|
|
|
|
;--------------------------------
|
|
;Windows Vista settings
|
|
|
|
RequestExecutionLevel user
|
|
|
|
;--------------------------------
|
|
;Variables
|
|
|
|
Var Parameters
|
|
Var Debug
|
|
Var LyXLanguage
|
|
Var Geometry
|
|
Var ReturnValue
|
|
Var ResultText
|
|
Var ResultSubText
|
|
|
|
;--------------------------------
|
|
;User interface for debug output
|
|
|
|
!define MUI_ICON "..\packaging\icons\lyx_32x32.ico"
|
|
!define MUI_CUSTOMFUNCTION_GUIINIT InitInterface
|
|
|
|
!define MUI_INSTFILESPAGE_FINISHHEADER_TEXT $ResultText
|
|
!define MUI_INSTFILESPAGE_FINISHHEADER_SUBTEXT $ResultSubText
|
|
!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
|
|
|
|
;--------------------------------
|
|
;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
|
|
|
|
${if} $Debug == ${FALSE}
|
|
HideWindow
|
|
${endif}
|
|
|
|
;Hide controls we don't need
|
|
FindWindow $R0 "#32770" "" $HWNDPARENT
|
|
GetDlgItem $R0 $R0 1004
|
|
ShowWindow $R0 ${SW_HIDE}
|
|
|
|
;Debug info
|
|
!insertmacro MUI_HEADER_TEXT "Debugging LyX" "The events you have chosen \
|
|
are being logged."
|
|
SetDetailsPrint textonly
|
|
DetailPrint "Debug log:"
|
|
SetDetailsPrint listonly
|
|
|
|
;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 $Parameters'
|
|
CallInstDLL "$EXEDIR\Console.dll" ExecToLog
|
|
Pop $ReturnValue ;Return value
|
|
|
|
SectionEnd
|
|
|
|
Section -Debug
|
|
|
|
${if} $Debug == ${FALSE}
|
|
|
|
;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:
|
|
|
|
ShowWindow $R0 ${SW_HIDE}
|
|
|
|
${endif}
|
|
|
|
${if} $ReturnValue != 0
|
|
|
|
StrCpy $ResultText "Error Information"
|
|
StrCpy $ResultSubText "See Chapter 3 of the LyX Introduction \
|
|
(Help > Introduction) for information about reporting this issue."
|
|
|
|
${else}
|
|
|
|
StrCpy $ResultText "Debugging Completed"
|
|
StrCpy $ResultSubText "The events you have chosen are logged below."
|
|
|
|
${endif}
|
|
|
|
${if} $Debug == ${FALSE}
|
|
|
|
;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
|
|
|
|
${endif}
|
|
|
|
SectionEnd
|
|
|
|
|
|
;--------------------------------
|
|
;Functions
|
|
|
|
Function InitInterface
|
|
|
|
;Command line parameters
|
|
Call GetParameters
|
|
Pop $Parameters
|
|
|
|
;Check for debug mode
|
|
${StrStr} $R0 $Parameters "-dbg"
|
|
|
|
${if} $R0 == ""
|
|
StrCpy $Debug ${FALSE}
|
|
${else}
|
|
StrCpy $Debug ${TRUE}
|
|
${endif}
|
|
|
|
${if} $Debug == ${FALSE}
|
|
|
|
;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
|
|
|
|
${endif}
|
|
|
|
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
|