initial import

basctl/inc/basidesh.hrc

+/*************************************************************************
+ *
+ *  $RCSfile: basidesh.hrc,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:34 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+#ifndef _BASIDESH_HRC
+#define _BASIDESH_HRC
+
+#ifndef _SFX_HRC
+#include <sfx2/sfx.hrc>
+#endif
+
+#ifndef _SVX_SVXIDS_HRC
+#include <svx/svxids.hrc>
+#endif
+
+// #define SID_BASICIDE_START               ( SID_OBJ3_START )
+
+// Resource-ID's...
+#ifndef _SVX_NOIDERESIDS
+
+#define RID_BASICIDE_OBJECTBAR          ( RID_BASICIDE_START +  0 )
+
+#define RID_BMP_APPICON                 ( RID_BASICIDE_START +  1 )
+#define RID_BMP_BRKPNT0                 ( RID_BASICIDE_START +  2 )
+#define RID_BMP_BRKPNT1                 ( RID_BASICIDE_START +  3 )
+
+#define RID_EDT_WATCHEDIT               ( RID_BASICIDE_START +  4 )
+#define RID_ICO_MDIWINDOW               ( RID_BASICIDE_START +  5 )
+#define RID_IMG_MARKER                  ( RID_BASICIDE_START +  6 )
+#define RID_IMGLST_OBJECTS              ( RID_BASICIDE_START +  7 )
+#define RID_IMGBTN_REMOVEWATCH          ( RID_BASICIDE_START +  8 )
+#define RID_IMGBTN_GOTOCALL             ( RID_BASICIDE_START +  9 )
+#define RID_POPUP_BRKDLG                ( RID_BASICIDE_START + 10 )
+#define RID_POPUP_BRKPROPS              ( RID_BASICIDE_START + 11 )
+#define RID_POPUP_TABBAR                ( RID_BASICIDE_START + 12 )
+#define RID_TD_ORGANIZE                 ( RID_BASICIDE_START + 36 )
+#define RID_TP_MODULS                   ( RID_BASICIDE_START + 37 )
+#define RID_TP_LIBS                     ( RID_BASICIDE_START + 38 )
+#define RID_RES_CHECKBITMAPS            ( RID_BASICIDE_START + 39 )
+#define RID_DLG_LIBS                    ( RID_BASICIDE_START + 40 )
+#define RID_IMG_LOCKED                  ( RID_BASICIDE_START + 41 )
+#define RID_DLG_NEWLIB                  ( RID_BASICIDE_START + 42 )
+
+#define RID_STR_CANNOTCLOSE             ( RID_BASICIDE_START + 13 )
+#define RID_STR_IDENAME                 ( RID_BASICIDE_START + 14 )
+#define RID_STR_INITIDE                 ( RID_BASICIDE_START + 15 )
+#define RID_STR_STACKNAME               ( RID_BASICIDE_START + 16 )
+#define RID_STR_WATCHNAME               ( RID_BASICIDE_START + 17 )
+#define RID_STR_REMOVEWATCH             ( RID_BASICIDE_START + 18 )
+#define RID_STR_OPEN                    ( RID_BASICIDE_START + 20 )
+#define RID_STR_SAVE                    ( RID_BASICIDE_START + 21 )
+#define RID_STR_RUNTIMEERROR            ( RID_BASICIDE_START + 22 )
+#define RID_STR_COMPILEERROR            ( RID_BASICIDE_START + 23 )
+#define RID_STR_STDDIALOGNAME           ( RID_BASICIDE_START + 24 )
+#define RID_STR_STDMACRONAME            ( RID_BASICIDE_START + 25 )
+#define RID_STR_STDJAVAFUNCTIONNAME     ( RID_BASICIDE_START + 26 )
+#define RID_STR_STDMODULENAME           ( RID_BASICIDE_START + 27 )
+#define RID_STR_ALL                     ( RID_BASICIDE_START + 28 )
+#define RID_STR_CLOSE                   ( RID_BASICIDE_START + 29 )
+#define RID_STR_PAGE                    ( RID_BASICIDE_START + 30 )
+#define RID_STR_BADSBXNAME              ( RID_BASICIDE_START + 31 )
+#define RID_STR_STDLIBNAME              ( RID_BASICIDE_START + 32 )
+#define RID_STR_ERROROPENSTORAGE        ( RID_BASICIDE_START + 33 )
+#define RID_STR_NOLIBINSTORAGE          ( RID_BASICIDE_START + 34 )
+#define RID_STR_SBXNAMEALLREADYUSED     ( RID_BASICIDE_START + 35 )
+#define RID_STR_REPLACESTDLIB           ( RID_BASICIDE_START + 41 )
+#define RID_STR_SBXNAMEALLREADYUSED2    ( RID_BASICIDE_START + 42 )
+#define RID_STR_SEARCHNOTFOUND          ( RID_BASICIDE_START + 43 )
+#define RID_STR_SEARCHREPLACES          ( RID_BASICIDE_START + 44 )
+#define RID_STR_CANNOTCHANGENAMESTDLIB  ( RID_BASICIDE_START + 45 )
+#define RID_STR_CANNOTCHANGENAMEREFLIB  ( RID_BASICIDE_START + 46 )
+#define RID_STR_CANNOTUNLOADSTDLIB      ( RID_BASICIDE_START + 47 )
+#define RID_STR_GENERATESOURCE          ( RID_BASICIDE_START + 48 )
+#define RID_STR_REFNOTPOSSIBLE          ( RID_BASICIDE_START + 49 )
+#define RID_STR_FILEEXISTS              ( RID_BASICIDE_START + 50 )
+#define RID_STR_ERROROPENLIB            ( RID_BASICIDE_START + 55 )
+#define RID_STR_STDJAVAMODULENAME       ( RID_BASICIDE_START + 56 )
+#define RID_STR_NEWLIB                  ( RID_BASICIDE_START + 57 )
+#define RID_STR_NEWMOD                  ( RID_BASICIDE_START + 58 )
+#define RID_STR_NEWDLG                  ( RID_BASICIDE_START + 59 )
+#define RID_STR_LIBNAMETOLONG           ( RID_BASICIDE_START + 60 )
+
+#define RID_IMGLST_LAYOUT               ( RID_BASICIDE_START + 49 )
+
+#define RID_STR_FILENAME                ( RID_BASICIDE_START + 81 )
+#define RID_STR_APPENDLIBS              ( RID_BASICIDE_START + 82 )
+#define RID_STR_QUERYDELMACRO           ( RID_BASICIDE_START + 83 )
+#define RID_STR_QUERYDELDIALOG          ( RID_BASICIDE_START + 84 )
+#define RID_STR_QUERYDELLIB             ( RID_BASICIDE_START + 85 )
+#define RID_STR_QUERYDELLIBREF          ( RID_BASICIDE_START + 86 )
+#define RID_STR_QUERYDELMODULE          ( RID_BASICIDE_START + 87 )
+#define RID_STR_BASIC                   ( RID_BASICIDE_START + 88 )
+#define RID_STR_DOC                     ( RID_BASICIDE_START + 89 )
+#define RID_STR_MACRONAMEREQ            ( RID_BASICIDE_START + 90 )
+#define RID_STR_WILLSTOPPRG             ( RID_BASICIDE_START + 91 )
+#define RID_STR_STACK                   ( RID_BASICIDE_START + 92 )
+#define RID_STR_OBJNOTFOUND             ( RID_BASICIDE_START + 93 )
+#define RID_STR_COULDNTREAD             ( RID_BASICIDE_START + 94 )
+#define RID_STR_COULDNTWRITE            ( RID_BASICIDE_START + 95 )
+#define RID_STR_WRONGPASSWORD           ( RID_BASICIDE_START + 96 )
+#define RID_STR_LINE                    ( RID_BASICIDE_START + 97 )
+#define RID_STR_COLUMN                  ( RID_BASICIDE_START + 98 )
+#define RID_STR_SOURCETOBIG             ( RID_BASICIDE_START + 99 )
+
+#define RID_STR_SEARCHALLMODULES        ( RID_BASICIDE_START + 1 )
+#define RID_STR_SEARCHFROMSTART         ( RID_BASICIDE_START + 2 )
+#define RID_STR_NOMODULE                ( RID_BASICIDE_START + 3 )
+#define RID_STR_FILTER_ALLFILES         ( RID_BASICIDE_START + 4 )
+
+// MacroDlg:        ( RID_BASICIDE_START + 50 )
+// MacroOptionsDlg: ( RID_BASICIDE_START + 55 )
+// TbxControls:     ( RID_BASICIDE_START + 65 )
+// ObjectDlg:       ( RID_BASICIDE_START + 70 )
+// BreakPointDlg:   ( RID_BASICIDE_START + 80 )
+
+#endif  // _SVX_NOIDERESIDS
+
+#endif  // _BASIDESH_HRC

basctl/inc/helpid.hrc

+/*************************************************************************
+ *
+ *  $RCSfile: helpid.hrc,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:34 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+#ifndef _BASCTL_HELPID_HRC
+#define _BASCTL_HELPID_HRC
+
+// include ---------------------------------------------------------------
+
+#include <svtools/solar.hrc>
+
+// Help-Ids --------------------------------------------------------------
+
+#define HID_BASICIDE_TOOLBOX                    (HID_BASICIDE_START +   0)
+#define HID_BASICIDE_OBJECTS                    (HID_BASICIDE_START +   1)
+#define HID_MACRO_OPTIONS                       (HID_BASICIDE_START +   2)
+#define HID_BASICIDE_BRKPNTS                    (HID_BASICIDE_START +   3)
+#define HID_BASICIDE_MODULS                     (HID_BASICIDE_START +   4)
+#define HID_BASICIDE_LIBS_TP                    (HID_BASICIDE_START +   5)
+#define HID_BASICIDE_LIBS_DLG                   (HID_BASICIDE_START +   6)
+#define HID_BASICIDE_CONTROLS                   (HID_BASICIDE_START +   7)
+#define HID_BASICIDE_MACROS                     (HID_BASICIDE_START +   8)
+#define HID_BASICIDE_LIBS                       (HID_BASICIDE_START +   9)
+#define HID_BASICIDE_ORG_TC                     (HID_BASICIDE_START +  10)
+
+#define HID_BASICIDE_MODULES_TREE               (HID_BASICIDE_START +  11)
+#define HID_BASICIDE_LIBS_TREE                  (HID_BASICIDE_START +  12)
+#define HID_BASICIDE_LIBSDLG_TREE               (HID_BASICIDE_START +  13)
+#define HID_BASICIDE_OBJECTCAT                  (HID_BASICIDE_START +  14)
+
+#define HID_BASICIDE_PROP_BROWSER               (HID_BASICIDE_START +  15)
+
+#define HID_BASICIDE_PROP_BROWSER_LBOX          (HID_BASICIDE_START +  16)
+
+#define HID_BASICIDE_OBJCAT_SHOW                (HID_BASICIDE_START +  17)
+#define HID_BASICIDE_OBJCAT_PROPS               (HID_BASICIDE_START +  18)
+#define HID_BASICIDE_OBJCAT_HELP                (HID_BASICIDE_START +  19)
+
+#define HID_BASICIDE_BRKDLG                     (HID_BASICIDE_START +  20)
+#define HID_BASICIDE_ACTIV                      (HID_BASICIDE_START +  21)
+#define HID_BASICIDE_BRKPROPS                   (HID_BASICIDE_START +  22)
+#define HID_BASICIDE_REMOVEWATCH                (HID_BASICIDE_START +  23)
+#define HID_BASICIDE_GOTOALL                    (HID_BASICIDE_START +  24)
+
+#define HID_BASICIDE_MODULWINDOW                (HID_BASICIDE_START +  25)
+#define HID_BASICIDE_DIALOGWINDOW               (HID_BASICIDE_START +  26)
+
+
+#endif
+

basctl/prj/d.lst

+touch: ..\inc\hid.lst %_DEST%\bin%_EXT%\hid.lst
+..\%__SRC%\inc\basslots.ilb %_DEST%\inc%_EXT%\basslots.ilb
+..\%__SRC%\inc\\*.ilb* %_DEST%\inc%_EXT%\*.ilb*
+..\%__SRC%\lib\lib*.* %_DEST%\lib%_EXT%\lib*.*
+..\%__SRC%\slb\basctl.lib %_DEST%\lib%_EXT%\xbasctl.lib
+..\%__SRC%\lib\basctl.lib %_DEST%\lib%_EXT%\basctl.lib
+..\%__SRC%\bin\basctl*.dll %_DEST%\bin%_EXT%\basctl*.dll
+..\%__SRC%\bin\basctl*.res %_DEST%\bin%_EXT%\basctl*.res
+..\%__SRC%\misc\basctl*.map %_DEST%\bin%_EXT%\basctl*.map
+..\%__SRC%\misc\basctl.csv %_DEST%\inc%_EXT%\basctl.csv
+..\%__SRC%\lib\basctl.lib %_DEST%\lib%_EXT%\basctl.lib
+
+del %_DEST%\inc%_EXT%\baside.hxx
+
+mkdir: %_DEST%\inc%_EXT%\basctl
+hedabu: ..\%__SRC%\inc\basslots.hxx %_DEST%\inc%_EXT%\basctl\basslots.hxx
+hedabu: ..\inc\basidesh.hxx %_DEST%\inc%_EXT%\basctl\basidesh.hxx
+hedabu: ..\inc\sidll.hxx %_DEST%\inc%_EXT%\basctl\sidll.hxx
+hedabu: ..\inc\vcattr.hxx %_DEST%\inc%_EXT%\basctl\vcattr.hxx
+hedabu: ..\inc\vcbrwwrp.hxx %_DEST%\inc%_EXT%\basctl\vcbrwwrp.hxx
+hedabu: ..\inc\vcsbxdef.hxx %_DEST%\inc%_EXT%\basctl\vcsbxdef.hxx
+hedabu: ..\inc\basobj.hxx %_DEST%\inc%_EXT%\basctl\basobj.hxx
+hedabu: ..\inc\basidesh.hrc %_DEST%\inc%_EXT%\basctl\basicide.hrc
+hedabu: ..\source\basicide\bastype2.hxx %_DEST%\inc%_EXT%\basctl\bastype2.hxx
+hedabu: ..\source\basicide\idetemp.hxx %_DEST%\inc%_EXT%\basctl\idetemp.hxx
+hedabu: ..\source\basicide\tbxctl.hxx %_DEST%\inc%_EXT%\basctl\btbxctl.hxx
+hedabu: ..\source\basicide\iderdll.hxx %_DEST%\inc%_EXT%\basctl\iderdll.hxx

basctl/sdi/baside.sdi

+import "svxslots.ilb"
+
+module
+"6706E0E7-FB05-101B-804c-04021c007002"
+"6806E0E7-FB05-101B-804c-04021c007002"
+BasicIDE
+[
+HelpText( "SFx --- BasicIDE" )
+SlotIdFile( "basidesh.hrc" )
+]
+{
+//  item String                 SbxItem;
+//  item String                 SvxSearchItem;
+//  item String                 SvxSizeItem;
+/*
+    enum SvxChooseControlEnum
+    {
+        SVX_SNAP_PUSHBUTTON,
+        SVX_SNAP_CHECKBOX,
+        SVX_SNAP_RADIOBUTTON,
+        SVX_SNAP_SPINBUTTON,
+        SVX_SNAP_FIXEDTEXT,
+        SVX_SNAP_GROUPBOX,
+        SVX_SNAP_LISTBOX,
+        SVX_SNAP_COMBOBOX,
+        SVX_SNAP_EDIT,
+        SVX_SNAP_HSCROLLBAR,
+        SVX_SNAP_VSCROLLBAR,
+        SVX_SNAP_PREVIEW,
+        SVX_SNAP_SELECT,
+        SVX_SNAP_NOTHING
+    }
+    item SvxChooseControlEnum   SvxChooseControlItem;
+*/
+    interface BasicIDEView: Object
+    [
+        uuid = "D88DF7A2-EE63-11d0-89CA-008029E4B0B1";
+    ]
+    {
+    }
+
+    shell BasicIDEShell
+    {
+        import BasicIDEView [Automation];
+
+        // ========================================================
+        // Current, je nach aktuellem Fenster:
+        // ========================================================
+        SID_BASICIDE_HIDECURPAGE
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_DELETECURRENT
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_RENAMECURRENT
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_CUT
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_COPY
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_PASTE
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_UNDO
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_REDO
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_DELETE
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_BACKSPACE
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_SEARCH_OPTIONS
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        SID_SEARCH_ITEM
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        FID_SEARCH_NOW
+        [
+            ExecMethod  = ExecuteCurrent;
+            StateMethod = GetState;
+        ]
+
+        // ========================================================
+        // Gloabl: Egal, welches Fenster gerade aktiv ist:
+        // ========================================================
+        SID_BASICIDE_LIBSELECTOR
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_LIBSELECTED
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_LIBLOADED
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_LIBREMOVED
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_SBXDELETED
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_SBXINSERTED
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_SBXRENAMED
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_SHOWSBX
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_NEWWINDOW
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_DOCINFO
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_SAVEDOC
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_SAVEASDOC
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        // Ab hier normal...
+        SID_BASICIDE_CHOOSEMACRO
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_MODULEDLG
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_OBJCAT
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_CREATEMACRO
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_EDITMACRO
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_NAMECHANGEDONTAB
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_STOREMODULESOURCE
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_STOREALLMODULESOURCES
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_UPDATEMODULESOURCE
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_UPDATEALLMODULESOURCES
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICSTOP
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_NEWMODULE
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_NEWJAVAMODULE
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_NEWDIALOG
+        [
+            ExecMethod  = ExecuteGlobal;
+            StateMethod = GetState;
+        ]
+
+        // ========================================================
+        // Nur, wenn BasicFenster oben
+        // ========================================================
+        SID_BASICRUN
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICCOMPILE
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICLOAD
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICSAVEAS
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_MATCHGROUP
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICSTEPINTO
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICSTEPOVER
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICSTEPOUT
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_TOGGLEBRKPNT
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_ADDWATCH
+        [
+            ExecMethod  = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_REMOVEWATCH
+        [
+            ExecMethod      = ExecuteBasic;
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_BRKPNTSCHANGED
+        [
+            ExecMethod      = ExecuteBasic;
+            StateMethod     = GetState;
+        ]
+
+        // ========================================================
+        // Nur, wenn Dialogfenster oben
+        // ========================================================
+        SID_CHOOSE_CONTROLS
+        [
+            PseudoSlots     = TRUE;         // Enum-Slots automatisch erzeugen
+            PseudoPrefix    = SID_INSERT;
+            ExecMethod      = ExecuteDialog;
+            StateMethod     = GetState;
+        ]
+
+        SID_DIALOG_TESTMODE
+        [
+            ExecMethod      = ExecuteDialog;
+            StateMethod     = GetState;
+        ]
+
+        SID_SHOW_HIDDEN
+        [
+            ExecMethod      = ExecuteDialog;
+            StateMethod     = GetState;
+        ]
+
+        SID_SHOW_FORMS
+        [
+            ExecMethod      = ExecuteDialog;
+            StateMethod     = GetState;
+        ]
+
+        SID_BASICIDE_STAT_POS
+        [
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_STAT_DATE
+        [
+            StateMethod = GetState;
+        ]
+
+        SID_BASICIDE_STAT_TITLE
+        [
+            StateMethod = GetState;
+        ]
+
+        SID_DOC_MODIFIED
+        [
+            StateMethod = GetState;
+        ]
+
+        SID_ATTR_INSERT
+        [
+            StateMethod = GetState;
+        ]
+
+        SID_ATTR_SIZE
+        [
+            StateMethod = GetState;
+        ]
+    }
+
+    interface BasicIDEDocument: Object
+    [
+        uuid = "D88DF7A1-EE63-11d0-89CA-008029E4B0B1";
+    ]
+    {
+    }
+
+    shell BasicDocShell
+    {
+        import BasicIDEDocument [Automation];
+    }
+}
+

basctl/sdi/basslots.hrc

+/*************************************************************************
+ *
+ *  $RCSfile: basslots.hrc,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:35 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+#include <sfx2/sfx.hrc>
+#include <svx/svxids.hrc>
+#include <sfx2/sfxsids.hrc>
+

basctl/sdi/basslots.sdi

+import "sfxslots.ilb"
+
+module
+"BD25A480-30AB-101C-A17D-000024021828"
+"C049C7E0-30AB-101C-A17D-000024021828"
+BasItems
+[
+HelpText( "Bas-Items" )
+SlotIdFile( "basslots.hrc" )
+TypeLibFile( "basslots.tlb" )
+]
+{
+    //=========================================================================
+
+//  include "baside.sdi"
+
+}
+

basctl/sdi/makefile.mk

+#*************************************************************************
+#
+#   $RCSfile: makefile.mk,v $
+#
+#   $Revision: 1.1.1.1 $
+#
+#   last change: $Author: mh $ $Date: 2000-09-29 11:02:35 $
+#
+#   The Contents of this file are made available subject to the terms of
+#   either of the following licenses
+#
+#          - GNU Lesser General Public License Version 2.1
+#          - Sun Industry Standards Source License Version 1.1
+#
+#   Sun Microsystems Inc., October, 2000
+#
+#   GNU Lesser General Public License Version 2.1
+#   =============================================
+#   Copyright 2000 by Sun Microsystems, Inc.
+#   901 San Antonio Road, Palo Alto, CA 94303, USA
+#
+#   This library is free software; you can redistribute it and/or
+#   modify it under the terms of the GNU Lesser General Public
+#   License version 2.1, as published by the Free Software Foundation.
+#
+#   This library is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#   Lesser General Public License for more details.
+#
+#   You should have received a copy of the GNU Lesser General Public
+#   License along with this library; if not, write to the Free Software
+#   Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+#   MA  02111-1307  USA
+#
+#
+#   Sun Industry Standards Source License Version 1.1
+#   =================================================
+#   The contents of this file are subject to the Sun Industry Standards
+#   Source License Version 1.1 (the "License"); You may not use this file
+#   except in compliance with the License. You may obtain a copy of the
+#   License at http://www.openoffice.org/license.html.
+#
+#   Software provided under this License is provided on an "AS IS" basis,
+#   WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+#   WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+#   MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+#   See the License for the specific provisions governing your rights and
+#   obligations concerning the Software.
+#
+#   The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+#
+#   Copyright: 2000 by Sun Microsystems, Inc.
+#
+#   All Rights Reserved.
+#
+#   Contributor(s): _______________________________________
+#
+#
+#
+#*************************************************************************
+
+
+PRJ=..
+
+PRJNAME=basctl
+TARGET=basslots
+#SDIEXPORT=svxnew
+
+# --- Settings -----------------------------------------------------
+
+.INCLUDE :  svpre.mk
+.INCLUDE :  settings.mk
+.INCLUDE :  sv.mk
+
+SDINAME=$(TARGET)
+SDI1NAME=baside
+
+# --- Files --------------------------------------------------------
+
+#SRS1NAME=enumslot
+#SRC1FILES=enumslot.src
+
+
+# --- Targets -------------------------------------------------------
+
+.INCLUDE :  target.mk
+

basctl/source/basicide/basdoc.cxx

+/*************************************************************************
+ *
+ *  $RCSfile: basdoc.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:35 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+
+#include <ide_pch.hxx>
+
+#pragma hdrstop
+
+#define GLOBALOVERFLOW2
+
+#include <sfx2/docfac.hxx>
+
+#ifndef _SV_STATUS_HXX //autogen
+#include <vcl/status.hxx>
+#endif
+
+#include <basdoc.hxx>
+#include <basidesh.hrc>
+
+#define BasicDocShell
+#include <baside.hxx>
+
+
+SFX_IMPL_SIMPLE_OBJECTFACTORY( BasicDocShell, SFXOBJECTSHELL_STD_SPECIAL | SFXOBJECTSHELL_DONTREPLACE, side3 )
+{
+    Factory().SetExplorerImageId( IMG_SFX_EXP_MACROLIB );
+    Factory().RegisterHelpFile( String( RTL_CONSTASCII_USTRINGPARAM( "sbasic" ) ) );
+}
+
+
+SFX_IMPL_INTERFACE( BasicDocShell, SfxObjectShell, IDEResId( 0 ) )
+{
+    SFX_STATUSBAR_REGISTRATION( SID_BASICIDE_STATUSBAR );
+//  SFX_CHILDWINDOW_REGISTRATION( SID_SHOW_BROWSER );
+}
+
+
+
+BasicDocShell::BasicDocShell( SfxObjectCreateMode eMode ) : SfxObjectShell( eMode )
+{
+    pPrinter = 0;
+    SetPool( &SFX_APP()->GetPool() );
+}
+
+
+
+
+__EXPORT BasicDocShell::~BasicDocShell()
+{
+    delete pPrinter;
+}
+
+
+
+
+void __EXPORT BasicDocShell::Execute( SfxRequest& rReq )
+{
+}
+
+
+
+
+void __EXPORT BasicDocShell::GetState(SfxItemSet &rSet)
+{
+}
+
+
+
+
+SfxPrinter* BasicDocShell::GetPrinter( BOOL bCreate )
+{
+    if ( !pPrinter && bCreate )
+        pPrinter = new SfxPrinter( new SfxItemSet( GetPool(), SID_PRINTER_NOTFOUND_WARN , SID_PRINTER_NOTFOUND_WARN ) );
+
+    return pPrinter;
+}
+
+
+
+
+void BasicDocShell::SetPrinter( SfxPrinter* pPr )
+{
+    if ( pPr != pPrinter )
+    {
+        delete pPrinter;
+        pPrinter = pPr;
+    }
+}
+
+
+void BasicDocShell::FillStatusBar( StatusBar& rStatusBar )
+{
+    String aTmp;
+
+    // Titel
+    aTmp.Fill( 30, 'X' );
+    rStatusBar.InsertItem( SID_BASICIDE_STAT_TITLE,
+        rStatusBar.GetTextWidth( aTmp ), SIB_AUTOSIZE | SIB_LEFT);
+
+    // Modify
+    rStatusBar.InsertItem( SID_DOC_MODIFIED,
+        rStatusBar.GetTextWidth( '*' ) );
+
+    // Position
+    aTmp.Erase();
+    aTmp.Fill( 15, 'X' );
+    rStatusBar.InsertItem( SID_BASICIDE_STAT_POS,
+        rStatusBar.GetTextWidth( aTmp ), SIB_LEFT);
+
+    // Insert/Overwrite
+    rStatusBar.InsertItem( SID_ATTR_INSERT,
+        rStatusBar.GetTextWidth( String( RTL_CONSTASCII_USTRINGPARAM( "XXXXX" /* "EINFG" */ ) ) ) );
+
+    // Uhrzeit
+    aTmp.Fill( 20, 'X' );
+    rStatusBar.InsertItem( SID_ATTR_SIZE,
+        rStatusBar.GetTextWidth( aTmp ), SIB_AUTOSIZE | SIB_LEFT | SIB_USERDRAW );
+
+//  return pStatusBar;
+
+}
+
+

