From e2bbd7b91d715e11ce5d48f1927785e8e62a2237 Mon Sep 17 00:00:00 2001
From: Behrend Cornelius <bc@openoffice.org>
Date: Tue, 17 Sep 2002 14:10:15 +0000
Subject: #99839# german Comments translated

---
 wizards/source/tools/Listbox.xba        | 1 -
 wizards/source/tools/Misc.xba           | 4 +---
 wizards/source/tools/ModuleControls.xba | 1 -
 3 files changed, 1 insertion(+), 5 deletions(-)

(limited to 'wizards/source')

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
-&apos; 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)&apos; as String
 	PropList(2,1) = &quot;extra&quot;
 	PropList(3,0) = &quot;IsPasswordRequired&quot;
 	PropList(3,1) = True
-&apos;	RegisterNewDataSource(&quot;Doc_Erica_Test_Unicode&quot;, 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) &apos;GetByName(sPropName) = sPropValue &apos;oPropInfo.GetPropertyByName(sPropName)) = sPropValue &apos;  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
-		&apos; eigentlich sollte hier stehen
 		GetResText = oResSrv.getString( nID )
 	Else
 		GetResText = &quot;&quot;
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
-&apos;bla
 
 &apos; Accepts the name of a control and returns the respective control model as object
 &apos; The Container can either be a whole document or a specific sheet of a Calc-Document
-- 
cgit v1.2.3