diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-11-20 13:42:50 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-20 13:42:50 +0000 |
commit | 8276feef0ed62e00395b0f79ff639443ae0226a4 (patch) | |
tree | ff984ca7c10bf0729d048d0b9e19f7485ed2718b /wizards/source/tools/Misc.xba | |
parent | 9adb2bb8a9b3fce82c9e1f0bb5dcca6213c4f256 (diff) |
#94903# RTrimStr Routine improved, SwitchMousePointer() added
Diffstat (limited to 'wizards/source/tools/Misc.xba')
-rw-r--r-- | wizards/source/tools/Misc.xba | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index abcb3f0ef91a..25a4cb5b8460 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -535,16 +535,8 @@ End Function ' Dis-or enables a Window and adjusts the mousepointer accordingly Sub ToggleWindow(bDoEnable as Boolean) Dim oWindow as Object -Dim oWindowPointer as Object oWindow = StarDesktop.CurrentFrame.ComponentWindow oWindow.Enable = bDoEnable - oWindowPointer = CreateUnoService("com.sun.star.awt.Pointer") - If bDoEnable Then - oWindowPointer.SetType(com.sun.star.awt.SystemPointer.ARROW) - Else - oWindowPointer.SetType(com.sun.star.awt.SystemPointer.WAIT) - End If - oWindow.SetPointer(oWindowPointer) End Sub |