basctl/source/basicide/basdoc.hxx

+/*************************************************************************
+ *
+ *  $RCSfile: basdoc.hxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:35 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#ifndef _BASDOC_HXX
+#define _BASDOC_HXX
+
+#include <svx/ifaceids.hxx>
+#include <iderid.hxx>
+
+#ifndef _SFX_OBJSH_HXX //autogen
+#include <sfx2/objsh.hxx>
+#endif
+
+
+class SfxPrinter;
+
+class BasicDocShell: public SfxObjectShell
+{
+    SfxPrinter*         pPrinter;
+
+protected:
+    virtual void        FillStatusBar( StatusBar& rBar);
+
+
+public:
+                        SFX_DECL_SIMPLE_OBJECTFACTORY( BasicDocShell );
+                        SFX_DECL_INTERFACE( SVX_INTERFACE_BASIDE_DOCSH );
+                        BasicDocShell( SfxObjectCreateMode eMode = SFX_CREATE_MODE_STANDARD );
+                        ~BasicDocShell();
+
+    void                Execute( SfxRequest& rReq );
+    void                GetState( SfxItemSet& rSet );
+
+    SfxPrinter*         GetPrinter( BOOL bCreate );
+    void                SetPrinter( SfxPrinter* pPrinter );
+};
+
+#endif  // _BASDOC_HXX

basctl/source/basicide/basicbox.cxx

+/*************************************************************************
+ *
+ *  $RCSfile: basicbox.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:35 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#include <ide_pch.hxx>
+
+#pragma hdrstop
+
+#include <basidesh.hrc>
+#define _SVSTDARR_STRINGS
+#include <svtools/svstdarr.hxx>
+#include <basobj.hxx>
+
+#include <basicbox.hxx>
+#include <iderid.hxx>
+#include <bastypes.hxx>
+
+SFX_IMPL_TOOLBOX_CONTROL( LibBoxControl, SfxStringItem );
+
+LibBoxControl::LibBoxControl( USHORT nId, ToolBox& rTbx, SfxBindings& rBind )
+    : SfxToolBoxControl( nId, rTbx, rBind )
+{
+}
+
+
+
+LibBoxControl::~LibBoxControl()
+{
+}
+
+
+
+void LibBoxControl::StateChanged( USHORT nSID, SfxItemState eState, const SfxPoolItem* pState )
+{
+    BasicLibBox* pBox = (BasicLibBox*) GetToolBox().GetItemWindow( GetId() );
+
+    DBG_ASSERT( pBox, "Box not found" );
+    if ( !pBox )
+        return;
+
+    if ( eState != SFX_ITEM_AVAILABLE )
+        pBox->Disable();
+    else
+    {
+        pBox->Enable();
+
+        if ( pState->ISA(SfxStringItem) )
+            pBox->Update( (const SfxStringItem*)pState );
+        else
+            pBox->Update( NULL );
+    }
+}
+
+
+
+Window* LibBoxControl::CreateItemWindow( Window *pParent )
+{
+    return new BasicLibBox( pParent );
+}
+
+
+
+
+
+BasicLibBox::BasicLibBox( Window* pParent ) :
+    ListBox( pParent, WinBits( WB_BORDER | WB_DROPDOWN ) )
+{
+    FillBox();
+    bIgnoreSelect = TRUE;   // Select von 0 noch nicht weiterleiten
+    bFillBox = TRUE;
+    SelectEntryPos( 0 );
+    aCurText = GetEntry( 0 );
+    SetSizePixel( Size( 165, 200 ) );
+    bIgnoreSelect = FALSE;
+    StartListening( *SFX_APP(), TRUE /* Nur einmal anmelden */ );
+}
+
+
+
+__EXPORT BasicLibBox::~BasicLibBox()
+{
+}
+
+void __EXPORT BasicLibBox::Update( const SfxStringItem* pItem )
+{
+    // Immer auf dem laufenden sein...
+//  if ( !pItem  || !pItem->GetValue().Len() )
+        FillBox();
+
+    if ( pItem )
+    {
+        aCurText = pItem->GetValue();
+        if ( aCurText.Len() == 0 )
+            aCurText = String( IDEResId( RID_STR_ALL ) );
+    }
+
+    if ( GetSelectEntry() != aCurText )
+        SelectEntry( aCurText );
+}
+
+void __EXPORT BasicLibBox::ReleaseFocus()
+{
+    SfxViewShell* pCurSh = SfxViewShell::Current();
+    DBG_ASSERT( pCurSh, "Current ViewShell not found!" );
+
+    if ( pCurSh )
+    {
+        Window* pShellWin = pCurSh->GetWindow();
+        if ( !pShellWin )       // sonst werde ich ihn nicht los
+            pShellWin = Application::GetDefModalDialogParent();
+
+        pShellWin->GrabFocus();
+    }
+}
+
+
+
+void __EXPORT BasicLibBox::SFX_NOTIFY(  SfxBroadcaster& rBC, const TypeId&,
+                                        const SfxHint& rHint, const TypeId& )
+{
+    if ( rHint.IsA( TYPE( SfxEventHint ) ) )
+    {
+        if ( ( ((SfxEventHint&)rHint).GetEventId() == SFX_EVENT_CREATEDOC ) ||
+             ( ((SfxEventHint&)rHint).GetEventId() == SFX_EVENT_OPENDOC ) )
+        {
+            FillBox();  // IDE reagiert selbst, wenn == aktuelle Lib
+        }
+        else if ( ((SfxEventHint&)rHint).GetEventId() == SFX_EVENT_SAVEASDOC )
+        {
+            // Wenn das aktuell angezeigte Doc umbenannt wird...
+            // Funktioniert nicht, da ich den alten Namen nicht bekomme
+//          String aCurLib( GetLibFromMgrAndLib( aCurText ) );
+//          String aCurMgr( GetMgrFromMgrAndLib( aCurText ) );
+//          String aCurDoc = SfxObjectShell::Current()->GetTitle();
+//          if ( aCurMgr == aCurDoc )
+//          {
+//              FillBox( FALSE );
+//              aCurText = CreateMgrAndLibStr( aCurDoc, aCurLib );
+//              bIgnoreSelect = TRUE;
+//              SelectEntry( aCurText );
+//              InfoBox( 0, aCurText ).Execute();
+//              bIgnoreSelect = FALSE;
+//          }
+//          else
+                FillBox( TRUE );
+
+        }
+        else if ( ((SfxEventHint&)rHint).GetEventId() == SFX_EVENT_CLOSEDOC )
+        {
+            if ( SFX_APP()->IsInBasicCall() )   // Nicht wenn Office beendet
+                FillBox();
+        }
+    }
+}
+
+
+
+void BasicLibBox::FillBox( BOOL bSelect )
+{
+    SetUpdateMode( FALSE );
+    bIgnoreSelect = TRUE;
+
+    aCurText = GetSelectEntry();
+    USHORT nCurPos = GetSelectEntryPos();
+
+    SelectEntryPos( 0 );
+    Clear();
+
+    SvStrings* pStrings = BasicIDE::CreateBasicLibBoxEntries();
+    for ( USHORT n = 0; n < pStrings->Count(); n++ )
+    {
+        String* pStr = pStrings->GetObject( n );
+        InsertEntry( *pStr, LISTBOX_APPEND );
+    }
+    pStrings->DeleteAndDestroy( 0, pStrings->Count() );
+    delete pStrings;
+
+    SetUpdateMode( TRUE );
+
+    if ( bSelect )
+    {
+        SelectEntry( aCurText );
+        if ( !GetSelectEntryCount() )
+        {
+            SelectEntryPos( GetEntryCount() );  // gibst es nicht => leer?
+            aCurText = GetSelectEntry();
+        }
+    }
+    bIgnoreSelect = FALSE;
+}
+
+long BasicLibBox::PreNotify( NotifyEvent& rNEvt )
+{
+    long nDone = 0;
+    if( rNEvt.GetType() == EVENT_KEYINPUT )
+    {
+        KeyEvent aKeyEvt = *rNEvt.GetKeyEvent();
+        USHORT nKeyCode = aKeyEvt.GetKeyCode().GetCode();
+        switch( nKeyCode )
+        {
+            case KEY_RETURN:
+            {
+                NotifyIDE();
+                nDone = 1;
+            }
+            break;
+
+            case KEY_ESCAPE:
+            {
+                SelectEntry( aCurText );
+                ReleaseFocus();
+                nDone = 1;
+            }
+            break;
+        }
+    }
+    else if( rNEvt.GetType() == EVENT_GETFOCUS )
+    {
+        if ( bFillBox )
+        {
+            FillBox();
+            bFillBox = FALSE;
+        }
+    }
+    else if( rNEvt.GetType() == EVENT_LOSEFOCUS )
+    {
+        if ( !HasChildPathFocus( TRUE ) )
+        {
+            bIgnoreSelect = TRUE;
+            bFillBox = TRUE;
+        }
+    }
+
+    return nDone ? nDone : ListBox::PreNotify( rNEvt );
+}
+
+void __EXPORT BasicLibBox::Select()
+{
+    if ( !IsTravelSelect() )
+    {
+        if ( !bIgnoreSelect )
+            NotifyIDE();
+        else
+            SelectEntry( aCurText );    // Seit 306... (Select nach Escape)
+    }
+}
+
+
+
+void BasicLibBox::NotifyIDE()
+{
+    String aLib;
+    if ( GetSelectEntryPos() )
+        aLib = GetSelectEntry();
+
+    SfxStringItem aLibName( SID_BASICIDE_ARG_LIBNAME, aLib );
+    SfxViewFrame* pCurFrame = SfxViewFrame::Current();
+    DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
+    SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
+    if( pDispatcher )
+    {
+        pDispatcher->Execute( SID_BASICIDE_LIBSELECTED,
+                              SFX_CALLMODE_SYNCHRON, &aLibName, 0L );
+    }
+    ReleaseFocus();
+}
+
+
+

