Tools_NavigationState.st
author Claus Gittinger <cg@exept.de>
Mon, 21 Sep 2009 22:47:21 +0200
changeset 8744 2ad1b8a365db
parent 8547 acb371a7ff9e
child 8840 ce75492303ff
permissions -rw-r--r--
special editor stuff
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2000 by eXept Software AG
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
     3
              All Rights Reserved
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
5592
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    12
"{ Package: 'stx:libtool' }"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Tools }"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
Object subclass:#NavigationState
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    17
	instanceVariableNames:'browserLabel codeModifiedHolder categoryList classList
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    18
		packageFilter nameSpaceFilter hidePrivateClasses canvasType
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    19
		notMetaToggle metaToggle metaToggleLabel organizerMode codeAspect
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    20
		codeHolder classDocumentationHolder canvas selectorListGenerator
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    21
		protocolListGenerator classListPerNameSpaceGenerator
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    22
		classListGenerator categoryListGenerator nameSpaceListGenerator
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    23
		projectListGenerator classHierarchyTopClass meta selectedMethods
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    24
		selectedProtocols selectedClasses selectedCategories
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    25
		selectedProjects selectedNamespaces variableFilter
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    26
		filterClassVars sortBy noAllItem autoSearchPattern
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
    27
		autoSearchIgnoreCase autoSearchAction realModifiedStateHolder
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    28
		methodInfo versionDiffApplication selectorListGeneratorArray
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    29
		selectedMethodsArray infoLabelHolder packageLabelHolder
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    30
		cursorLineLabelHolder cursorColLabelHolder modeLabelHolder
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    31
		sortVariablesBy editModeHolder scrollableCodeView specialEditors
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    32
		selectedEditorNoteBookTabIndexHolder editorNoteBookListHolder
8058
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
    33
		editorNoteBookCanvasHolder codeView stringSearchToolView
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
    34
		noteBookView'
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    35
	classVariableNames:''
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    36
	poolDictionaries:''
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
    37
	category:'Interface-Browsers-New'
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
!NavigationState class methodsFor:'documentation'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
copyright
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
 COPYRIGHT (c) 2000 by eXept Software AG
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
    45
              All Rights Reserved
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
 This software is furnished under a license and may be used
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
 only in accordance with the terms of that license and with the
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
 inclusion of the above copyright notice.   This software may not
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
 be provided or otherwise made available to, or used by, any
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
 other person.  No title to or ownership of the software is
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
 hereby transferred.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
!NavigationState methodsFor:'accessing'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
autoSearchAction
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
    ^ autoSearchAction
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
autoSearchAction:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
    autoSearchAction := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
autoSearchIgnoreCase
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    "return true if the autSearch is to be case-insensitive"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
    ^ autoSearchIgnoreCase
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
autoSearchIgnoreCase:aBoolean
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
    "change the autSearches case-insensitivenes"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
    autoSearchIgnoreCase := aBoolean
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
autoSearchPattern
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
    "return the automatic search pattern"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
    ^ autoSearchPattern
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
autoSearchPattern:aPattern
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
    "change the automatic search pattern"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
    autoSearchPattern := aPattern.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
browserLabel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
    "return the assigned state-label (to be shown in the tab)."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
    ^ browserLabel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
browserLabel:aString
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
    "set the assigned state-label (to be shown in the tab)."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
    browserLabel := aString
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
canvas
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
    ^ canvas
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
canvas:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
    canvas := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
    canvasType isNil ifTrue:[
6550
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   109
        canvasType := something spec
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
canvasType
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
    "return the type of canvas"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
    ^ canvasType
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
canvasType:aSpecSymbol
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
    "set the type of canvas"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
    canvasType notNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   123
        canvasType ~~ aSpecSymbol ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   124
            self halt:'cannot be changed, once set'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   125
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
    canvasType := aSpecSymbol
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
codeAspect
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
    "return the codeAspect; a symbol describing what is shown in the codeView"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
    ^ codeAspect
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
    "Created: / 11.2.2000 / 12:43:29 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
codeAspect:aSymbolOrNil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
    "set the codeAspect; a symbol describing what is shown in the codeView"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
    codeAspect := aSymbolOrNil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
    "Created: / 11.2.2000 / 12:43:45 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   146
editorNoteBookCanvasHolder
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   147
    editorNoteBookCanvasHolder isNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   148
        editorNoteBookCanvasHolder := nil asValue.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   149
    ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   150
    ^ editorNoteBookCanvasHolder
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   151
!
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   152
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   153
editorNoteBookListHolder
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   154
    editorNoteBookListHolder isNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   155
        editorNoteBookListHolder := #() asValue.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   156
    ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   157
    ^ editorNoteBookListHolder
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   158
!
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   159
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
environment
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
    ^ Smalltalk
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
modified
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
    "check for modified code by asking the editTextView;
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
     this one returns true if ever modified - even if
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   167
     the modifications where undone in the editor
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
     (i.e. not really modified).
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
     Use #reallyModified if the contents should be compared
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
     against the original contents"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
6576
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   172
    |v|
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   174
    self realModifiedState == true ifTrue:[^ true].
6576
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   175
    self anySpecialEditorModified ifTrue:[^ true].
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   176
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   177
    ^ (v := self codeView) notNil and:[v modified]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
modified:aBoolean
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
    |codeView|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
    (codeView := self codeView) notNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   184
        codeView modified:aBoolean
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
    ].
