From 9573e34faf96728ed333d464fd71cbf83f0ef5fe Mon Sep 17 00:00:00 2001
From: Behrend Cornelius <bc@openoffice.org>
Date: Mon, 19 Nov 2001 15:30:31 +0000
Subject: #94832# Routine 'CopyGraphics' and "EndDialog" modified

---
 wizards/source/webwizard/HtmlAutoPilotBasic.xba | 14 +++++++-------
 wizards/source/webwizard/dialog.xlb             |  4 ++--
 wizards/source/webwizard/script.xlb             |  4 ++--
 3 files changed, 11 insertions(+), 11 deletions(-)

(limited to 'wizards/source/webwizard')

diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba
index 0ef9cc8f2de6..bcb6e4b40906 100644
--- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba
+++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba
@@ -19,7 +19,6 @@ Public NumberOfLayouts%, NumberOfStyles%
 &apos; Filled with title, previous, next, home, top, bullet, background, file name
 Public Style(8, MaxStyles) as String
 
-&apos; Filled with title, file name
 Public Layout$(2, MaxLayouts)
 
 Public TextureDir$, BulletDir$, GraphicsDir$, GalleryDir$, PhotosDir$
@@ -131,7 +130,7 @@ On Local Error Goto ErrorOcurred
 		End If
 		oBaseDocument.UnlockControllers
 		oViewCursor.GotoStart(False)
-	ToggleDialogControls(True, &quot;lbTemplate&quot;)
+		ToggleDialogControls(True, &quot;lbTemplate&quot;)
 	End If
 End Sub
 
@@ -205,10 +204,9 @@ Sub EndDialog()
 		AttachBasicMacroToEvent(oBaseDocument,&quot;OnNew&quot;, &quot;WebWizard.HtmlAutoPilotBasic.SetEvent()&quot;)
 		&apos; Call the Store template dialog
 		DispatchSlot(5538)
-	Else
-		SetEvent()
+		AttachBasicMacroToEvent(oBaseDocument,&quot;OnNew&quot;, &quot;&quot;)
 	End If
-&apos;	MainDialog.EndExecute()
+	SetEvent()
 End Sub
 
 
@@ -237,7 +235,9 @@ Dim SavePath as String
     BasicLibraries.LoadLibrary(&quot;Tools&quot;)
 	oUcb = createUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
 	GetPaths()
-	oBaseDocument = StarDesktop.ActiveFrame.Controller.Model
+	oBaseDocument = ThisComponent
+&apos;	oBaseDocument.LockControllers()
+
 	&apos; Note: The sub DirectoryNameoutofPath should be change, so that the last character is a slash
 	SavePath = DirectoryNameoutofPath(oBaseDocument.Url, &quot;/&quot;) &amp; &quot;/&quot;
 
@@ -258,11 +258,11 @@ Dim SavePath as String
 		.GetUserFieldValue(3) = &quot;&quot;
 	End With
 
-&apos;	&apos; Reset events
 	AttachBasicMacroToEvent(oBaseDocument,&quot;OnSaveDone&quot;, &quot;&quot;)
 	AttachBasicMacroToEvent(oBaseDocument,&quot;OnSaveAsDone&quot;, &quot;&quot;)
 	AttachBasicMacroToEvent(oBaseDocument,&quot;OnNew&quot;, &quot;&quot;)
 	oBaseDocument.Store
+&apos;	oBaseDocument.UnlockControllers()
 End Sub
 
 		
diff --git a/wizards/source/webwizard/dialog.xlb b/wizards/source/webwizard/dialog.xlb
index d1b9cb066f0c..76e5001d0066 100644
--- a/wizards/source/webwizard/dialog.xlb
+++ b/wizards/source/webwizard/dialog.xlb
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
-<library:library xmlns:library="http://openoffice.org/2000/library" library:name="WebWizard" library:readonly="true" library:passwordprotected="false">
+<library:library xmlns:library="http://openoffice.org/2000/library" library:name="WebWizard" library:readonly="false" library:passwordprotected="false">
  <library:element library:name="WebWzrd"/>
-</library:library>
+</library:library>
\ No newline at end of file
diff --git a/wizards/source/webwizard/script.xlb b/wizards/source/webwizard/script.xlb
index 1045820b7002..506d68bac301 100644
--- a/wizards/source/webwizard/script.xlb
+++ b/wizards/source/webwizard/script.xlb
@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
-<library:library xmlns:library="http://openoffice.org/2000/library" library:name="WebWizard" library:readonly="true" library:passwordprotected="false">
+<library:library xmlns:library="http://openoffice.org/2000/library" library:name="WebWizard" library:readonly="false" library:passwordprotected="false">
  <library:element library:name="HtmlAutoPilotBasic"/>
  <library:element library:name="Language"/>
  <library:element library:name="Bullets"/>
  <library:element library:name="Common"/>
-</library:library>
+</library:library>
\ No newline at end of file
-- 
cgit v1.2.3