diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2003-05-30 14:22:24 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2003-05-30 14:22:24 +0000 |
| commit | c43ba8185bc13304b8d5ab18a5267789a99e99b7 (patch) | |
| tree | 075a00d1971d4591d8ee20136e39833da0dca762 /wizards/source/tools | |
| parent | dc8cc0199e024fe4da415477cb608065a7aed97f (diff) | |
INTEGRATION: CWS extras7 (1.39.18); FILE MERGED
2003/05/21 16:52:41 bc 1.39.18.1: #109810# 'GetRefValue()' modified
Diffstat (limited to 'wizards/source/tools')
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index 23c3ed256941..83a875f9cdb6 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -120,7 +120,7 @@ Dim i as Integer exit Function End If Next - Msgbox("No Control selected!",16, GetProductName()) + GetRefValue() = -1 End Function @@ -366,4 +366,5 @@ End Sub Sub SetOVERWRITEToNever() iGeneralOverwrite = SBOVERWRITENEVER DlgOverwrite.EndExecute() -End Sub</script:module>
\ No newline at end of file +End Sub +</script:module>
\ No newline at end of file |