basctl/source/basicide/basicbox.hxx

+/*************************************************************************
+ *
+ *  $RCSfile: basicbox.hxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:35 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+//
+#ifndef _BASICBOX_HXX
+#define _BASICBOX_HXX
+
+#ifndef _SFXSTRITEM_HXX //autogen
+#include <svtools/stritem.hxx>
+#endif
+#ifndef _SVHEADER_HXX
+#include <svheader.hxx>
+#endif
+
+#ifndef _SFXTBXCTRL_HXX //autogen
+#include <sfx2/tbxctrl.hxx>
+#endif
+
+#ifndef _SV_LSTBOX_HXX //autogen
+#include <vcl/lstbox.hxx>
+#endif
+
+
+class LibBoxControl: public SfxToolBoxControl
+{
+public:
+                        SFX_DECL_TOOLBOX_CONTROL();
+
+                        LibBoxControl( USHORT nId, ToolBox& rTbx, SfxBindings& rBind );
+                        ~LibBoxControl();
+
+    virtual void        StateChanged( USHORT nSID, SfxItemState eState,
+                                      const SfxPoolItem* pState );
+    virtual Window*     CreateItemWindow( Window *pParent );
+};
+
+//
+
+class BasicLibBox : public ListBox, public SfxListener
+{
+private:
+    String          aCurText;
+    BOOL            bIgnoreSelect;
+    BOOL            bFillBox;
+
+    void            ReleaseFocus();
+
+protected:
+    virtual void    Select();
+    virtual long    PreNotify( NotifyEvent& rNEvt );
+
+    virtual void    SFX_NOTIFY( SfxBroadcaster& rBC, const TypeId& rBCType,
+                            const SfxHint& rHint, const TypeId& rHintType );
+
+
+public:
+                    BasicLibBox( Window* pParent );
+                    ~BasicLibBox();
+
+    void            FillBox( BOOL bSelect = TRUE );
+    void            Update( const SfxStringItem* pItem );
+    void            NotifyIDE();
+};
+
+
+#endif  // _BASICBOX_HXX
+

basctl/source/basicide/baside2.hrc

+/*************************************************************************
+ *
+ *  $RCSfile: baside2.hrc,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:35 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+#ifndef _BASIDE2_HRC
+#define _BASIDE2_HRC
+
+#include <basidesh.hrc>
+
+// Diese Dateien enthaelt nur die lokalen ID's.
+
+// RID_POPUP_BRKPROPS
+#define RID_BRKPROPS            1
+#define RID_ACTIV               2
+
+// RID_POPUP_BRKDLG
+#define RID_BRKDLG              1
+
+
+// BasicTreeListBox
+#define IMGID_APPICON           ( SID_BASICIDE_IMAGESTART + 1 )
+#define IMGID_LIB               ( SID_BASICIDE_IMAGESTART + 2 )
+#define IMGID_MODULE            ( SID_BASICIDE_IMAGESTART + 3 )
+#define IMGID_MACRO             ( SID_BASICIDE_IMAGESTART + 4 )
+#define IMGID_OBJECT            ( SID_BASICIDE_IMAGESTART + 5 )
+#define IMGID_SUBOBJ            ( SID_BASICIDE_IMAGESTART + 6 )
+#define IMGID_PROP              ( SID_BASICIDE_IMAGESTART + 7 )
+#define IMGID_DOCUMENT          ( SID_BASICIDE_IMAGESTART + 8 )
+#define IMGID_LIBNOTLOADED      ( SID_BASICIDE_IMAGESTART + 9 )
+
+// ModulWindowLayout
+#define IMGID_BRKENABLED        ( SID_BASICIDE_IMAGESTART + 20 )
+#define IMGID_BRKDISABLED       ( SID_BASICIDE_IMAGESTART + 21 )
+#define IMGID_STEPMARKER        ( SID_BASICIDE_IMAGESTART + 22 )
+#define IMGID_ERRORMARKER       ( SID_BASICIDE_IMAGESTART + 23 )
+
+#endif  // _BASIDE2_HRC

basctl/source/basicide/baside4.cxx

+/*************************************************************************
+ *
+ *  $RCSfile: baside4.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:36 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+

basctl/source/basicide/basides2.cxx

+/*************************************************************************
+ *
+ *  $RCSfile: basides2.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:36 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#define SI_NOCONTROL
+#define SI_NOSBXCONTROLS
+
+#include <ide_pch.hxx>
+
+#ifndef _SBXCLASS_HXX //autogen
+#include <svtools/sbx.hxx>
+#endif
+
+#pragma hdrstop
+#define __PRIVATE 1
+
+#include <vcl/rcid.h>
+#include <vcl/sound.hxx>
+#include <basidesh.hxx>
+#include <baside2.hxx>
+#include <basdoc.hxx>
+#include <basobj.hxx>
+#include <svtools/texteng.hxx>
+#include <svtools/textview.hxx>
+#include <svtools/xtextedt.hxx>
+#include <sfx2/sfxdefs.hxx>
+
+IMPL_LINK_INLINE_START( BasicIDEShell, ObjectDialogCancelHdl, ObjectCatalog *, EMPTYARG )
+{
+    ShowObjectDialog( FALSE, TRUE );
+    return 0;
+}
+IMPL_LINK_INLINE_END( BasicIDEShell, ObjectDialogCancelHdl, ObjectCatalog *, EMPTYARG )
+
+/*
+IMPL_LINK( BasicIDEShell, ObjectDialogInsertHdl, ObjectCatalog *, pObjCat )
+{
+    if ( !pCurWin )
+        return 0;
+
+    if ( pCurWin->IsA( TYPE( ModulWindow ) ) )
+    {
+        ModulWindow* pEditWin = (ModulWindow*)pCurWin;
+        pEditWin->InsertFromObjectCatalog( pObjCat );
+    }
+    else
+        Sound::Beep();
+
+    return 0;
+}
+*/
+
+USHORT __EXPORT BasicIDEShell::Print( SfxProgress &rProgress, PrintDialog *pPrintDialog )
+{
+    if ( pCurWin )
+    {
+        SfxPrinter* pPrinter = GetPrinter( TRUE );
+        if ( pPrinter )
+        {
+            SfxViewShell::Print( rProgress, pPrintDialog );
+            pCurWin->PrintData( pPrinter );
+        }
+    }
+    return 0;
+}
+
+BOOL BasicIDEShell::HasSelection( BOOL /* bText */ ) const
+{
+    BOOL bSel = FALSE;
+    if ( pCurWin && pCurWin->ISA( ModulWindow ) )
+    {
+        TextView* pEditView = ((ModulWindow*)pCurWin)->GetEditView();
+        if ( pEditView && pEditView->HasSelection() )
+            bSel = TRUE;
+    }
+    return bSel;
+}
+
+String BasicIDEShell::GetSelectionText( BOOL bWholeWord )
+{
+    String aText;
+    if ( pCurWin && pCurWin->ISA( ModulWindow ) )
+    {
+        TextView* pEditView = ((ModulWindow*)pCurWin)->GetEditView();
+        if ( pEditView )
+        {
+            if ( bWholeWord && !pEditView->HasSelection() )
+            {
+                // String aStrCurrentDelimiters = pEngine->GetWordDelimiters();
+                // pEngine->SetWordDelimiters( " .,;\"'" );
+                aText = pEditView->GetTextEngine()->GetWord( pEditView->GetSelection().GetEnd() );
+                // pEngine->SetWordDelimiters( aStrCurrentDelimiters );
+            }
+            else
+            {
+                TextSelection aSel = pEditView->GetSelection();
+                if ( !bWholeWord || ( aSel.GetStart().GetPara() == aSel.GetEnd().GetPara() ) )
+                    aText = pEditView->GetSelected();
+            }
+        }
+    }
+    return aText;
+}
+
+SfxPrinter* __EXPORT BasicIDEShell::GetPrinter( BOOL bCreate )
+{
+    if ( pCurWin ) // && pCurWin->ISA( ModulWindow ) )
+    {
+        BasicDocShell* pDocShell = (BasicDocShell*)GetViewFrame()->GetObjectShell();
+        DBG_ASSERT( pDocShell, "DocShell ?!" );
+        return pDocShell->GetPrinter( bCreate );
+    }
+    return 0;
+}
+
+USHORT __EXPORT BasicIDEShell::SetPrinter( SfxPrinter *pNewPrinter, USHORT nDiffFlags )
+{
+    BasicDocShell* pDocShell = (BasicDocShell*)GetViewFrame()->GetObjectShell();
+    DBG_ASSERT( pDocShell, "DocShell ?!" );
+    pDocShell->SetPrinter( pNewPrinter );
+    return 0;
+}
+
+void BasicIDEShell::SetMDITitle()
+{
+    String aTitle = BasicIDE::GetStdTitle();
+    if ( pCurWin )
+    {
+        StarBASIC* pLib = pCurWin->GetBasic();
+        DBG_ASSERT( pLib, "Lib?!" );
+        BasicManager* pBasMgr = BasicIDE::FindBasicManager( pLib );
+        if ( pBasMgr )
+        {
+            aTitle += String( RTL_CONSTASCII_USTRINGPARAM( " - " ) );
+            aTitle += BasicIDE::FindTitle( pBasMgr, SFX_TITLE_FILENAME );
+            aTitle += '.';
+            aTitle += pLib->GetName();
+        }
+    }
+    // Wenn DocShell::SetTitle, erfolgt beim Schliessen Abfrage, ob Speichern!
+    GetViewFrame()->GetObjectShell()->SetTitle( aTitle );
+    GetViewFrame()->GetObjectShell()->SetModified( FALSE );
+}
+
+void BasicIDEShell::DestroyModulWindowLayout()
+{
+    delete pModulLayout;
+    pModulLayout = 0;
+}
+
+
+void BasicIDEShell::UpdateModulWindowLayout()
+{
+    if ( pModulLayout )
+    {
+        pModulLayout->GetStackWindow().UpdateCalls();
+        pModulLayout->GetWatchWindow().UpdateWatches();
+    }
+}
+
+void BasicIDEShell::CreateModulWindowLayout()
+{
+    pModulLayout = new ModulWindowLayout( &GetViewFrame()->GetWindow() );
+}
+
+ModulWindow* BasicIDEShell::CreateBasWin( StarBASIC* pBasic, String aModName )
+{
+    bCreatingWindow = TRUE;
+    ULONG nKey = 0;
+    ModulWindow* pWin = 0;
+
+    SbModule* pModule = pBasic->FindModule( aModName );
+    if ( !pModule )
+        pModule = BasicIDE::CreateModule( pBasic, aModName, TRUE );
+    else    // Vielleicht gibt es ein suspendiertes?
+        pWin = FindBasWin( pBasic, aModName, FALSE, TRUE );
+
+    if ( !pWin )
+    {
+        pWin = new ModulWindow( pModulLayout, pBasic, pModule );
+        nKey = InsertWindowInTable( pWin );
+    }
+    else
+    {
+        pWin->SetStatus( pWin->GetStatus() & ~BASWIN_SUSPENDED );
+        IDEBaseWindow* pTmp = aIDEWindowTable.First();
+        while ( pTmp && !nKey )
+        {
+            if ( pTmp == pWin )
+                nKey = aIDEWindowTable.GetCurKey();
+            pTmp = aIDEWindowTable.Next();
+        }
+        DBG_ASSERT( nKey, "CreateBasWin: Kein Key- Fenster nicht gefunden!" );
+    }
+    pTabBar->InsertPage( (USHORT)nKey, pModule->GetName() );
+    pWin->GrabScrollBars( &aHScrollBar, &aVScrollBar );
+    if ( !pCurWin )
+        SetCurWindow( pWin, FALSE, FALSE );
+
+    bCreatingWindow = FALSE;
+    return pWin;
+}
+
+ModulWindow* BasicIDEShell::FindBasWin( StarBASIC* pBasic, const String& rModName, BOOL bCreateIfNotExist, BOOL bFindSuspended )
+{
+    ModulWindow* pModWin = 0;
+    IDEBaseWindow* pWin = aIDEWindowTable.First();
+    while ( pWin && !pModWin )
+    {
+        if ( ( !pWin->IsSuspended() || bFindSuspended ) && pWin->IsA( TYPE( ModulWindow ) ) )
+        {
+            String aMod( ((ModulWindow*)pWin)->GetModuleName() );
+            if ( !pBasic )  // nur irgendeins finden...
+                pModWin = (ModulWindow*)pWin;
+            else if (  ( pWin->GetBasic() == pBasic ) &&
+                    ( ( rModName.Len() == 0 ) || ( aMod == rModName ) ) )
+            {
+                pModWin = (ModulWindow*)pWin;
+            }
+        }
+        pWin = aIDEWindowTable.Next();
+    }
+    if ( !pModWin && bCreateIfNotExist )
+        pModWin = CreateBasWin( pBasic, rModName );
+
+    return pModWin;
+}
+
+void __EXPORT BasicIDEShell::Move()
+{
+    if ( pCurWin && pCurWin->ISA( ModulWindow ) )
+        ((ModulWindow*)pCurWin)->FrameWindowMoved();
+}
+
+void __EXPORT BasicIDEShell::ShowCursor( FASTBOOL bOn )
+{
+    if ( pCurWin && pCurWin->ISA( ModulWindow ) )
+        ((ModulWindow*)pCurWin)->ShowCursor( (BOOL)bOn );
+}
+
+// Nur wenn Basicfenster oben:
+void __EXPORT BasicIDEShell::ExecuteBasic( SfxRequest& rReq )
+{
+    if ( !pCurWin || !pCurWin->IsA( TYPE( ModulWindow ) ) )
+        return;
+
+    pCurWin->ExecuteCommand( rReq );
+    CheckWindows();
+}
+