6576
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   186
    specialEditors notNil ifTrue:[
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   187
        specialEditors do:[:anEditor | 
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   188
            anEditor application modified:aBoolean
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   189
        ].    
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   190
    ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
8058
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   193
noteBookView
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   194
    ^ noteBookView
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   195
!
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   196
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   197
noteBookView:something
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   198
    noteBookView := something.
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   199
!
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   200
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
realModifiedState
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   202
    ^ self realModifiedStateHolder value
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
realModifiedState:aBoolean
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   206
    self realModifiedStateHolder value:aBoolean
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   207
!
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   208
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   209
realModifiedStateHolder
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   210
    realModifiedStateHolder isNil ifTrue:[
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   211
        realModifiedStateHolder := ValueHolder new.
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   212
    ].
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   213
    ^ realModifiedStateHolder
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   214
!
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   215
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   216
selectedEditorNoteBookTabIndexHolder
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   217
    selectedEditorNoteBookTabIndexHolder isNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   218
        selectedEditorNoteBookTabIndexHolder := 1 asValue.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   219
    ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   220
    ^ selectedEditorNoteBookTabIndexHolder
8058
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   221
!
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   222
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   223
stringSearchToolView
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   224
    ^ stringSearchToolView
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   225
!
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   226
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   227
stringSearchToolView: aStringSearchTool
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   228
5149753435d9 StringSearchTool
fm
parents: 7747
diff changeset
   229
    stringSearchToolView := aStringSearchTool
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
!NavigationState methodsFor:'accessing-selection'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
theSingleSelectedClass
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
    "if only one class is selected, return it.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
     Otherwise, return nil"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
    |classes|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
    classes := self selectedClasses value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
    classes size == 1 ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   242
        ^ classes first
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
    ^ nil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
theSingleSelectedMethod
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
    "if only one method is selected, return it.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
     Otherwise, return nil"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
    |methods|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
    methods := self selectedMethods value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
    methods size == 1 ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   255
        ^ methods first
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
    ^ nil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
!NavigationState methodsFor:'accessing-subApps'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
applicationOfComponent:aComponentName
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
    ^ self applicationOfComponent:aComponentName or:nil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
applicationOfComponent:aComponentName or:anotherComponentName
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
    |builder view|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
6714
1207be78cc48 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6674
diff changeset
   270
    canvas isNil ifTrue:[^ nil].
1207be78cc48 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6674
diff changeset
   271
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
    builder := canvas builder.
5906
9ff3d80263f5 use findVisibleComponentAt: when searching for listViews by name.
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
   273
9ff3d80263f5 use findVisibleComponentAt: when searching for listViews by name.
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
   274
    view := builder findVisibleComponentAt:aComponentName.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
    (view isNil and:[anotherComponentName notNil]) ifTrue:[
5906
9ff3d80263f5 use findVisibleComponentAt: when searching for listViews by name.
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
   276
        view := builder findVisibleComponentAt:anotherComponentName.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
    ].
5906
9ff3d80263f5 use findVisibleComponentAt: when searching for listViews by name.
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
   278
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
    view notNil ifTrue:[
5906
9ff3d80263f5 use findVisibleComponentAt: when searching for listViews by name.
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
   280
        ^ view application
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
    ^ nil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
classCategoryListApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
    ^ self applicationOfComponent:#ClassCategoryList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
classListApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
    ^ self applicationOfComponent:#ClassList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
metaToggleComponent
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
    ^ canvas builder findComponentAt:#ClassToggle.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
methodCategoryListApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
    ^ self applicationOfComponent:#MethodCategoryList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
methodListApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
    ^ self applicationOfComponent:#MethodList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
nameSpaceListApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
    ^ self applicationOfComponent:#NamespaceList or:#PseudoNamespaceList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
projectListApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
    ^ self applicationOfComponent:#ProjectList or:#PseudoProjectList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
variableListApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
    ^ self applicationOfComponent:#VariableList 
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
versionDiffApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
    ^ versionDiffApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
versionDiffApplication:anApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
    versionDiffApplication := anApplication
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
6550
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   329
!NavigationState methodsFor:'accessing-subViews'!
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   330
6576
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   331
anySpecialEditorModified
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   332
    specialEditors notNil ifTrue:[
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   333
        ^ specialEditors contains:[:anEditor | anEditor application isModified].    
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   334
    ].
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   335
    ^ false
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   336
!
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   337
6550
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   338
codeView
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   339
    codeView isNil ifTrue:[
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   340
        self setUpScrollableCodeView
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   341
    ].
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   342
    ^ codeView
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   343
!
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   344
6576
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   345
doSaveInSpecialEditors
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   346
    specialEditors notNil ifTrue:[
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   347
        specialEditors do:[:anEditor | 
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   348
            anEditor application isModified ifTrue:[
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   349
                anEditor application save.
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   350
                ^ self.
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   351
            ]
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   352
        ].    
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   353
    ].
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   354
!
130f11c3cfe7 modified special editors
Claus Gittinger <cg@exept.de>
parents: 6571
diff changeset
   355
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   356
getCodeView
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   357
    ^ codeView
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   358
!
6550
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   359
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   360
scrollableCodeView
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   361
    scrollableCodeView isNil ifTrue:[
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   362
        self setUpScrollableCodeView.
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   363
    ].
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   364
    ^ scrollableCodeView
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   365
!
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   366
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   367
setUpScrollableCodeView
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   368
    |v|
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   369
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   370
    scrollableCodeView isNil ifTrue:[
6559
0f2a2fb97405 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6557
diff changeset
   371
        scrollableCodeView := HVScrollableView for:CodeView.
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   372
        scrollableCodeView name:'CodeView'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   373
        scrollableCodeView horizontalMini:true.
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   374
        codeView := scrollableCodeView scrolledView.
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   375
        codeView modifiedChannel:self codeModifiedHolder.
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   376
        codeView model: self codeHolder.
7747
fc74391c1142 codeView +canTab
Claus Gittinger <cg@exept.de>
parents: 7101
diff changeset
   377
        codeView canTab:true.
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   378
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   379
        UserPreferences current showAcceptCancelBarInBrowser ifTrue:[
7101
6ce7338fa4f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7093
diff changeset
   380
            ViewWithAcceptAndCancelBar notNil ifTrue:[
6ce7338fa4f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7093
diff changeset
   381
                v := ViewWithAcceptAndCancelBar new.
6ce7338fa4f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7093
diff changeset
   382
                v slaveView:scrollableCodeView.
6ce7338fa4f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7093
diff changeset
   383
                v reallyModifiedHolder:self realModifiedStateHolder.
8547
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   384
                v cancelAction:[
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   385
                        codeView setClipboardText:(codeView contents).   "/ for undo
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   386
                        codeView application 
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   387
                            delayedUpdateCodeWithAutoSearch:false checkModified:false.
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   388
                        codeView requestFocus. 
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   389
                    ].
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   390
                v compareAction:[ 
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   391
                        codeView application doCompareIn:self.
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   392
                        codeView requestFocus 
acb371a7ff9e place the canceled text into the copyBuffer
Claus Gittinger <cg@exept.de>
parents: 8333
diff changeset
   393
                    ].
7101
6ce7338fa4f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7093
diff changeset
   394
                scrollableCodeView := v.
6ce7338fa4f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7093
diff changeset
   395
            ]
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   396
        ].
6550
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   397
    ].
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   398
    ^ scrollableCodeView
7062
5a14abd21827 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6771
diff changeset
   399
7747
fc74391c1142 codeView +canTab
Claus Gittinger <cg@exept.de>
parents: 7101
diff changeset
   400
    "Modified: / 15-03-2007 / 16:26:33 / cg"
6550
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   401
!
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   402
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   403
specialEditorCanvasClassForResourceType:resourceTypeSymbol
8744
2ad1b8a365db special editor stuff
Claus Gittinger <cg@exept.de>
parents: 8547
diff changeset
   404
    resourceTypeSymbol == #fileImage ifTrue:[
2ad1b8a365db special editor stuff
Claus Gittinger <cg@exept.de>
parents: 8547
diff changeset
   405
        ^ nil
6563
83a1be4da143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6559
diff changeset
   406
    ].
8744
2ad1b8a365db special editor stuff
Claus Gittinger <cg@exept.de>
parents: 8547
diff changeset
   407
    ^ SystemBrowser resourceEditorClassFor:resourceTypeSymbol
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   408
!
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   409
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   410
specialEditorCanvasForResourceType:resourceTypeSymbol
6570
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   411
    |appClass app editorView|
6550
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   412
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   413
    specialEditors isNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   414
        specialEditors := Dictionary new.    
6550
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   415
    ].
