From 1a63f20077490bcdeb2236823155e51ae6f9a797 Mon Sep 17 00:00:00 2001
From: joostverburg <joostverburg@212acab6-be3b-0410-9dea-997c60f758d6>
Date: Fri, 20 Sep 2002 20:11:32 +0000
Subject: [PATCH] Bugfixes, no hard-coded names, io support

git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@1079 212acab6-be3b-0410-9dea-997c60f758d6
---
 Examples/Modern UI/ModernUI.nsh | 61 +++++++++++++++++++++++++++++----
 1 file changed, 55 insertions(+), 6 deletions(-)

diff --git a/Examples/Modern UI/ModernUI.nsh b/Examples/Modern UI/ModernUI.nsh
index df2cfe6f..6aa1301b 100644
--- a/Examples/Modern UI/ModernUI.nsh	
+++ b/Examples/Modern UI/ModernUI.nsh	
@@ -1,4 +1,4 @@
-;Modern UI Header File version 1.19b
+;Modern UI Header File version 1.19c
 ;Written by Joost Verburg
 
 ;See Example.nsi & Multilanguage.nsi for an example of usage
@@ -7,6 +7,9 @@
 
 !define MUI_MACROS_USED
 
+!define IO_DIRECTION_NEXT 1
+!define IO_DIRECTION_PREV 2
+
 !macro MUI_INTERFACE UI ICON UNICON CHECKS PROGRESSBAR
 
   ;User interface
@@ -48,7 +51,7 @@
 
  ;Text on inner dialogs components
 
-  StrCmp $LANGUAGE ${LANGID} "" +3
+  StrCmp $LANGUAGE ${LANGID} "" +4
     FindWindow ${TEMP1} "#32770" "" $HWNDPARENT
     GetDlgItem ${TEMP1} ${TEMP1} ${CONTROL}
     SendMessage ${TEMP1} ${WM_SETTEXT} 0 "STR:${TEXT}"
@@ -106,11 +109,11 @@
 
 !macroend
 
-!macro MUI_PREVPAGE
+!macro MUI_PREVPAGE CALL
 
   IntOp ${CURRENTPAGE} ${CURRENTPAGE} - 1
 
-  Call SetPage
+  Call "${CALL}"
   
 !macroend
 
@@ -130,10 +133,10 @@
 
   ;Text on the white rectangle
 
-  StrCmp $LANGUAGE ${LANGID} "" +4
+  StrCmp $LANGUAGE ${LANGID} "" +5
     GetDlgItem ${TEMP1} $HWNDPARENT 1037
     SendMessage ${TEMP1} ${WM_SETTEXT} 0 "STR:${TEXT}"
-	GetDlgItem ${TEMP1} $HWNDPARENT 1038
+    GetDlgItem ${TEMP1} $HWNDPARENT 1038
     SendMessage ${TEMP1} ${WM_SETTEXT} 0 "STR:${SUBTEXT}"
 
 !macroend
@@ -195,4 +198,50 @@
   
 !macroend
 
+!macro MUI_INSTALLOPTIONS_INIT
+
+  Call Initialize_____Plugins
+  
+!macroend
+
+!macro MUI_INSTALLOPTIONS_UNINIT
+
+  Call un.Initialize_____Plugins
+  
+!macroend
+
+!macro MUI_INSTALLOPTIONS_EXTRACT FILE
+
+  File /oname=$PLUGINSDIR\${FILE} "${FILE}"
+  
+!macroend
+
+!macro MUI_INSTALLOPTIONS_SETDIRECTION DIRECTION
+
+  StrCpy ${IO_DIRECTION} "${DIRECTION}"
+
+!macroend
+
+!macro MUI_INSTALLOPTIONS_BACK
+
+  StrCmp ${IO_DIRECTION} "${IO_DIRECTION_NEXT}" "" +3
+    Call .onPrevPage
+    Abort
+  StrCmp ${IO_DIRECTION} "${IO_DIRECTION_PREV}" "" +3
+    Call .onPrevPage
+    Goto done
+            
+!macroend
+
+!macro MUI_INSTALLOPTIONS_NEXT
+
+  StrCmp ${IO_DIRECTION} ${IO_DIRECTION_NEXT} "" +3
+    Call .onNextPage
+    Goto done
+  StrCmp ${IO_DIRECTION} ${IO_DIRECTION_PREV} "" +3
+    Call .onNextPage
+    Abort
+   
+!macroend
+
 !endif
\ No newline at end of file