basctl/source/basicide/basides3.cxx

+/*************************************************************************
+ *
+ *  $RCSfile: basides3.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:36 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#define SI_NOCONTROL
+#define SI_NOSBXCONTROLS
+
+#include <basidesh.hrc>
+#include <ide_pch.hxx>
+
+#pragma hdrstop
+
+#define __PRIVATE 1
+
+#include <basidesh.hxx>
+#include <baside3.hxx>
+#include <basobj.hxx>
+
+DialogWindow* BasicIDEShell::CreateDlgWin( StarBASIC* pBasic, String aDlgName, SbxObject* pDlg )
+{
+    bCreatingWindow = TRUE;
+
+    ULONG nKey = 0;
+    DialogWindow* pWin = 0;
+    if ( !pDlg )
+    {
+        pDlg = BasicIDE::FindDialog( pBasic, aDlgName );
+        if ( !pDlg )
+            pDlg = BasicIDE::CreateDialog( pBasic, aDlgName );
+        DBG_ASSERT( pDlg, "Es wurde kein Dialog erzeugt!" );
+    }
+    else    // Vielleicht gibt es ein suspendiertes?
+        pWin = FindDlgWin( pBasic, aDlgName, FALSE, TRUE );
+
+
+    VCSbxDialogRef xNewDlg = (VCSbxDialog*)pDlg;
+
+    if ( !pWin )
+    {
+        pWin = new DialogWindow( &GetViewFrame()->GetWindow(), xNewDlg, pBasic );
+        nKey = InsertWindowInTable( pWin );
+    }
+    else
+    {
+        pWin->SetStatus( pWin->GetStatus() & ~BASWIN_SUSPENDED );
+        IDEBaseWindow* pTmp = aIDEWindowTable.First();
+        while ( pTmp && !nKey )
+        {
+            if ( pTmp == pWin )
+                nKey = aIDEWindowTable.GetCurKey();
+            pTmp = aIDEWindowTable.Next();
+        }
+        DBG_ASSERT( nKey, "CreateDlgWin: Kein Key - Fenster nicht gefunden!" );
+    }
+    pWin->GrabScrollBars( &aHScrollBar, &aVScrollBar );
+    pTabBar->InsertPage( (USHORT)nKey, xNewDlg->GetName() );
+    if ( !pCurWin )
+        SetCurWindow( pWin, FALSE, FALSE );
+
+    bCreatingWindow = FALSE;
+    return pWin;
+}
+
+DialogWindow* BasicIDEShell::FindDlgWin( StarBASIC* pBasic, const String& rDlgName, BOOL bCreateIfNotExist, BOOL bFindSuspended )
+{
+    DialogWindow* pDlgWin = 0;
+    IDEBaseWindow* pWin = aIDEWindowTable.First();
+    while ( pWin && !pDlgWin )
+    {
+        if ( ( !pWin->IsSuspended() || bFindSuspended ) && pWin->IsA( TYPE( DialogWindow ) ) )
+        {
+            String aDlgStr( ((DialogWindow*)pWin)->GetDialogName() );
+            if ( !pBasic )  // nur irgendeins finden...
+                pDlgWin = (DialogWindow*)pWin;
+            else if ( ( pWin->GetBasic() == pBasic ) &&
+                ( ( rDlgName.Len() == 0 ) || ( aDlgStr == rDlgName ) ) )
+                pDlgWin = (DialogWindow*)pWin;
+        }
+        pWin = aIDEWindowTable.Next();
+    }
+    if ( !pDlgWin && bCreateIfNotExist )
+        pDlgWin = CreateDlgWin( pBasic, rDlgName );
+
+    return pDlgWin;
+}
+
+SdrView* BasicIDEShell::GetCurDlgView()
+{
+    if ( !pCurWin || !pCurWin->IsA( TYPE( DialogWindow ) ) )
+        return NULL;
+
+    DialogWindow* pWin = (DialogWindow*)pCurWin;
+    return pWin->GetView();
+}
+
+// Nur wenn Dialogfenster oben:
+void __EXPORT BasicIDEShell::ExecuteDialog( SfxRequest& rReq )
+{
+    if ( !pCurWin || !pCurWin->IsA( TYPE( DialogWindow ) ) )
+        return;
+
+    pCurWin->ExecuteCommand( rReq );
+}
+

basctl/source/basicide/bastype3.hxx

+/*************************************************************************
+ *
+ *  $RCSfile: bastype3.hxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:36 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+#ifndef _BASTYPE3_HXX
+#define _BASTYPE3_HXX
+
+#ifndef _SVHEADER_HXX
+#include <svheader.hxx>
+#endif
+
+#ifdef VCL
+#include <svtools/svmedit.hxx>
+#endif
+
+#include <iderid.hxx>
+
+class EditorWindow;
+
+#ifndef NO_SPECIALEDIT
+
+class ExtendedEdit : public Edit
+{
+private:
+    Accelerator     aAcc;
+    Link            aAccHdl;
+    Link            aGotFocusHdl;
+    Link            aLoseFocusHdl;
+
+protected:
+    DECL_LINK( EditAccHdl, Accelerator * );
+    DECL_LINK( ImplGetFocusHdl, Control* );
+    DECL_LINK( ImplLoseFocusHdl, Control* );
+
+public:
+                    ExtendedEdit( Window* pParent, IDEResId nRes );
+
+    void            SetAccHdl( const Link& rLink )          { aAccHdl = rLink; }
+    void            SetLoseFocusHdl( const Link& rLink )    { aLoseFocusHdl = rLink; }
+    void            SetGotFocusHdl( const Link& rLink )     { aGotFocusHdl = rLink; }
+    Accelerator&    GetAccelerator()                        { return aAcc; }
+};
+
+class ExtendedMultiLineEdit : public MultiLineEdit
+{
+private:
+    Accelerator     aAcc;
+    Link            aAccHdl;
+
+protected:
+    DECL_LINK( EditAccHdl, Accelerator * );
+    DECL_LINK( ImplGetFocusHdl, Control* );
+    DECL_LINK( ImplLoseFocusHdl, Control* );
+
+public:
+                    ExtendedMultiLineEdit( Window* pParent, IDEResId nRes );
+
+    void            SetAccHdl( const Link& rLink )          { aAccHdl = rLink; }
+    Accelerator&    GetAccelerator()                        { return aAcc; }
+};
+
+#endif  //NO_SPECIALEDIT
+
+#endif  // _BASTYPE3_HXX