6570
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   416
    editorView := specialEditors at:resourceTypeSymbol ifAbsent:nil.
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   417
    editorView isNil ifTrue:[
6557
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   418
        appClass := self specialEditorCanvasClassForResourceType:resourceTypeSymbol.
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   419
        appClass notNil ifTrue:[
ff6506737ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6553
diff changeset
   420
            app := appClass new.
6571
a307b71fd71e infoHolder handling
Claus Gittinger <cg@exept.de>
parents: 6570
diff changeset
   421
            app masterApplication:self canvas application.
8744
2ad1b8a365db special editor stuff
Claus Gittinger <cg@exept.de>
parents: 8547
diff changeset
   422
            app isEmbeddedInBrowser:true.
6571
a307b71fd71e infoHolder handling
Claus Gittinger <cg@exept.de>
parents: 6570
diff changeset
   423
            app infoLabelHolder:(self canvas application infoLabelHolder).
6566
266f28eaf4cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6563
diff changeset
   424
6570
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   425
            editorView := ApplicationSubView new.
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   426
            editorView buildMenu:true.
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   427
            editorView client:app.
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   428
            app builder window:editorView.
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   429
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   430
            specialEditors at:resourceTypeSymbol put:editorView.
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   431
        ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   432
    ].
6570
3820ea7bbe9f build resource editor with menu
Claus Gittinger <cg@exept.de>
parents: 6566
diff changeset
   433
    ^ editorView
6550
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   434
! !
84dcb86deafd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6461
diff changeset
   435
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
!NavigationState methodsFor:'aspects'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
categoryList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
    categoryList isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   440
        categoryList := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
    ^ categoryList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
    "Modified: / 25.2.2000 / 01:35:42 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
    "Created: / 25.2.2000 / 01:57:45 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
categoryListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
    categoryListGenerator isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   450
        categoryListGenerator := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
    ^ categoryListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
    "Created: / 25.2.2000 / 01:34:30 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
    "Modified: / 25.2.2000 / 01:35:42 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
classDocumentationHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
    classDocumentationHolder isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   460
        classDocumentationHolder := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
    ^ classDocumentationHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
classHierarchyTopClass
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
    classHierarchyTopClass isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   467
        classHierarchyTopClass := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
    ^ classHierarchyTopClass
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
classList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
    classList isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   475
        classList := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
    ^ classList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
    "Created: / 25.2.2000 / 01:57:28 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
classListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
    classListGenerator isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   484
        classListGenerator := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
    ^ classListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   490
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
classListPerNameSpaceGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
    classListPerNameSpaceGenerator isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   493
        classListPerNameSpaceGenerator := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
    ^ classListPerNameSpaceGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
    "Created: / 18.8.2000 / 14:15:34 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
codeHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
    codeHolder isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   502
        codeHolder := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
    ^ codeHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
codeModifiedHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
    codeModifiedHolder isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   510
        codeModifiedHolder := false asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
    ^ codeModifiedHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
cursorColLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
    cursorColLabelHolder isNil ifTrue:[
6399
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   517
"/        self codeView isNil ifTrue:[^ nil].
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   518
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   519
        cursorColLabelHolder := BlockValue 
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   520
                                    with:[:v | v printString]
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   521
                                    argument:self codeView cursorColHolder.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
    ^ cursorColLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
cursorLineLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
    cursorLineLabelHolder isNil ifTrue:[
6399
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   528
"/        self codeView isNil ifTrue:[^ nil].
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   529
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   530
        cursorLineLabelHolder := BlockValue 
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   531
                                    with:[:v | v printString]
acaf5e4ada07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6006
diff changeset
   532
                                    argument:self codeView cursorLineHolder.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
    ^ cursorLineLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
6461
7d0b624dc991 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6399
diff changeset
   537
editModeHolder
7d0b624dc991 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6399
diff changeset
   538
    editModeHolder isNil ifTrue:[
7d0b624dc991 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6399
diff changeset
   539
        editModeHolder := self codeView editModeHolder.
7d0b624dc991 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6399
diff changeset
   540
    ].
7d0b624dc991 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6399
diff changeset
   541
    ^ editModeHolder
7d0b624dc991 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6399
diff changeset
   542
!
7d0b624dc991 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6399
diff changeset
   543
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
filterClassVars
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
    filterClassVars isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   546
        filterClassVars := false asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
    ^ filterClassVars
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
    "Created: / 24.2.2000 / 23:45:28 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
hidePrivateClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
    hidePrivateClasses isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   555
        hidePrivateClasses := false asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
    ^ hidePrivateClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
    "Created: / 24.2.2000 / 16:17:02 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
infoLabelHolder 
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
    infoLabelHolder isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   564
        infoLabelHolder := '' asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
    ^ infoLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
meta
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
    meta isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   571
        meta := false asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
    ^ meta
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
metaToggleLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
    metaToggleLabel isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   580
        metaToggleLabel := 'Class' asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
    ^ metaToggleLabel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
methodInfo
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
    methodInfo isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   587
        methodInfo := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
    ^ methodInfo
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
methodList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
    |methodListApplication|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
    methodListApplication := self methodListApplication.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
    methodListApplication isNil ifTrue:[^ nil].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
    ^ methodListApplication methodList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
modeLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
    modeLabelHolder isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   604
        modeLabelHolder := self codeView modeLabelHolder.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
    ^ modeLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
nameSpaceFilter
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
    nameSpaceFilter isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   611
        nameSpaceFilter := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
    ^ nameSpaceFilter
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
    "Created: / 18.8.2000 / 14:25:24 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
nameSpaceListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
    nameSpaceListGenerator isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   620
        nameSpaceListGenerator := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
    ^ nameSpaceListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
    "Created: / 18.8.2000 / 14:26:19 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
    "Modified: / 18.8.2000 / 14:27:59 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
noAllItem
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
    noAllItem isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   630
        noAllItem := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
    ^ noAllItem
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
organizerMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
    "return the organizerMode holder; 
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
     holding a symbol describing how things are organized
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
     (#category, #hierarchy, #project or #namespace)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
    organizerMode isNil ifTrue:[
6736
1cb965228e32 magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6714
diff changeset
   641
        organizerMode := OrganizerCanvas organizerModeCategory asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
    ^ organizerMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
    "Created: / 18.2.2000 / 13:33:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
    "Modified: / 18.8.2000 / 18:37:22 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
packageFilter
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
    packageFilter isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   651
        packageFilter := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
    ^ packageFilter
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
    "Created: / 24.2.2000 / 23:45:28 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
packageLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
    packageLabelHolder isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   660
        packageLabelHolder := '' asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
    ^ packageLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
projectListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
    projectListGenerator isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   667
        projectListGenerator := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
    ^ projectListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
    "Modified: / 25.2.2000 / 01:35:42 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
    "Created: / 25.2.2000 / 02:43:26 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
protocolListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
    protocolListGenerator isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   677
        protocolListGenerator := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
    ^ protocolListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
selectedCategories
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
    selectedCategories isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   685
        selectedCategories := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
    ^ selectedCategories
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   690
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   691
selectedClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   692
    selectedClasses isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   693
        selectedClasses := "SpecialValueHolder with:nil." nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
    ^ selectedClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   696
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   697
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   698
selectedMethods
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   699
    selectedMethods isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   700
        selectedMethods := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   701
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   702
    ^ selectedMethods
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   705
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
selectedMethodsArrayAt:index
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   707
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   708
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   709
    selectedMethodsArray isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   710
        selectedMethodsArray := OrderedCollection new 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
    index > selectedMethodsArray size ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   713
        selectedMethodsArray grow:index
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
    holder := selectedMethodsArray at:index.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
    holder isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   717
        selectedMethodsArray at:index put:(holder := ValueHolder new)
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   718
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   719
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   720
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   721
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   722
selectedNamespaces
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   723
    selectedNamespaces isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   724
        selectedNamespaces := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   725
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   726
    ^ selectedNamespaces
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   727
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   728
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   729
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
selectedProjects
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
    selectedProjects isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   732
        selectedProjects := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   733
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   734
    ^ selectedProjects
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   736
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   737
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   738
selectedProtocols
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   739
    selectedProtocols isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   740
        selectedProtocols := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
    ^ selectedProtocols
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
selectorListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
    selectorListGenerator isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   748
        selectorListGenerator := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
    ^ selectorListGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
selectorListGeneratorArray
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
    self halt:'should not be invoked'.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   756
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
selectorListGeneratorArrayAt:index
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   760
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   761
    selectorListGeneratorArray isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   762
        selectorListGeneratorArray := OrderedCollection new 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   763
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   764
    index > selectorListGeneratorArray size ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   765
        selectorListGeneratorArray grow:index
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   766
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   767
    holder := selectorListGeneratorArray at:index.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   768
    holder isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   769
        selectorListGeneratorArray at:index put:(holder := ValueHolder new)
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   771
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
sortBy
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
    sortBy isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   776
        sortBy := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
    ^ sortBy
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
variableFilter
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
    variableFilter isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   783
        variableFilter := nil asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
    ^ variableFilter
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   787
    "Created: / 24.2.2000 / 23:45:28 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   788
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
!NavigationState methodsFor:'aspects-kludges'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
metaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
    metaToggle isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   794
        metaToggle := PluggableAdaptor on:(self meta).
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   795
        metaToggle
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   796
            getBlock:[:m | m value == true]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   797
            putBlock:[:m :newValue | m value:(newValue ? false)]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   798
            updateBlock:[:m :aspect :param | true].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
    ^ metaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
notMetaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
    notMetaToggle isNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   805
        notMetaToggle := PluggableAdaptor on:(self meta).
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   806
        notMetaToggle
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   807
            getBlock:[:m | m value == false]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   808
            putBlock:[:m :newValue | m value:(newValue ? false) not]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   809
            updateBlock:[:m :aspect :param | true].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
    ^ notMetaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
!NavigationState methodsFor:'printing & storing'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
colorizeForModifiedBuffer:someString
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
    ^ someString asText emphasisAllAdd:(UserPreferences current emphasisForModifiedBuffer)
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
nameString
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
    "a descriptive string of what this state shows"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
    |s|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
    s := self rawNameStringOrNil ? 'nothing selected'.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   827
    (self realModifiedState == true) ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   828
        ^ self colorizeForModifiedBuffer:s string
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
    ^ s
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
nameStringOrNil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
    "a descriptive string of what this state shows"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
    |s "codeView"|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
    s := self rawNameStringOrNil.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
    s notNil ifTrue:[
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
   840
        self realModifiedState == true 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
"/    ((codeView := self codeView) notNil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
"/    and:[codeView modified]) 
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   843
        ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   844
            ^ self colorizeForModifiedBuffer:s string
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   845
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
    ^ s
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   850
rawNameStringForCategory
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
    |categories theCategory|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   852
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
    categories := self selectedCategories value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
    categories size == 1 ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   855
        theCategory := categories first.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   856
        theCategory notNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   857
            ^ theCategory string, ' [Category]'
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   858
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
    ^ nil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
    "Created: / 18.8.2000 / 19:42:42 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
rawNameStringForNameSpace
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
    |namespaces theNamespace nsName s|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
    namespaces := self selectedNamespaces value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
    namespaces size == 1 ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   870
        theNamespace := namespaces first
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
    theNamespace notNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   873
        theNamespace isNameSpace ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   874
            nsName := theNamespace name
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   875
        ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   876
            nsName := theNamespace
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   877
        ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   878
        s := nsName , ' [NameSpace]'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   879
        (self isNameSpaceBrowser or:[self isNameSpaceFullBrowser]) ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   880
            ^ LabelAndIcon icon:(NewSystemBrowser nameSpaceIcon) string:s.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   881
        ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   882
        ^ s
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
    ^ nil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
    "Created: / 18.8.2000 / 20:15:02 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
rawNameStringForProject
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
    |projects theProject s|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
    projects := self selectedProjects value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   893
    projects size == 1 ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   894
        theProject := projects first
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
    theProject notNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   897
        s := theProject , ' [Project]'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   898
        (self isProjectBrowser or:[self isProjectFullBrowser]) ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   899
            ^ LabelAndIcon icon:(NewSystemBrowser packageIcon) string:s.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   900
        ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   901
        ^ s
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
    ^ nil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
    "Created: / 18.8.2000 / 20:18:34 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
rawNameStringOrNil
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
    "a descriptive string of what this state shows; nil, if nothing is selected"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   910
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
    ^ self rawNameStringOrNilWantShort:false
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   912
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   913
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   914
rawNameStringOrNilWantShort:shortName
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   915
    "a descriptive string of what this state shows; nil, if nothing is selected"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   916
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   917
    |lbl nr numClasses numMethods numCategories cats classes theClass   
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   918
     "protocols theProtocol" 
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   919
     methods theSingleMethod projects theProject longName nm methodName suffix cls|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   920
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   921
    browserLabel notNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   922
        "/ add the number of selected methods
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   923
        ((canvasType == #singleFullProtocolBrowserSpec)
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   924
        or:[canvasType == #methodListBrowserSpec]) ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   925
            nr := self selectedMethods value size.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   926
            nr > 5 ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   927
                ^ browserLabel string , ' - ' , nr printString , ' methods'
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   928
            ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   929
        ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   930
        ^ browserLabel
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   931
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   932
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   933
    suffix := ''.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
    self isProtocolOrFullProtocolBrowser ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   936
        lbl := self rawNameStringForProject.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   937
        lbl notNil ifTrue:[^ lbl].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   938
        suffix := ' [Protocol]'.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   941
    self isCategoryBrowser ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   942
        lbl := self rawNameStringForCategory.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   943
        lbl notNil ifTrue:[^ lbl].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   944
        suffix := ' [Category]'.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   945
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   947
    self isNameSpaceBrowser ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   948
        lbl := self rawNameStringForNameSpace.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   949
        lbl notNil ifTrue:[^ lbl].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   950
        suffix := ' [NameSpace]'.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   951
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   952
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   953
    self isProjectBrowser ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   954
        projects := self selectedProjects value.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   955
        projects size == 1 ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   956
            theProject := projects first
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   957
        ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   958
        suffix := ' [Project]'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   959
        theProject notNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   960
            ^ theProject , suffix
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   961
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   962
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   963
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   964
    classes := self selectedClasses value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   965
    classes size == 1 ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   966
        theClass := classes first.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   967
        theClass notNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   968
            theClass := theClass theNonMetaclass
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   969
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   970
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   971
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
    self isClassBrowser ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   973
        suffix := ' [Class]'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   974
        theClass notNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   975
            ^ theClass name , suffix
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   976
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   977
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   978
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
"/    protocols := self selectedProtocols value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
"/    protocols size == 1 ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   981
"/        theProtocol := protocols first
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   982
"/    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   983
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   984
    methods := self selectedMethods value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   985
    methods size == 1 ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   986
        theSingleMethod := methods first
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   988
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
    theSingleMethod notNil ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   990
        methodName := theSingleMethod selector.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   991
        theSingleMethod isJavaMethod ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   992
            methodName := theSingleMethod printStringForBrowserWithSelector:methodName.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   993
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   995
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   996
    self isMethodBrowser ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   997
        suffix := ' [Selector]'.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
   999
        theSingleMethod notNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1000
            theSingleMethod mclass isNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1001
                ^ '???'
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1002
            ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1003
            ^ theSingleMethod mclass name , ' ' , methodName , suffix
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1004
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1006
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
    self isCategoryBrowser ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1008
        suffix :=  ' [Category]'.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1009
    ] ifFalse:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1010
        self isFullClassSourceBrowser ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1011
            suffix :=  ' [Full]'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1012
        ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1013
            self isClassDocumentationBrowser ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1014
                suffix :=  ' [Doc]'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1015
            ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1016
                self isProjectBrowser ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1017
                    suffix :=  ' [Project]'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1018
                ]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1019
            ]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1020
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1021
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
    nm := nil.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
    (numClasses := classes size) > 0 ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1025
        numClasses > 1 ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1026
            methods size > 0 ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1027
                theSingleMethod notNil ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1028
                    cls := theSingleMethod mclass.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1029
                    cls isNil ifTrue:[ 
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1030
                        "/ oops - unbound
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1031
                        nm := '???'
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1032
                    ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1033
                        longName := nm := cls nameInBrowser.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1034
                        shortName ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1035
                            nm := cls nameWithoutPrefix.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1036
                            cls isPrivate ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1037
                                nm := ':' , nm
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1038
                            ]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1039
                        ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1040
                    ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1041
                    nm := nm , ' ', (methodName ? '???')
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1042
                ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1043
                    nm := methods size printString , ' methods'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1044
                    numClasses := (methods collect:[:each | each mclass]) asIdentitySet size.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1045
                    numClasses > 1 ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1046
                        nm := nm , ' in ' , numClasses printString , ' classes'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1047
                    ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1048
                ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1049
                ^ nm , suffix.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1050
            ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1052
            nm := numClasses printString , ' classes in '.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1053
            "/ cats := self selectedCategories value
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1054
            cats := (classes collect:[:each | each category]) asSet.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1055
            (numCategories := cats size) == 1 ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1056
                nm := nm , cats first
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1057
            ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1058
                nm := nm , numCategories printString , ' categories'
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1059
            ]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1060
        ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1061
            cls := theClass theNonMetaclass.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1062
            longName := nm := cls nameInBrowser.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1063
            shortName ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1064
                nm := cls nameWithoutPrefix.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1065
                cls isPrivate ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1066
                    nm := ':' , nm
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1067
                ]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1068
            ].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1069
            methods := self selectedMethods value.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1070
            (numMethods := methods size) > 0 ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1071
                numMethods == 1 ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1072
                    theSingleMethod := methods first.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1073
                    nm := nm , ' ', (methodName ? '???')
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1074
                ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1075
                    nm := numMethods printString , ' methods in ' , nm
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1076
                ]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1077
            ]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1078
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
    ] ifFalse:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1080
        (self isNameSpaceBrowser 
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1081
        or:[self isNameSpaceFullBrowser
6736
1cb965228e32 magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6714
diff changeset
  1082
        or:[organizerMode value == OrganizerCanvas organizerModeNamespace]]) ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1083
            lbl := self rawNameStringForNameSpace.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1084
            lbl notNil ifTrue:[^ lbl].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1085
            suffix := ' [NameSpace]'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1086
        ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1087
            (self isProjectBrowser 
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1088
            or:[self isProjectFullBrowser
6736
1cb965228e32 magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6714
diff changeset
  1089
            or:[organizerMode value == OrganizerCanvas organizerModeProject]]) ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1090
                lbl := self rawNameStringForProject.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1091
                lbl notNil ifTrue:[^ lbl].
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1092
                suffix := ' [Project]'.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1093
            ] ifFalse:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1094
                cats := self selectedCategories value.
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1095
                cats size == 1 ifTrue:[
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1096
                    nm := cats first string
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1097
                ]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1098
            ]
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1099
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
    nm isNil ifTrue:[ ^ nil ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
    ^ nm , suffix.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1103
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1104
    "Created: / 11.2.2000 / 13:32:16 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1105
    "Modified: / 18.8.2000 / 21:06:35 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1106
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1107
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1108
shortNameString
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1109
    "a descriptive string of what this state shows"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
    |s|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
    s := (self rawNameStringOrNilWantShort:true) ? 'nothing selected'.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
6771
874265f4e70a accept & cancel bar
Claus Gittinger <cg@exept.de>
parents: 6736
diff changeset
  1115
    (self realModifiedState == true) ifTrue:[
6553
071c29bf7b06 preps for tabbed code editor
Claus Gittinger <cg@exept.de>
parents: 6550
diff changeset
  1116
        ^ self colorizeForModifiedBuffer:s string
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1118
    ^ s
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
!NavigationState methodsFor:'queries'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
isCategoryBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
    ^ canvasType == #categoryBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
      or:[ canvasType == #singleCategoryBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
      or:[ canvasType == #multipleCategoryBrowserSpec ]]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
    "Modified: / 25.2.2000 / 01:17:02 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1129
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
isChainBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1132
    ^ canvasType == #chainBrowserSpec    
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
isCheckOutputBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
    ^ canvasType == #multipleClassWithInfoAndMethodWithInfoBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
      or:[canvasType == #multipleMethodWithInfoBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
      or:[canvasType == #multipleClassWithInfoBrowserSpec]]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
isClassBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
    ^ canvasType == #classBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
      or:[ canvasType == #singleClassBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
      or:[ canvasType == #multipleClassBrowserSpec ]]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
    "Modified: / 25.2.2000 / 00:38:07 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
isClassDocumentationBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
    ^ canvasType == #classDocumentationBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
    "Created: / 24.2.2000 / 14:54:40 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
6006
6bc518b7aa2f *** empty log message ***
ca
parents: 5906
diff changeset
  1155
isClassExtensionBrowser
6bc518b7aa2f *** empty log message ***
ca
parents: 5906
diff changeset
  1156
    ^ canvasType == #multipleClassExtensionBrowserSpec
6bc518b7aa2f *** empty log message ***
ca
parents: 5906
diff changeset
  1157
6bc518b7aa2f *** empty log message ***
ca
parents: 5906
diff changeset
  1158
    "Created: / 24.2.2000 / 14:54:40 / cg"
6bc518b7aa2f *** empty log message ***
ca
parents: 5906
diff changeset
  1159
!
6bc518b7aa2f *** empty log message ***
ca
parents: 5906
diff changeset
  1160
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
isFullBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
    ^ canvasType == #fullBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1164
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1165
isFullClassSourceBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
    ^ canvasType == #fullClassSourceBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
    "Created: / 24.2.2000 / 14:54:40 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1171
isFullProtocolBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1172
    ^ canvasType == #singleFullProtocolBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
      or:[ canvasType == #multipleFullProtocolBrowserSpec ]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
    "Created: / 24.2.2000 / 21:32:09 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
    "Modified: / 25.2.2000 / 03:11:00 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1178
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1179
isMethodBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1180
    ^ canvasType == #methodListBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1181
      or:[ canvasType == #singleMethodBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1182
      or:[ canvasType == #multipleMethodBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1183
      or:[ canvasType == #multipleMethodWithInfoBrowserSpec ]]]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1184
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1185
    "Modified: / 1.3.2000 / 13:35:12 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1186
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
isMethodListBrowser
6674
69972110f18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6613
diff changeset
  1189
    canvasType == #methodListBrowserSpec ifTrue:[^ true].
69972110f18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6613
diff changeset
  1190
    canvasType == #multipleMethodBrowserSpec ifTrue:[^ true].
69972110f18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6613
diff changeset
  1191
    canvasType == #singleProtocolBrowserSpec ifTrue:[^ true].
69972110f18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6613
diff changeset
  1192
    ^ false.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
isNameSpaceBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1196
    ^ canvasType == #singleNameSpaceBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1197
      or:[ canvasType == #multipleNameSpaceBrowserSpec]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1198
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1199
    "Modified: / 18.8.2000 / 16:12:34 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1200
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1201
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1202
isNameSpaceFullBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1203
    ^ canvasType == #singleNameSpaceFullBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1204
      or:[ canvasType == #multipleNameSpaceFullBrowserSpec ]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1205
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1206
    "Created: / 18.8.2000 / 14:58:36 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1207
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1208
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1209
isProjectBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1210
    ^ canvasType == #singleProjectBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1211
      or:[ canvasType == #multipleProjectBrowserSpec ]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1212
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1213
    "Created: / 24.2.2000 / 21:32:09 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1214
    "Modified: / 25.2.2000 / 03:11:00 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1215
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1216
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1217
isProjectFullBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1218
    ^ canvasType == #singleProjectFullBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1219
      or:[ canvasType == #multipleProjectFullBrowserSpec ]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1220
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1221
    "Created: / 18.8.2000 / 19:02:49 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1222
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1223
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1224
isProtocolBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1225
    ^ canvasType == #singleProtocolBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1226
      or:[ canvasType == #multipleProtocolBrowserSpec ]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1227
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1228
    "Created: / 24.2.2000 / 21:32:09 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1229
    "Modified: / 25.2.2000 / 03:11:00 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1230
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1231
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1232
isProtocolOrFullProtocolBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1233
    ^ self isProtocolBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1234
      or:[ self isFullProtocolBrowser ]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1235
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1237
isSingleCategoryBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1238
    ^ canvasType == #singleCategoryBrowserSpec    
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1239
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1240
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1241
isSingleClassBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1242
    ^ canvasType == #singleClassBrowserSpec    
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1243
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1244
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1245
isSingleFullProtocolBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1246
    ^ canvasType == #singleFullProtocolBrowserSpec    
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1247
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1248
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1249
isSingleMethodBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1250
    ^ canvasType == #singleMethodBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1251
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1252
    "Created: / 1.3.2000 / 13:35:52 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1253
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1254
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1255
isSingleNamespaceBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1256
    ^ canvasType == #singleNameSpaceBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1257
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1258
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1259
isSingleNamespaceFullBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1260
    ^ canvasType == #singleNameSpaceFullBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1261
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1262
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1263
isSingleProjectBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1264
    ^ canvasType == #singleProjectBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1265
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1266
    "Created: / 24.2.2000 / 21:32:09 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1267
    "Modified: / 25.2.2000 / 03:11:00 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1268
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1269
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1270
isSingleProjectFullBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1271
    ^ canvasType == #singleProjectFullBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1272
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1273
    "Created: / 24.2.2000 / 21:32:09 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1274
    "Modified: / 25.2.2000 / 03:11:00 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1275
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1276
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1277
isSingleProtocolBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1278
    ^ canvasType == #singleProtocolBrowserSpec    
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1279
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1280
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1281
isVersionDiffBrowser
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1282
    ^ canvasType == #multipleClassRepositoryDiffBrowserSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1283
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1284
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1285
!NavigationState class methodsFor:'documentation'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1286
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1287
version
8744
2ad1b8a365db special editor stuff
Claus Gittinger <cg@exept.de>
parents: 8547
diff changeset
  1288
    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.28 2009-09-21 20:47:21 cg Exp $'
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1289
! !