summaryrefslogtreecommitdiff
path: root/wizards/source/tutorials/RoadMap.xba
diff options
context:
space:
mode:
authorMichael Stahl <mstahl@redhat.com>2012-01-28 20:52:45 +0100
committerMichael Stahl <mstahl@redhat.com>2012-01-28 20:52:45 +0100
commit2e626373db2412ac22e8c5c27a60d11cd29e875b (patch)
tree9e9f67205cd5b72f1031721273e1534a3a1e5b0f /wizards/source/tutorials/RoadMap.xba
parentf7ee7bbd5174b084f018c2ec94d8c70c98ee04da (diff)
replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster
Diffstat (limited to 'wizards/source/tutorials/RoadMap.xba')
-rw-r--r--wizards/source/tutorials/RoadMap.xba117
1 files changed, 0 insertions, 117 deletions
diff --git a/wizards/source/tutorials/RoadMap.xba b/wizards/source/tutorials/RoadMap.xba
deleted file mode 100644
index fa992cb13..000000000
--- a/wizards/source/tutorials/RoadMap.xba
+++ /dev/null
@@ -1,117 +0,0 @@
-<?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="RoadMap" script:language="StarBasic">REM ***** BASIC *****
-Dim oControlModel
-Dim oDialogModel
-Dim CurrentItem
-Dim bLongString
-Dim oControl
-Dim oEvent
-Dim oUseDialog As Object
-Dim oModulName As Object
-
-Sub RoadMapMain(ModulNameforItemChange, dialogtoUse)
- GlobalScope.BasicLibraries.LoadLibrary(&quot;Tools&quot;)
- oUseDialog = dialogtoUse
- oModulName = ModulNameforItemChange
- oDialogModel = oUseDialog.Model
- oControlModel = oUseDialog.Model.CreateInstance(&quot;com.sun.star.awt.UnoControlRoadmapModel&quot;)
-
- oDialogModel.insertByName(&quot;RoadMap&quot;, oControlModel)
- oControl = oUseDialog.getControl(&quot;RoadMap&quot;)
- oEvent = createUnoListener( &quot;CallBack_&quot;, &quot;com.sun.star.awt.XItemListener&quot; )
- oControl.addItemListener(oEvent)
- oControlModel.CurrentItemID = 0
- oControlModel.Complete = True
- oControlModel.Activated = True
-End Sub
-
-Sub SetVisibleRoadMap(param)
- oControl.SetVisible(param)
-End Sub
-
-Sub SetDialogModelSize(Width, Height)
- oDialogModel.Width = Width
- oDialogModel.Height = Height
-End Sub
-
-Sub SetControlModelPosSize(X, Y, Width, Height)
- oControlModel.PositionX = X
- oControlModel.PositionY = Y
- oControlModel.Width = Width
- oControlModel.Height = Height
-End Sub
-
-Sub SetControlModelText( ModelText As String)
- oControlModel.Text = ModelText
-End Sub
-
-Sub InsertItemsLabels( ItemLabelsArray() As String)
- For i = 0 To Ubound(ItemLabelsArray())
- oRoadmapItem = oControlModel.createInstance()
- oRoadmapItem.Label = ItemLabelsArray(i)
- oRoadmapItem.ID = i
- oControlModel.insertbyIndex(i, oRoadmapItem)
- Next i
-End Sub
-
-Sub SetItemEnabled( ItemIndex, param)
- oControlModel.getByIndex(ItemIndex).Enabled = param
- oControlModel.CurrentItemID = ItemIndex
-End Sub
-
-Sub AddImagetoControlModel( Url As String)
- oControlModel.ImageUrl = ConvertToUrl(Url)
-End Sub
-
-Function GetSelectedIndex()
- GetSelectedIndex() = oControlModel.CurrentItemID
-End Function
-
-Function GetControlModel()
- GetControlModel = oControlModel
-End Function
-
-Function GetDialogModel()
- GetDialogModel = oDialogModel
-End Function
-
-Sub Callback_itemStateChanged(aEvent)
- oModulName.ItemChange(oControlModel.CurrentItemID, aEvent.itemID)
-End Sub
-
-Sub SetComplete(param)
- oControlModel.Complete = param
-End Sub
-
-Sub SetActivated(param)
- oControlModel.Activated = param
-End Sub
-
-Sub RemoveItem(ItemIndex)
- If ItemIndex &gt; -1 Then
- oControlModel.removeByIndex(ItemIndex)
- End If
-End Sub
-
-Sub InsertItem(ItemLabel As String)
- oRoadmapItem = oControlModel.createInstance()
- oRoadmapItem.Label = ItemLabel
- oControlModel.insertbyIndex(oControlModel.CurrentItemID, oRoadmapItem)
-End Sub
-
-Sub ReplaceItem(ItemLabel As String)
- oRoadmapItem = oControlModel.createInstance()
- oRoadmapItem.Label = ItemLabel
- oControlModel.replacebyIndex(oControlModel.CurrentItemID, oRoadmapItem)
-End Sub
-
-Sub Callback_disposing(aEvent)
-End Sub
-
-Sub Property_propertyChange(aEvent)
-End Sub
-
-Sub Property_disposing(aEvent)
-End Sub
-</script:module> \ No newline at end of file