[Instantobjects-cvscommit] Source/Design InstantModelExplorer.dfm,1.4,1.5 InstantModelExpert.pas,1.12,1.13

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Design
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25040

Modified Files:
	InstantModelExplorer.dfm InstantModelExpert.pas 
Log Message:
Changes as follows:

1.  Rename the IDE menu item from "Model Explorer" to "InstantObjects
Model Explorer";

2.  Rename the "Model Explorer" form title to "InstantObjects Model
Explorer";

3.  In the newer BDS IDE add the item in the View menu so that the
"InstantObjects Model Explorer" menu item is placed underneath the
"Structure" menu item instead of defaulting to the bottom of the list.


Index: InstantModelExpert.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExpert.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** InstantModelExpert.pas	13 Oct 2005 10:51:27 -0000	1.12
--- InstantModelExpert.pas	5 Dec 2005 22:00:22 -0000	1.13
***************
*** 25,29 ****
   *
   * Contributor(s):
!  * Nando Dessena
   *
   * ***** END LICENSE BLOCK ***** *)
--- 25,29 ----
   *
   * Contributor(s):
!  * Nando Dessena, Steven Mitchell
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 172,176 ****
    SBuilderItemCaption = 'Database &Builder...';
    SBuilderItemName = 'InstantBuilderItem';
!   SExplorerItemCaption = '&Model Explorer';
    SExplorerItemName = 'InstantExplorerItem';
    SModelCompiler = 'Model Compiler';
--- 172,176 ----
    SBuilderItemCaption = 'Database &Builder...';
    SBuilderItemName = 'InstantBuilderItem';
!   SExplorerItemCaption = 'InstantObjects &Model Explorer';
    SExplorerItemName = 'InstantExplorerItem';
    SModelCompiler = 'Model Compiler';
***************
*** 497,501 ****
--- 497,505 ----
        OnClick := ExplorerItemClick;
      end;
+ {$IFDEF D9+}
+     Item := ItemByName(Menu, 'ViewStructureItem');
+ {$ELSE}
      Item := ItemByName(Menu, 'CodeExplorer');
+ {$ENDIF}
      if Assigned(Item) then
        Menu.Insert(Item.MenuIndex + 1, FExplorerItem)

Index: InstantModelExplorer.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExplorer.dfm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** InstantModelExplorer.dfm	25 Feb 2005 18:32:19 -0000	1.4
--- InstantModelExplorer.dfm	5 Dec 2005 22:00:22 -0000	1.5
***************
*** 6,10 ****
    VertScrollBar.Range = 20
    AutoScroll = False
!   Caption = 'Model Explorer'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
--- 6,10 ----
    VertScrollBar.Range = 20
    AutoScroll = False
!   Caption = 'InstantObjects Model Explorer'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET