diff options
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/tools/Listbox.xba | 1 | ||||
| -rw-r--r-- | wizards/source/tools/Misc.xba | 4 | ||||
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 1 |
3 files changed, 1 insertions, 5 deletions
diff --git a/wizards/source/tools/Listbox.xba b/wizards/source/tools/Listbox.xba index 8d3eea6a0d23..2a023c17accc 100644 --- a/wizards/source/tools/Listbox.xba +++ b/wizards/source/tools/Listbox.xba @@ -166,7 +166,6 @@ Dim iOldSourceSelect as Integer lstSource.StringItemList() = NewSourceList() lstTarget.StringItemList() = RemoveSelected(lstTarget) End If -' Todo: Hier weitermachen: SetNewSelection(lstSource, iOldSourceSelect) SetNewSelection(lstTarget, iOldTargetSelect) diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index eea586e440d7..5bca3caa4b61 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -17,7 +17,6 @@ Dim PropList(3,1)' as String PropList(2,1) = "extra" PropList(3,0) = "IsPasswordRequired" PropList(3,1) = True -' RegisterNewDataSource("Doc_Erica_Test_Unicode", PropList()) End Sub @@ -31,7 +30,7 @@ Dim i as Integer For i = 0 To Ubound(PropertyList(), 1) sPropName = PropertyList(i,0) sPropValue = PropertyList(i,1) - oDataSource.SetPropertyValue(sPropName,sPropValue) 'GetByName(sPropName) = sPropValue 'oPropInfo.GetPropertyByName(sPropName)) = sPropValue ' PropertyList(i,0))) = PropertyList(i,1) + oDataSource.SetPropertyValue(sPropName,sPropValue) Next i If Not IsMissing(DriverProperties()) Then oDataSource.Info() = DriverProperties() @@ -270,7 +269,6 @@ End Function Function GetResText( nID as integer ) As string On Error Goto ErrorOcurred If Not IsNull(oResSrv) Then - ' eigentlich sollte hier stehen GetResText = oResSrv.getString( nID ) Else GetResText = "" diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index ce9f5492fe44..9b3ff5f36bee 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -1,7 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ModuleControls" script:language="StarBasic">Option Explicit -'bla ' Accepts the name of a control and returns the respective control model as object ' The Container can either be a whole document or a specific sheet of a Calc-Document |