diff options
| author | Stephan Bergmann <sb@openoffice.org> | 2002-07-08 13:14:21 +0000 |
|---|---|---|
| committer | Stephan Bergmann <sb@openoffice.org> | 2002-07-08 13:14:21 +0000 |
| commit | d91055a4ac6bc1a3044cacabe452683a6502a7a5 (patch) | |
| tree | cbead4e4ba17c22ab2c0aa104b0ddd5b71f65f85 /basctl | |
| parent | a3a80aa49890b8aa1db646690793afde52702de9 (diff) | |
#99400# Disable certain entries in tabbar context menus while BASIC is running.
Diffstat (limited to 'basctl')
| -rw-r--r-- | basctl/source/basicide/bastypes.cxx | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/basctl/source/basicide/bastypes.cxx b/basctl/source/basicide/bastypes.cxx index 26502ecd722a..2c7a0606dfb4 100644 --- a/basctl/source/basicide/bastypes.cxx +++ b/basctl/source/basicide/bastypes.cxx @@ -2,9 +2,9 @@ * * $RCSfile: bastypes.cxx,v $ * - * $Revision: 1.16 $ + * $Revision: 1.17 $ * - * last change: $Author: tbe $ $Date: 2002-05-02 13:38:54 $ + * last change: $Author: sb $ $Date: 2002-07-08 14:14:21 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -632,6 +632,13 @@ void __EXPORT BasicIDETabBar::Command( const CommandEvent& rCEvt ) aPopup.EnableItem( SID_BASICIDE_HIDECURPAGE, FALSE ); } + if (StarBASIC::IsRunning()) + { + aPopup.EnableItem(SID_BASICIDE_DELETECURRENT, false); + aPopup.EnableItem( SID_BASICIDE_RENAMECURRENT, false); + aPopup.EnableItem(SID_BASICIDE_MODULEDLG, false); + } + if ( pCurrentLib ) { BasicManager* pBasMgr = BasicIDE::FindBasicManager( pCurrentLib ); |