tools --> Tools
This commit is contained in:
@@ -220,7 +220,7 @@ Dim oDocument as Object
|
|||||||
' from the AutoPilot or from a template. It is not possible to set these
|
' from the AutoPilot or from a template. It is not possible to set these
|
||||||
' links for the template created by the AutoPilot because then it is not
|
' links for the template created by the AutoPilot because then it is not
|
||||||
' possible to modify the template.
|
' possible to modify the template.
|
||||||
BasicLibraries.LoadLibrary("tools")
|
BasicLibraries.LoadLibrary("Tools")
|
||||||
oDocument = StarDesktop.ActiveFrame.Controller.Model
|
oDocument = StarDesktop.ActiveFrame.Controller.Model
|
||||||
AttachBasicMacroToEvent(oDocument,"OnSaveDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")
|
AttachBasicMacroToEvent(oDocument,"OnSaveDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")
|
||||||
AttachBasicMacroToEvent(oDocument,"OnSaveAsDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")
|
AttachBasicMacroToEvent(oDocument,"OnSaveAsDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")
|
||||||
@@ -236,7 +236,7 @@ Dim i as Integer
|
|||||||
Dim GraphicFilePath as String
|
Dim GraphicFilePath as String
|
||||||
Dim SavePath$
|
Dim SavePath$
|
||||||
Dim GraphicFileName as String
|
Dim GraphicFileName as String
|
||||||
BasicLibraries.LoadLibrary("tools")
|
BasicLibraries.LoadLibrary("Tools")
|
||||||
GetPaths()
|
GetPaths()
|
||||||
oBaseDocument = StarDesktop.ActiveFrame.Controller.Model
|
oBaseDocument = StarDesktop.ActiveFrame.Controller.Model
|
||||||
Msgbox oBaseDocument.Url
|
Msgbox oBaseDocument.Url
|
||||||
|
Reference in New Issue
Block a user