diff options
author | Michael Stahl <mstahl@redhat.com> | 2012-01-28 20:52:45 +0100 |
---|---|---|
committer | Michael Stahl <mstahl@redhat.com> | 2012-01-28 20:52:45 +0100 |
commit | 2e626373db2412ac22e8c5c27a60d11cd29e875b (patch) | |
tree | 9e9f67205cd5b72f1031721273e1534a3a1e5b0f /wizards/source/tutorials/RoadMap.xba | |
parent | f7ee7bbd5174b084f018c2ec94d8c70c98ee04da (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.xba | 117 |
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("Tools") - oUseDialog = dialogtoUse - oModulName = ModulNameforItemChange - oDialogModel = oUseDialog.Model - oControlModel = oUseDialog.Model.CreateInstance("com.sun.star.awt.UnoControlRoadmapModel") - - oDialogModel.insertByName("RoadMap", oControlModel) - oControl = oUseDialog.getControl("RoadMap") - oEvent = createUnoListener( "CallBack_", "com.sun.star.awt.XItemListener" ) - 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 > -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 |