SystemBrowser.st
author Claus Gittinger <cg@exept.de>
Wed, 06 Dec 2000 15:27:34 +0100
changeset 2880 ef6fcc02a924
parent 2846 b332c41c3daa
child 2882 2a12342fef79
permissions -rw-r--r--
give user a chance to suppress the annoying package-change-keep warn dialog
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
     1
"
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
     2
 COPYRIGHT (c) 1989 by Claus Gittinger
45
950b84ba89e6 *** empty log message ***
claus
parents: 41
diff changeset
     3
	      All Rights Reserved
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
     4
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
    10
 hereby transferred.
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
    11
"
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
    12
2655
9e90bbd1eb18 apropos search is now: selectors containing
Claus Gittinger <cg@exept.de>
parents: 2642
diff changeset
    13
"{ Package: 'stx:libtool' }"
9e90bbd1eb18 apropos search is now: selectors containing
Claus Gittinger <cg@exept.de>
parents: 2642
diff changeset
    14
85
d9713a3ca092 *** empty log message ***
claus
parents: 77
diff changeset
    15
ApplicationModel subclass:#SystemBrowser
2631
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
    16
	instanceVariableNames:''
2743
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
    17
	classVariableNames:'CheckForInstancesWhenRemovingClasses Icons'
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
    18
	poolDictionaries:''
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
    19
	category:'Interface-Browsers'
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
    20
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
    21
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
    22
!SystemBrowser class methodsFor:'documentation'!
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    23
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    24
copyright
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    25
"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    26
 COPYRIGHT (c) 1989 by Claus Gittinger
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    27
	      All Rights Reserved
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    28
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    29
 This software is furnished under a license and may be used
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    30
 only in accordance with the terms of that license and with the
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    32
 be provided or otherwise made available to, or used by, any
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    33
 other person.  No title to or ownership of the software is
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    34
 hereby transferred.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    35
"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    36
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    37
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    38
documentation
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    39
"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    40
    this class implements all kinds of class browsers.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    41
    Typically, it is started with 'SystemBrowser open', but there are many other 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    42
    startup messages, to launch special browsers.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    43
    See the categories 'startup' and 'special search startup' in the classes
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    44
    protocol.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    45
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    46
    Alse, see the extra document 'doc/misc/sbrowser.doc' or the HTML online doc
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    47
    for how to use the browser.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    48
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    49
    written winter 89 by claus.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    50
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    51
    Notice: SystemBrowser is currently being rewritten to be an instance
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    52
    of ApplicationModel - this transition is not yet complete and you see
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    53
    here an intermediate version. The instance variables defined here are NOT
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    54
    currently used - instead, everything is really done in the BrowserView
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    55
    which (currently) keeps the real state of the browser.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    56
    This will certainly change ...
508
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 504
diff changeset
    57
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 504
diff changeset
    58
    [author:]
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 504
diff changeset
    59
        Claus Gittinger
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 504
diff changeset
    60
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    61
"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    62
! !
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    63
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
    64
!SystemBrowser class methodsFor:'initialization'!
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    65
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    66
initialize
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    67
    "Browser configuration;
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    68
     (values can be changed from your private startup file)"
45
950b84ba89e6 *** empty log message ***
claus
parents: 41
diff changeset
    69
254
8258536e5bcf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 215
diff changeset
    70
"/    self classResources.
85
d9713a3ca092 *** empty log message ***
claus
parents: 77
diff changeset
    71
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    72
    "
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    73
     setting this to false, the removeClass function will remove
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    74
     classes WITHOUT checking for instances. Otherwise,
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    75
     it will check and let you confirm in case there are instances.
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    76
     Checking for instances may be a bit time consuming, though.
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    77
     The default is true - therefore, it will check
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    78
    "
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    79
    CheckForInstancesWhenRemovingClasses := true
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    80
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    81
    "
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    82
     CheckForInstancesWhenRemovingClasses := true
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    83
     CheckForInstancesWhenRemovingClasses := false
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    84
85
d9713a3ca092 *** empty log message ***
claus
parents: 77
diff changeset
    85
     SystemBrowser initialize
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    86
    "
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    87
! !
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
    88
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
    89
!SystemBrowser class methodsFor:'instance creation'!
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
    90
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    91
open
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    92
    "launch a standard browser"
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    93
2631
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
    94
    self == SystemBrowser ifFalse:[
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
    95
        ^ super open
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
    96
    ].
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
    97
105
claus
parents: 100
diff changeset
    98
    ^ self openOnDevice:(Screen current) 
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
    99
93
claus
parents: 90
diff changeset
   100
    "
claus
parents: 90
diff changeset
   101
     SystemBrowser open
claus
parents: 90
diff changeset
   102
    "
194
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   103
!
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   104
523
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   105
openInClass:aClass
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   106
    "launch a standard browser which immediately switches
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   107
     to aClass"
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   108
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   109
    ^ self openInClass:aClass selector:nil
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   110
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   111
    "
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   112
     SystemBrowser openInClass:Object
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   113
    "
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   114
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   115
    "Created: 30.4.1996 / 14:43:45 / cg"
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   116
!
db2c1ad12524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   117
194
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   118
openInClass:aClass selector:aSelector
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   119
    "launch a standard browser which immediately switches
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   120
     to aClass>>aSelector."
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   121
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   122
    |brwsr cls|
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   123
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   124
    brwsr := self openOnDevice:(Screen current).
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   125
    brwsr waitUntilVisible.
1561
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   126
194
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   127
    cls := aClass.
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   128
    cls notNil ifTrue:[
1561
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   129
        cls isMeta ifTrue:[
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   130
            cls := aClass soleInstance
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   131
        ].
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   132
        aClass isMeta ifTrue:[
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   133
            brwsr instanceProtocol:false
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   134
        ].
1931
03de5c5f4402 care for javaClass in #openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 1919
diff changeset
   135
        aClass isJavaClass ifTrue:[
03de5c5f4402 care for javaClass in #openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 1919
diff changeset
   136
            brwsr switchToClassNamed:aClass fullName. 
03de5c5f4402 care for javaClass in #openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 1919
diff changeset
   137
        ] ifFalse:[
03de5c5f4402 care for javaClass in #openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 1919
diff changeset
   138
            brwsr switchToClassNamed:aClass name. 
03de5c5f4402 care for javaClass in #openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 1919
diff changeset
   139
        ].
1561
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   140
"/        brwsr updateClassCategoryList.
1681
b209bdfbf762 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   141
1561
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   142
"/        brwsr updateMethodCategoryList.
1681
b209bdfbf762 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   143
"/        brwsr updateVariableList.
b209bdfbf762 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   144
        brwsr classSelectionChanged.
1561
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   145
        aSelector notNil ifTrue:[
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   146
            brwsr switchToMethodNamed:aSelector.
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   147
        ]
194
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   148
    ].
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   149
    ^ brwsr
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   150
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   151
    "
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   152
     SystemBrowser openInClass:Object selector:#at:put:
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   153
     SystemBrowser openInClass:Object selector:nil
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   154
     SystemBrowser openInClass:nil selector:nil
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   155
    "
93155825c7a0 added openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
   156
1561
102b90f99e58 avoid double-redraw
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   157
    "Created: / 22.11.1995 / 21:04:50 / cg"
1931
03de5c5f4402 care for javaClass in #openInClass:selector:
Claus Gittinger <cg@exept.de>
parents: 1919
diff changeset
   158
    "Modified: / 14.10.1998 / 15:31:52 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   159
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   160
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   161
openOnDevice:aDisplay
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   162
    "launch a standard browser on another display."
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   163
2631
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
   164
    self == SystemBrowser ifFalse:[
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
   165
        ^ super openOnDevice:aDisplay
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
   166
    ].
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
   167
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   168
    ^ self newWithLabel:(self classResources string:'System Browser')
2631
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
   169
             setupBlock:[:browser | browser setupForAll]
bd18074649ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2623
diff changeset
   170
              onDevice:aDisplay
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   171
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   172
    "|d|
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   173
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   174
     d := XWorkstation new initializeFor:'porty:0'.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   175
     d startDispatch.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   176
     SystemBrowser openOnDevice:d
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   177
    "
2818
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   178
!
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   179
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   180
openOnSnapShotImage:anImageFileName
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   181
    |environment browser|
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   182
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   183
    environment := SnapShotImage for:anImageFileName.
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   184
    browser := self 
2824
85795055a3bf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2822
diff changeset
   185
                newWithLabel:(self classResources string:'Image Browser - %1' with:anImageFileName asFilename baseName)
2818
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   186
                setupBlock:[:browser | browser environment:environment.
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   187
                                       browser setupForAll]
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   188
                onDevice:(Screen current).
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   189
27ff722f6c45 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2813
diff changeset
   190
    "
2822
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
   191
     SystemBrowser openOnSnapShotImage:('/tmp/stmeas.img')
2824
85795055a3bf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2822
diff changeset
   192
    "
85795055a3bf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2822
diff changeset
   193
! !
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   194
2551
53ad33c2879a category renamining
Claus Gittinger <cg@exept.de>
parents: 2484
diff changeset
   195
!SystemBrowser class methodsFor:'Compatibility - ST80'!
1356
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
   196
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
   197
newOnClass:aClass
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
   198
    ^ self browseClass:aClass
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
   199
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
   200
    "Created: / 27.10.1997 / 20:10:39 / cg"
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
   201
! !
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
   202
2692
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   203
!SystemBrowser class methodsFor:'image specs'!
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   204
2748
80829f5a575d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2743
diff changeset
   205
abstractMethodIcon
80829f5a575d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2743
diff changeset
   206
    <resource: #programImage>
80829f5a575d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2743
diff changeset
   207
80829f5a575d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2743
diff changeset
   208
    ^ self padLockGrayMiniIcon
80829f5a575d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2743
diff changeset
   209
!
80829f5a575d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2743
diff changeset
   210
2743
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   211
canvasIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   212
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   213
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   214
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   215
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   216
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   217
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   218
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   219
     ImageEditor openOnClass:self andSelector:#canvasIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   220
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   221
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   222
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   223
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   224
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   225
        constantNamed:#'SystemBrowser canvasIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   226
        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@.;.;.;.0@@@@@@@@@@C.;/C.;/@@9&XP9&XP@NY&DNY&D@C&Y!!C&Y!!@@9&XP9&XP@NY&DNY&D@C1DQC1DQ@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   227
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   228
2692
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   229
defaultIcon
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   230
    "This resource specification was automatically generated
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   231
     by the ImageEditor of ST/X."
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   232
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   233
    "Do not manually edit this!! If it is corrupted,
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   234
     the ImageEditor may not be able to read the specification."
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   235
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   236
    "
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   237
     self defaultIcon inspect
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   238
     ImageEditor openOnClass:self andSelector:#defaultIcon
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   239
    "
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   240
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   241
    <resource: #image>
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   242
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   243
    ^Icon
2743
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   244
        constantNamed:#'SystemBrowser defaultIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   245
        ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   246
@@@@@@@@@@@@@@@@@@@FY&Y&Y&X0@@@@@@@@@@YDQDQDQB@@@@@@@@@@A$QDQDQDH@@@@@@@@@@CH"H"H"H @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   247
@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@Y&Y&Y&X0@@@@A H"H"A!!DQDQDR@@@@@@@@@@@CH"H"H"H@@@@@H@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   248
@@@@@@@ @@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@Y&Y&Y&X0@@@@A H"H"A%UUUUUR@@@@@@@@@@@CH"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   249
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@B@B@ @@H@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   250
@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@H@@ @@@@Hb') ; colorMapFromArray:#[0 0 0 0 255 0 127 127 127 170 170 170 255 0 0 255 255 0 255 255 255]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   251
??0@@O?<@@C??@@@??0@@O?<@@C??@@@@ @@@@H@@@@B@?? A0O?8@_??>@G@?? @ O?8@H@@@@B@?? A0O?8@_??>@G@?? @@O?8@@@@@@@@@@@9O\7\IRT
2846
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   252
QDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a') ; yourself); yourself]
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   253
!
2743
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   254
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   255
fileImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   256
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   257
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   258
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   259
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   260
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   261
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   262
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   263
     self fileImageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   264
     ImageEditor openOnClass:self andSelector:#fileImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   265
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   266
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   267
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   268
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   269
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   270
        constantNamed:#'SystemBrowser fileImageIcon'
2846
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   271
        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@H"H"H"@@@BQBH!!D"@@@$P"HQH"@@H"H"DQH @BH"HQDRH@@"H"DQH"@@L3L3DSL0@CL3L1D3L@@3L3L3L3@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 51 153 153 51 255 255 255 153 0 255 255 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?<C?8O?0??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   272
!
2743
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   273
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   274
greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   275
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   276
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   277
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   278
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   279
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   280
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   281
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   282
     self greenLockIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   283
     ImageEditor openOnClass:self andSelector:#greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   284
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   285
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   286
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   287
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   288
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   289
        constantNamed:#'SystemBrowser greenLockIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   290
        ifAbsentPut:[(Depth2Image new) width: 9; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@<@@CC@@CC@@O?0@O?0@O30@O30@O30@OC0@C?@@@@@@') ; colorMapFromArray:#[0 0 0 0 0 0 0 0 0 0 255 0]; mask:((Depth1Image new) width: 9; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'F@@$@BP@_ A>@G8@_ A>@G8@O@@@@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   291
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   292
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   293
helpIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   294
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   295
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   296
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   297
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   298
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   299
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   300
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   301
     self helpIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   302
     ImageEditor openOnClass:self andSelector:#helpIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   303
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   304
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   305
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   306
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   307
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   308
        constantNamed:#'SystemBrowser helpIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   309
        ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A?<G#0]7A?\G;0__A?<G72_?@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   310
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   311
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   312
hierarchicalListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   313
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   314
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   315
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   316
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   317
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   318
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   319
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   320
     ImageEditor openOnClass:self andSelector:#hierarchicalListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   321
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   322
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   323
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   324
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   325
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   326
        constantNamed:#'SystemBrowser hierarchicalListIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   327
        ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@NAUUU0@R??8@GO?>@A0@C @\??88G@@N@A3?? @^@@8@N***@@@@@C b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   328
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   329
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   330
imageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   331
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   332
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   333
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   334
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   335
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   336
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   337
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   338
     self imageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   339
     ImageEditor openOnClass:self andSelector:#imageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   340
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   341
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   342
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   343
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   344
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   345
        constantNamed:#'SystemBrowser imageIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   346
        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@H"H"H"H @BQBH!!D"H@@$P"HQH"@@H"H"DQH @BH"HQDRH@@"H"DQH"@@L3L3DSL0@CL3L1D3L@@3L3L3L3@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 51 153 153 51 255 255 255 153 0 255 255 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   347
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   348
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   349
menuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   350
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   351
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   352
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   353
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   354
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   355
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   356
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   357
     self menuIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   358
     ImageEditor openOnClass:self andSelector:#menuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   359
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   360
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   361
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   362
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   363
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   364
        constantNamed:#'SystemBrowser menuIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   365
        ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@B***P@%UUT@@@@@@B***P@%UUT@@@@@@B***P@%UUT@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 170 170 170 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8?? @@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   366
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   367
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   368
nameSpaceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   369
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   370
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   371
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   372
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   373
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   374
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   375
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   376
     self nameSpaceIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   377
     ImageEditor openOnClass:self andSelector:#nameSpaceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   378
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   379
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   380
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   381
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   382
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   383
        constantNamed:#'SystemBrowser nameSpaceIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   384
        ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   385
A@PDA@@DA@PDA@PDA@PDA@PDA@P@@@@@A@PDA@PDA@PDA@P@@@@@@@PDA@PDA@PDA@P@@@@@@@@DA@@@@@@DA@PB@@LC@0D@@@@C@0LC@@HD@ @C@0DA@P@A
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   386
@0LC@0@BA@H@@0DA@PD@@PLC@0L@@ PB@@LA@PDA@@DA@0LC@@HD@ @C@PDA@P@A@PLC@0@B@@H@@0DA@PD@@PDC@0L@@ @B@@LA@PDA@@DA@PLC@@H@@ @A
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   387
@PDA@P@A@PDC@0@B@@@B@@DA@PD@@PDA@P@B@@@@@@H@@@DA@@DA@@@B@@@D@@@@@ H@@@@@@@HBA@PDA@PDA@PD@ HB@ HDA@PDA@@a') ; colorMapFromArray:#[0 0 0 194 194 194 190 190 0 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@G#1??7??_?=??7??_?=??7??O?8_?@?8@>@b') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   388
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   389
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   390
packageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   391
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   392
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   393
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   394
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   395
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   396
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   397
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   398
     self packageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   399
     ImageEditor openOnClass:self andSelector:#packageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   400
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   401
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   402
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   403
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   404
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   405
        constantNamed:#'SystemBrowser packageIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   406
        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   407
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   408
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   409
padLockBlueMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   410
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   411
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   412
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   413
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   414
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   415
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   416
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   417
     self padLockBlueMiniIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   418
     ImageEditor openOnClass:self andSelector:#padLockBlueMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   419
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   420
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   421
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   422
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   423
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   424
        constantNamed:#'SystemBrowser padLockBlueMiniIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   425
        ifAbsentPut:[(Depth2Image new) width: 12; height: 12; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?0C??F$?<TEO<S1O<@@O2**#2UUS2TES2VES2UUS<@@O????') ; colorMapFromArray:#[0 0 0 128 128 255 212 212 255 255 255 255]; mask:((Depth1Image new) width: 12; height: 12; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   426
C0@_ C?@N\@?0G? _>A?8G? _>@?0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   427
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   428
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   429
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   430
padLockGrayMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   431
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   432
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   433
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   434
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   435
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   436
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   437
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   438
     self padLockGrayMiniIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   439
     ImageEditor openOnClass:self andSelector:#padLockGrayMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   440
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   441
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   442
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   443
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   444
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   445
        constantNamed:#'SystemBrowser padLockGrayMiniIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   446
        ifAbsentPut:[(Depth2Image new) width: 12; height: 12; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?0C??F$?<TEO<S1O<@@O2**#2UUS2TES2VES2UUS<@@O????') ; colorMapFromArray:#[0 0 0 128 128 128 212 212 212 255 255 255]; mask:((Depth1Image new) width: 12; height: 12; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   447
C0@_ C?@N\@?0G? _>A?8G? _>@?0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   448
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   449
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   450
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   451
padLockGreenMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   452
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   453
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   454
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   455
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   456
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   457
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   458
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   459
     self padLockGreenMiniIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   460
     ImageEditor openOnClass:self andSelector:#padLockGreenMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   461
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   462
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   463
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   464
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   465
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   466
        constantNamed:#'SystemBrowser padLockGreenMiniIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   467
        ifAbsentPut:[(Depth2Image new) width: 12; height: 12; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?0C??F$?<TEO<S1O<@@O2**#2UUS2TES2VES2UUS<@@O????') ; colorMapFromArray:#[0 0 0 128 255 128 212 255 212 255 255 255]; mask:((Depth1Image new) width: 12; height: 12; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   468
C0@_ C?@N\@?0G? _>A?8G? _>@?0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   469
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   470
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   471
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   472
padLockRedMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   473
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   474
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   475
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   476
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   477
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   478
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   479
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   480
     self padLockRedMiniIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   481
     ImageEditor openOnClass:self andSelector:#padLockRedMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   482
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   483
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   484
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   485
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   486
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   487
        constantNamed:#'SystemBrowser padLockRedMiniIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   488
        ifAbsentPut:[(Depth2Image new) width: 12; height: 12; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?0C??F$?<TEO<S1O<@@O2**#2UUS2TES2VES2UUS<@@O????') ; colorMapFromArray:#[0 0 0 255 128 128 255 212 212 255 255 255]; mask:((Depth1Image new) width: 12; height: 12; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   489
C0@_ C?@N\@?0G? _>A?8G? _>@?0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   490
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   491
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   492
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   493
privateMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   494
    <resource: #programImage>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   495
2748
80829f5a575d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2743
diff changeset
   496
    ^ self padLockRedMiniIcon
2743
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   497
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   498
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   499
programImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   500
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   501
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   502
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   503
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   504
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   505
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   506
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   507
     self programImageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   508
     ImageEditor openOnClass:self andSelector:#programImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   509
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   510
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   511
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   512
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   513
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   514
        constantNamed:#'SystemBrowser programImageIcon'
2846
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   515
        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@H"H"H"H @BQBH!!D"H@@$P"HQH"@@H"H"DQH @BH"HQDRH@@"H"DQH"@@L3L3DSL0@CL3L1D3L@@3L3L3L3@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 25 77 77 51 255 255 128 128 0 128 77 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   516
!
2743
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   517
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   518
programMenuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   519
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   520
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   521
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   522
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   523
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   524
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   525
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   526
     self programMenuIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   527
     ImageEditor openOnClass:self andSelector:#programMenuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   528
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   529
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   530
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   531
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   532
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   533
        constantNamed:#'SystemBrowser programMenuIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   534
        ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A?<G?0@@A?<G?0@@A?<G?3@@@@@@@a') ; colorMapFromArray:#[0 0 0 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8?? @@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   535
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   536
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   537
protectedMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   538
    <resource: #programImage>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   539
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   540
    ^ self padLockGreenMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   541
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   542
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   543
redLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   544
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   545
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   546
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   547
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   548
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   549
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   550
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   551
     self redLockIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   552
     ImageEditor openOnClass:self andSelector:#redLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   553
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   554
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   555
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   556
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   557
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   558
        constantNamed:#'SystemBrowser redLockIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   559
        ifAbsentPut:[(Depth2Image new) width: 9; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@T@@AA@@AA@@EUP@EUP@EQP@EQP@EQP@EAP@AU@@@@@@') ; colorMapFromArray:#[0 0 0 255 0 0]; mask:((Depth1Image new) width: 9; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'F@@$@BP@_ A>@G8@_ A>@G8@O@@@@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   560
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   561
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   562
stopIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   563
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   564
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   565
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   566
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   567
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   568
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   569
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   570
     self stopIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   571
     ImageEditor openOnClass:self andSelector:#stopIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   572
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   573
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   574
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   575
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   576
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   577
        constantNamed:#'SystemBrowser stopIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   578
        ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@N@@8@C @N@@P@@@@N@@8@A@@@@@@a') ; colorMapFromArray:#[255 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G0@? G?@?>C?8O? ?>C?8G?@O8@_@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   579
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   580
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   581
tabListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   582
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   583
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   584
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   585
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   586
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   587
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   588
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   589
     self tabListIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   590
     ImageEditor openOnClass:self andSelector:#tabListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   591
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   592
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   593
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   594
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   595
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   596
        constantNamed:#'SystemBrowser tabListIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   597
        ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@D3!!QP@@8TT@@N@@J@C***P@:**$AN**)@C***P@:**$@IUUUB @@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?8C?0O?0??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   598
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   599
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   600
tableColumnsIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   601
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   602
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   603
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   604
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   605
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   606
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   607
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   608
     self tableColumnsIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   609
     ImageEditor openOnClass:self andSelector:#tableColumnsIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   610
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   611
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   612
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   613
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   614
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   615
        constantNamed:#'SystemBrowser tableColumnsIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   616
        ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C??? @8(($@L@@AHC"""R@0@@D@NJJI@C@@@P@8(($@IUUU@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   617
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   618
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   619
timeIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   620
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   621
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   622
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   623
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   624
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   625
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   626
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   627
     self timeIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   628
     ImageEditor openOnClass:self andSelector:#timeIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   629
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   630
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   631
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   632
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   633
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   634
        constantNamed:#'SystemBrowser timeIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   635
        ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@G@A7@G\@=8C0 O>@_0A?@A0@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A0@_0C? O>A?<G?0_?@?8C? G<@G@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   636
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   637
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   638
traceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   639
    "This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   640
     by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   641
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   642
    "Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   643
     the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   644
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   645
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   646
     self traceIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   647
     ImageEditor openOnClass:self andSelector:#traceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   648
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   649
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   650
    <resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   651
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   652
    ^Icon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   653
        constantNamed:#'SystemBrowser traceIcon'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   654
        ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@>@C8@G@@\@@ @B@@@@@@@@@@@a') ; colorMapFromArray:#[255 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?A?<C? O>@_0A?@C8@O @\@A0@B@@@a') ; yourself); yourself]
2830
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   655
!
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   656
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   657
visualStartableClassIcon
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   658
    "This resource specification was automatically generated
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   659
     by the ImageEditor of ST/X."
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   660
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   661
    "Do not manually edit this!! If it is corrupted,
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   662
     the ImageEditor may not be able to read the specification."
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   663
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   664
    "
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   665
     self visualStartableClassIcon inspect
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   666
     ImageEditor openOnClass:self andSelector:#visualStartableClassIcon
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   667
    "
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   668
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   669
    <resource: #image>
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   670
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   671
    ^Icon
36dee112c780 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2828
diff changeset
   672
        constantNamed:#'SystemBrowser visualStartableClassIcon'
2846
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   673
        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@H@@@@@@@@B@@@@@@@@H2@@@L@@@#L2@@@@@@H#H @@@@@BL#H@@O@@@#L2@@@@@@H@@ @@@@@BQDH@@F@@@DQ@@@@@@@@@@@@@\b') ; colorMapFromArray:#[255 0 0 255 255 255 0 0 0 127 127 127 255 255 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ @B@@\@C8@O @>@C8@H @>@A0@G@@@a') ; yourself); yourself]
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   674
! !
2692
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
   675
1203
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   676
!SystemBrowser class methodsFor:'interface specs'!
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   677
1367
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   678
metaSpec
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   679
        "UIPainter new openOnClass: self andSelector: #metaSpec"
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   680
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   681
        <resource: #canvas>
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   682
        ^#(#FullSpec 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   683
                #window: 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   684
                #(#WindowSpec 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   685
                        #label: 'Unlabeled Canvas' 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   686
                        #bounds: #(#Rectangle 27 249 325 334 ) ) 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   687
                #component: 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   688
                #(#SpecCollection 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   689
                        #collection: #(
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   690
                                #(#RadioButtonSpec 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   691
                                        #layout: #(#LayoutFrame 0 0 4 0 -1 0.575 20 0 ) 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   692
                                        #name: #instanceSwitch 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   693
                                        #model: #metaHolder 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   694
                                        #callbacksSpec: 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   695
                                        #(#UIEventCallbackSubSpec 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   696
                                                #requestValueChangeSelector: #changeRequest ) 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   697
                                        #label: 'instance' 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   698
                                        #select: false ) 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   699
                                #(#RadioButtonSpec 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   700
                                        #layout: #(#LayoutFrame 1 0.575 4 0 -1 1 20 0 ) 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   701
                                        #name: #classSwitch 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   702
                                        #model: #metaHolder 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   703
                                        #callbacksSpec: 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   704
                                        #(#UIEventCallbackSubSpec 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   705
                                                #requestValueChangeSelector: #changeRequest ) 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   706
                                        #label: 'class' 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   707
                                        #select: true ) ) ) )
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   708
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   709
    "Created: / 30.10.1997 / 19:07:29 / cg"
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   710
!
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
   711
1203
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   712
methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   713
    "this window spec was automatically generated by the ST/X UIPainter"
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   714
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   715
    "do not manually edit this - the painter/builder may not be able to
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   716
     handle the specification if its corrupted."
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   717
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   718
    "
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   719
     UIPainter new openOnClass:SystemBrowser andSelector:#methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   720
     SystemBrowser new openDialogInterface:#methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   721
    "
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   722
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   723
    <resource: #canvas>
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   724
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   725
    ^
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   726
     
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   727
       #(#FullSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   728
          #'window:' 
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   729
           #(#WindowSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   730
              #'name:' 'uIPainterView'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   731
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   732
              #'label:' 'move method'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   733
              #'bounds:' #(#Rectangle 0 0 279 118)
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   734
          )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   735
          #'component:' 
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   736
           #(#SpecCollection
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   737
              #'collection:' 
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   738
               #(
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   739
                 #(#HorizontalPanelViewSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   740
                    #'name:' 'horizontalPanelView'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   741
                    #'layout:' #(#LayoutFrame 0 0.0 -35 1.0 0 1.0 -2 1.0)
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   742
                    #'component:' 
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   743
                     #(#SpecCollection
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   744
                        #'collection:' 
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   745
                         #(
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   746
                           #(#ActionButtonSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   747
                              #'name:' 'actionButton2'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   748
                              #'label:' 'cancel'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   749
                              #'tabable:' true
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   750
                              #'model:' #cancel
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   751
                              #'extent:' #(#Point 133 27)
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   752
                          )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   753
                           #(#ActionButtonSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   754
                              #'name:' 'actionButton1'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   755
                              #'label:' 'move'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   756
                              #'tabable:' true
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   757
                              #'isDefault:' true
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   758
                              #'model:' #accept
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   759
                              #'extent:' #(#Point 134 27)
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   760
                          )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   761
                        )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   762
                    )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   763
                    #'level:' 0
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   764
                    #'horizontalLayout:' #fitSpace
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   765
                    #'verticalLayout:' #center
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   766
                    #'horizontalSpace:' 4
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   767
                    #'verticalSpace:' 4
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   768
                )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   769
                 #(#LabelSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   770
                    #'name:' 'label'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   771
                    #'layout:' #(#LayoutFrame 2 0 2 0 -2 1.0 25 0)
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   772
                    #'label:' 'move current method to which class:'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   773
                    #'style:' 
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   774
                     #(#Font
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   775
                        'helvetica' 'medium'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   776
                        'roman' 12
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   777
                    )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   778
                    #'foregroundColor:' #(#Color 0.0 0.0 0.0)
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   779
                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   780
                    #'adjust:' #left
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   781
                )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   782
                 #(#ComboBoxSpec
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   783
                    #'name:' 'comboBox1'
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   784
                    #'layout:' #(#LayoutFrame 2 0 29 0 -2 1.0 51 0)
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   785
                    #'tabable:' true
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   786
                    #'model:' #className
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   787
                    #'comboList:' #classList
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   788
                )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   789
              )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   790
          )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   791
      )
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   792
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   793
    "Created: 25.6.1997 / 13:45:20 / cg"
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   794
    "Modified: 25.6.1997 / 13:46:44 / cg"
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   795
! !
ade0bcc06188 preps to use UISpecs
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
   796
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
   797
!SystemBrowser class methodsFor:'private helpers'!
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   798
2880
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   799
askForPackageChangeFrom:oldPkg to:newPkg
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   800
    |answer oldVsNew box notAgain chk|
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   801
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   802
    box := OptionBox 
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   803
                title:
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   804
('You are about to change a method from another (system-) package.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   805
The methods original packageID was ''%1''. 
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   806
If you proceed, the new method will be marked as belonging
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   807
to the ''%2'' package (and this warning will not be shown again).
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   808
If you proceed with ''keep'', the new method will be installed
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   809
but the old packageID will be preserved.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   810
Otherwise, hit ''cancel'' to leave the code unchanged.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   811
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   812
PS: if you disable this check here, it can be reenabled it in the launchers settings-compilation dialog.' 
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   813
                        bindWith:(oldPkg allBold)
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   814
                            with:(newPkg allBold))
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   815
                numberOfOptions:3.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   816
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   817
    box buttonTitles:#('cancel' 'keep' 'continue').
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   818
    box defaultButtonIndex:3. 
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   819
    box action:[:n | answer := #(#cancel #keep #continue) at:n].
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   820
    box label:'Method redefinition'; form:(WarningBox iconBitmap).
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   821
    box yPosition:(box formLabel bottom max:box textLabel bottom).
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   822
    box addVerticalSpace:10.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   823
    chk := box addCheckBox:'Dont show this dialog again (never keep)' on:(notAgain := false asValue).
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   824
    box preferredExtent:(box preferredExtent + (0 @ chk preferredExtent y) + (0@10)).
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   825
    box resize.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   826
    box showAtPointer.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   827
    box destroy.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   828
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   829
    (answer ~~ #cancel) ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   830
        notAgain value ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   831
            Class catchMethodRedefinitions:false.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   832
        ].
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   833
    ].
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   834
    ^ answer.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   835
!
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
   836
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   837
showNoneFound
1620
51341ec8360b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1573
diff changeset
   838
    super warn:(self classResources string:'None found.').
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   839
!
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   840
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   841
showNoneFound:what
1620
51341ec8360b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1573
diff changeset
   842
    |rs|
51341ec8360b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1573
diff changeset
   843
51341ec8360b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1573
diff changeset
   844
    rs := self classResources.
2398
8cefc3c21f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2295
diff changeset
   845
    super information:((rs string:what) , (rs string:'...\\... none found.')) withCRs.
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   846
! !
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   847
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
   848
!SystemBrowser class methodsFor:'private instance creation'!
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   849
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   850
newWithLabel:aString setupBlock:aBlock
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   851
    "common helper method for all creation methods"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   852
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   853
    ^ self newWithLabel:aString setupBlock:aBlock onDevice:Screen current
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   854
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   855
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   856
newWithLabel:aString setupBlock:aBlock onDevice:aWorkstation
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   857
    "common helper method for all creation methods"
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   858
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   859
    |newBrowser|
45
950b84ba89e6 *** empty log message ***
claus
parents: 41
diff changeset
   860
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   861
    newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   862
    newBrowser title:aString.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   863
    aBlock value:newBrowser.
45
950b84ba89e6 *** empty log message ***
claus
parents: 41
diff changeset
   864
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   865
    newBrowser open.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   866
    ^ newBrowser
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   867
!
45
950b84ba89e6 *** empty log message ***
claus
parents: 41
diff changeset
   868
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   869
newWithLabel:aString setupSelector:aSymbol arg:arg
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   870
    "common helper method for all creation methods"
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   871
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   872
    ^ self newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:Screen current 
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   873
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
   874
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   875
newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:aWorkstation
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   876
    "common helper method for all creation methods"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   877
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   878
    |newBrowser|
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
   879
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   880
    newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   881
    newBrowser title:aString.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   882
    newBrowser perform:aSymbol with:arg.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   883
    newBrowser open.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   884
    ^ newBrowser
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   885
! !
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   886
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
   887
!SystemBrowser class methodsFor:'special search startup'!
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
   888
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   889
allCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   890
    "return a collection of methods which send aSelector."
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   891
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   892
    ^ self 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   893
        allCallsOn:aSelectorString 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   894
        in:(Smalltalk allClasses)
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   895
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   896
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   897
     SystemBrowser allCallsOn:#at:put:
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   898
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   899
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   900
    "Created: 24.1.1997 / 19:42:57 / cg"
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   901
!
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   902
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   903
allCallsOn:aSelectorString in:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   904
    "return a collection of methods which send aSelector.
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   905
     Methods from classes in aCollectionOfClasses are searched only."
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   906
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   907
    ^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   908
        allCallsOn:aSelectorString 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   909
        in:aCollectionOfClasses 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   910
        ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   911
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   912
!
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   913
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   914
allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   915
    "return a collection of methods which send aSelector.
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   916
     Methods from classes in aCollectionOfClasses are searched only."
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   917
2846
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   918
    |sel searchBlock selMatch lcString  quickMatch|
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   919
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   920
    ((aSelectorString ~= '*') 
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   921
     and:[(aSelectorString includesMatchCharacters or:[ignoreCase])]) ifTrue:[
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   922
        "/ a matchString - need string matching procedure
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   923
2846
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   924
        ignoreCase ifTrue:[
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   925
            lcString := aSelectorString asLowercase.
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   926
        ] ifFalse:[
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   927
            lcString := aSelectorString.
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   928
        ].
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   929
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   930
        quickMatch := aSelectorString.
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   931
        (quickMatch startsWith:'*') ifTrue:[
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   932
            quickMatch := quickMatch copyFrom:2
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   933
        ].
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   934
        (quickMatch endsWith:'*') ifTrue:[
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   935
            quickMatch := quickMatch copyWithoutLast:1
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   936
        ].
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   937
        (quickMatch includes:$:) ifTrue:[
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   938
            quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   939
        ].
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   940
        searchBlock := [:class :method :s |
2846
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   941
                            |src|
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   942
2770
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   943
                            (ignoreCase not and:[quickMatch includesMatchCharacters not]) ifTrue:[
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   944
                                "/ do quick search first
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   945
                                method isLazyMethod ifTrue:[
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   946
                                    src := method source.
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   947
                                    (src notNil 
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   948
                                    and:[src includesString:quickMatch]) ifTrue:[
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   949
                                        method makeRealMethod.
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   950
                                        (method literalsDetect:[:aLiteral|
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   951
                                            (aLiteral isMemberOf:Symbol) 
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   952
                                              and:[(lcString includesString:quickMatch)
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   953
                                              and:[(lcString match:aLiteral)]]
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   954
                                        ] ifNone:nil) notNil
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   955
                                    ] ifFalse:[
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   956
                                        false
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   957
                                    ]
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   958
                                ] ifFalse:[
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   959
                                    (method literalsDetect:[:aLiteral|
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   960
                                        (aLiteral isMemberOf:Symbol) 
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   961
                                          and:[(lcString includesString:quickMatch)
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   962
                                          and:[(lcString match:aLiteral)]]
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   963
                                    ] ifNone:nil) notNil
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   964
                                ]
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   965
                            ] ifFalse:[
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   966
                                "/ expensive search
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   967
                                method isLazyMethod ifTrue:[
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   968
                                    src := method source.
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   969
                                    (src notNil and:[src includesMatchString:aSelectorString]) ifTrue:[
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   970
                                        method makeRealMethod.
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   971
                                        (method literalsDetect:[:aLiteral|
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   972
                                            (aLiteral isMemberOf:Symbol) 
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   973
                                              and:[(ignoreCase and:[lcString match:aLiteral asLowercase])
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   974
                                                   or:[ignoreCase not and:[lcString match:aLiteral]]]
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   975
                                        ] ifNone:nil) notNil
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   976
                                    ] ifFalse:[
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   977
                                        false
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   978
                                    ]
da09dbcf45f8 mutch faster searching for senders of *foo*
Claus Gittinger <cg@exept.de>
parents: 2769
diff changeset
   979
                                ] ifFalse:[
1143
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
   980
                                    (method literalsDetect:[:aLiteral|
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
   981
                                        (aLiteral isMemberOf:Symbol) 
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   982
                                          and:[(ignoreCase and:[lcString match:aLiteral asLowercase])
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
   983
                                               or:[ignoreCase not and:[lcString match:aLiteral]]]
1143
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
   984
                                    ] ifNone:nil) notNil
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
   985
                                ]
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
   986
                            ]
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   987
                       ].
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   988
    ] ifFalse:[
1018
7c620027fa4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 996
diff changeset
   989
        (aSelectorString = '*') ifTrue:[
7c620027fa4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 996
diff changeset
   990
            searchBlock := [:class :method :s | true].
7c620027fa4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 996
diff changeset
   991
        ] ifFalse:[
7c620027fa4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 996
diff changeset
   992
            "/ no matchString - can do it much faster
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
   993
1018
7c620027fa4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 996
diff changeset
   994
            sel := aSelectorString asSymbolIfInterned.
7c620027fa4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 996
diff changeset
   995
            sel isNil ifTrue:[
7c620027fa4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 996
diff changeset
   996
                ^ nil     "/ none
7c620027fa4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 996
diff changeset
   997
            ].
2846
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   998
            quickMatch := sel.
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
   999
            (quickMatch includes:$:) ifTrue:[
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
  1000
                quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
  1001
            ].
2208
e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available)
Claus Gittinger <cg@exept.de>
parents: 1937
diff changeset
  1002
            searchBlock := [:class :method :s |
e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available)
Claus Gittinger <cg@exept.de>
parents: 1937
diff changeset
  1003
                                |src|
e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available)
Claus Gittinger <cg@exept.de>
parents: 1937
diff changeset
  1004
1059
918deae4d1c7 care for lazy methods when searching senders
Claus Gittinger <cg@exept.de>
parents: 1036
diff changeset
  1005
                                method isLazyMethod ifTrue:[
2208
e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available)
Claus Gittinger <cg@exept.de>
parents: 1937
diff changeset
  1006
                                    src := method source.
2846
b332c41c3daa allCallsOn fix
Claus Gittinger <cg@exept.de>
parents: 2830
diff changeset
  1007
                                    (src notNil and:[src includesString:quickMatch]) ifTrue:[
1143
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  1008
                                        method makeRealMethod.
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  1009
                                        method sends:sel.
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  1010
                                    ] ifFalse:[
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  1011
                                        false
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  1012
                                    ]
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  1013
                                ] ifFalse:[
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  1014
                                    method sends:sel
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  1015
                                ]
1059
918deae4d1c7 care for lazy methods when searching senders
Claus Gittinger <cg@exept.de>
parents: 1036
diff changeset
  1016
                           ].
1018
7c620027fa4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 996
diff changeset
  1017
        ]
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1018
    ].
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1019
    ^ self allMethodsIn:aCollectionOfClasses where:searchBlock
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1020
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1021
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1022
     SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1023
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1024
1143
0707461e582a avoid compilation of lazy methods when searching for senders
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  1025
    "Modified: 18.4.1997 / 10:32:50 / cg"
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1026
!
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1027
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1028
allMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1029
    "return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1030
     wantInst/wantClass control if instMethods and/or classMethods are to be
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1031
     considered.
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1032
     Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1033
2769
768b6aa2fb5f eliminated a message
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
  1034
    |list activePriority|
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1035
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1036
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1037
     since this may take a long time, lower my priority ...
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1038
    "
2769
768b6aa2fb5f eliminated a message
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
  1039
    activePriority := Processor activePriority.
2295
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress.
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  1040
    Processor activeProcess 
2769
768b6aa2fb5f eliminated a message
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
  1041
        withPriority:activePriority-1 to:activePriority
2295
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress.
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  1042
    do:[
2484
afd8d8dbd9e2 care vor methods being found in multiple classes
Claus Gittinger <cg@exept.de>
parents: 2439
diff changeset
  1043
        |checkedClasses checkBlock detectedMethods|
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1044
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1045
        checkedClasses := IdentitySet new.
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1046
        list := OrderedCollection new.
2484
afd8d8dbd9e2 care vor methods being found in multiple classes
Claus Gittinger <cg@exept.de>
parents: 2439
diff changeset
  1047
        detectedMethods := IdentitySet new.
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1048
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1049
        checkBlock := [:cls |
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1050
            (checkedClasses includes:cls) ifFalse:[
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1051
                cls isObsolete ifTrue:[
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1052
                    Transcript showCR:'skipping obsolete class: ' , cls displayString
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1053
                ] ifFalse:[
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1054
                    cls methodDictionary keysAndValuesDo:[:sel :method |
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1055
                        (aBlock value:cls value:method value:sel) ifTrue:[
2484
afd8d8dbd9e2 care vor methods being found in multiple classes
Claus Gittinger <cg@exept.de>
parents: 2439
diff changeset
  1056
                            "/ care for methods being in multiple classes (should not happen)
afd8d8dbd9e2 care vor methods being found in multiple classes
Claus Gittinger <cg@exept.de>
parents: 2439
diff changeset
  1057
                            (detectedMethods includes:method) ifFalse:[
afd8d8dbd9e2 care vor methods being found in multiple classes
Claus Gittinger <cg@exept.de>
parents: 2439
diff changeset
  1058
                                list add:method.
afd8d8dbd9e2 care vor methods being found in multiple classes
Claus Gittinger <cg@exept.de>
parents: 2439
diff changeset
  1059
                                detectedMethods add:method
afd8d8dbd9e2 care vor methods being found in multiple classes
Claus Gittinger <cg@exept.de>
parents: 2439
diff changeset
  1060
                            ]
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1061
                        ]
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1062
                    ].
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1063
                    checkedClasses add:cls.
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1064
                ]
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1065
            ]
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1066
        ].
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1067
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1068
        aCollectionOfClasses do:[:aClass |
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1069
            "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1070
             output disabled - it slows down things too much (when searching for
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1071
             implementors or senders)
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1072
            "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1073
            wantInst ifTrue:[
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1074
"/                Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1075
                checkBlock value:aClass
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1076
            ].
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1077
            wantClass ifTrue:[
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1078
"/                Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1079
                checkBlock value:(aClass class)
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1080
            ].
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1081
            Processor yield
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1082
        ]
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1083
    ].
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1084
    ^ list
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1085
2484
afd8d8dbd9e2 care vor methods being found in multiple classes
Claus Gittinger <cg@exept.de>
parents: 2439
diff changeset
  1086
    "Created: / 24.1.1997 / 19:41:12 / cg"
afd8d8dbd9e2 care vor methods being found in multiple classes
Claus Gittinger <cg@exept.de>
parents: 2439
diff changeset
  1087
    "Modified: / 14.12.1999 / 14:59:02 / cg"
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1088
!
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1089
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1090
allMethodsIn:aCollectionOfClasses where:aBlock
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1091
    "return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1092
     Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1093
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1094
    ^ self
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1095
        allMethodsIn:aCollectionOfClasses 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1096
        inst:true 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1097
        class:true
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1098
        where:aBlock
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1099
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1100
    "Created: 24.1.1997 / 19:41:49 / cg"
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1101
!
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1102
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1103
aproposSearch:aString
2655
9e90bbd1eb18 apropos search is now: selectors containing
Claus Gittinger <cg@exept.de>
parents: 2642
diff changeset
  1104
    "browse all methods, which have aString in their selector."
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1105
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1106
    ^ self aproposSearch:aString in:(Smalltalk allClasses)
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
  1107
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1108
!
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1109
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1110
aproposSearch:aString in:aCollectionOfClasses
2655
9e90bbd1eb18 apropos search is now: selectors containing
Claus Gittinger <cg@exept.de>
parents: 2642
diff changeset
  1111
    "browse all methods, which have aString.
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1112
     This is relatively slow, since all source must be processed."
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1113
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1114
    |matchString list s searchBlock browser|
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1115
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1116
    matchString := '*' , aString , '*'.
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1117
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1118
    list := OrderedCollection new.
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1119
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1120
    (aString includesMatchCharacters) ifTrue:[
2655
9e90bbd1eb18 apropos search is now: selectors containing
Claus Gittinger <cg@exept.de>
parents: 2642
diff changeset
  1121
        s := '*' , aString asLowercase , '*'.
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1122
        "a matchString"
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1123
        searchBlock := [:text | (text asCollectionOfLinesfindFirst:[:line | s match:line]) ~~ 0].
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1124
    ] ifFalse:[
2655
9e90bbd1eb18 apropos search is now: selectors containing
Claus Gittinger <cg@exept.de>
parents: 2642
diff changeset
  1125
        searchBlock := [:source | (source findString:aString asLowercase) ~~ 0]
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1126
    ].
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1127
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1128
    browser := self browseMethodsIn:aCollectionOfClasses 
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1129
                     where:[:class :method :sel |
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1130
                                |comment|
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1131
2655
9e90bbd1eb18 apropos search is now: selectors containing
Claus Gittinger <cg@exept.de>
parents: 2642
diff changeset
  1132
                                (searchBlock value:sel asLowercase)
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1133
                           ]
2729
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  1134
                     title:(self classResources string:'selectors containing: %1' with:aString).
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1135
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1136
    browser notNil ifTrue:[
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1137
        browser autoSearch:aString 
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1138
    ].
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1139
    ^ browser
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1140
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1141
    "
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1142
     SystemBrowser aproposSearch:'append' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1143
     SystemBrowser aproposSearch:'add'    in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1144
     SystemBrowser aproposSearch:'sort'   in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1145
     SystemBrowser aproposSearch:'[Aa]bsent' in:(Collection withAllSubclasses)
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1146
    "
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1147
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1148
    "Created: 9.12.1995 / 18:02:36 / cg"
204
6f4460d5a09d added supersend searches; offer comparing the current version with the
Claus Gittinger <cg@exept.de>
parents: 203
diff changeset
  1149
!
6f4460d5a09d added supersend searches; offer comparing the current version with the
Claus Gittinger <cg@exept.de>
parents: 203
diff changeset
  1150
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1151
browseAllCallsOn:aSelectorString
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1152
    "launch a browser for all senders of aSelector"
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1153
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1154
    ^ self 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1155
        browseAllCallsOn:aSelectorString 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1156
        in:(Smalltalk allClasses)
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1157
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1158
    "
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1159
     SystemBrowser browseAllCallsOn:#+
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1160
    "
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1161
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1162
    "Created: 9.12.1995 / 18:00:41 / cg"
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1163
    "Modified: 10.7.1996 / 10:26:15 / cg"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1164
!
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1165
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1166
browseAllCallsOn:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1167
    "launch a browser for all senders of aSelector"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1168
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1169
    ^ self
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1170
        browseAllCallsOn:aSelectorString 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1171
        in:aSetOfClasses
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1172
        title:(self classResources string:'senders of: %1' with:aSelectorString)
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1173
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1174
    "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1175
     SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1176
    "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1177
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1178
    "Created: 10.7.1996 / 10:25:49 / cg"
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1179
    "Modified: 24.1.1997 / 19:49:34 / cg"
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1180
!
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1181
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1182
browseAllCallsOn:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1183
    "launch a browser for all senders of aSelector"
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1184
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1185
    ^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1186
        browseAllCallsOn:aSelectorString 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1187
        in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1188
        ignoreCase:ignoreCase
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1189
        title:(self classResources string:'senders of: %1' with:aSelectorString)
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1190
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1191
    "
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1192
     SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1193
    "
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1194
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1195
    "Created: 10.7.1996 / 10:25:49 / cg"
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1196
    "Modified: 24.1.1997 / 19:49:34 / cg"
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1197
!
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1198
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1199
browseAllCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:title
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1200
    "launch a browser for all senders of aSelector in aCollectionOfClasses"
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1201
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1202
    |browser|
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1203
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1204
    browser := self
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1205
                browseMethods:(self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase)
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1206
                title:title.
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1207
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1208
    browser notNil ifTrue:[
648
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1209
        |s|
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1210
648
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1211
        "
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1212
         kludge for now, if its a multipart selector,
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1213
         no easy search is (as yet) possible
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1214
        "
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1215
        s := aSelectorString.
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1216
        (s includes:$:) ifTrue:[
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1217
            s := s copyTo:(s indexOf:$:)
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1218
        ].
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1219
        browser autoSearch:s 
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1220
    ].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1221
    ^ browser
648
6ec086b7972c Move method's literals form literalArray to indexed instvars.
Stefan Vogel <sv@exept.de>
parents: 634
diff changeset
  1222
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1223
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1224
     SystemBrowser
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1225
        browseAllCallsOn:#+ 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1226
        in:(Number withAllSubclasses) 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1227
        title:'just a test'
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1228
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1229
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1230
    "Modified: 24.1.1997 / 19:48:54 / cg"
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1231
!
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1232
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1233
browseAllCallsOn:aSelectorString in:aCollectionOfClasses title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1234
    "launch a browser for all senders of aSelector in aCollectionOfClasses"
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1235
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1236
    ^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1237
        browseAllCallsOn:aSelectorString 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1238
        in:aCollectionOfClasses 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1239
        ignoreCase:false 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1240
        title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1241
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1242
    "
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1243
     SystemBrowser
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1244
        browseAllCallsOn:#+ 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1245
        in:(Number withAllSubclasses) 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1246
        title:'just a test'
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1247
    "
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1248
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1249
    "Modified: 24.1.1997 / 19:48:54 / cg"
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1250
!
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1251
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1252
browseCallsOn:aSelectorString under:aClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1253
    "launch a browser for all senders of aSelector in aClass and subclasses"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1254
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1255
    ^ self 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1256
        browseAllCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1257
                      in:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1258
                   title:(self classResources 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1259
                                string:'senders of: %1 (in and below %2)'
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1260
                                with:aSelectorString 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1261
                                with:aClass name)
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1262
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1263
    "
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1264
     SystemBrowser browseCallsOn:#+ under:Number
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1265
    "
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1266
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1267
    "Created: 9.12.1995 / 17:59:57 / cg"
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  1268
    "Modified: 24.1.1997 / 19:50:33 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1269
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1270
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1271
browseClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1272
    "launch a browser for all methods in aClass where the classVar named
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1273
     aString is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1274
     classvar is modified"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1275
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1276
    ^ self browseRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1277
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1278
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1279
browseClassRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1280
    "launch a browser for all methods in aCollectionOfClasses,
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1281
     where the classVar named aString is referenced; 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1282
     if modsOnly is true, browse only methods where the classvar is modified"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1283
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1284
    ^ self browseRefsTo:varName classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1285
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1286
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1287
browseClassRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1288
    "launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1289
     where the classVar named aString is referenced; 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1290
     if modsOnly is true, browse only methods where the classvar is modified"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1291
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1292
    ^ self browseClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1293
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1294
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1295
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1296
browseForResource:aResourceSymbol containing:item in:aCollectionOfClasses title:title
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1297
    "launch a browser for all methods which have a particular (or any, ifNil)
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1298
     resource in aCollectionOfClasses.
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1299
     If aKey is nonNil, only methods which have aKey in the (any) resourceSpec
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1300
     are parsed.
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1301
     I.e. to find all methods, which access the styleSheets, use:
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1302
        browseForResource:#style containing:nil in:... title:...
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1303
     to find methods which access the 'arrowButtonDownForm' styleSheet entry, use:
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1304
        browseForResource:#style containing:'arrowButtonDownForm' in:... title:..."
573
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1305
742
2ef5e22d8983 code cleanup (unused vars eliminated)
Claus Gittinger <cg@exept.de>
parents: 675
diff changeset
  1306
    |browser searchBlock|
573
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1307
1356
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1308
    "/ search for any resource can be done without looking
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1309
    "/ at the source ...
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1310
    (aResourceSymbol isNil and:[item isNil]) ifTrue:[
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1311
        searchBlock := [:class :method :s | method hasResource]
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1312
    ] ifFalse:[
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1313
        searchBlock := [:class :method :s |
1573
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1314
                            |rsrc val found|
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1315
1356
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1316
                            found := false.
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1317
                            method hasResource ifTrue:[
1573
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1318
                                rsrc := method resources.
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1319
                                rsrc notNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1320
                                    aResourceSymbol isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1321
                                        item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1322
                                            found := true
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1323
                                        ] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1324
                                            rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1325
                                                rsrc keysAndValuesDo:[:rsrc :val |
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1326
                                                    val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1327
                                                        val do:[:v |
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1328
                                                            found := item match:v printString 
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1329
                                                        ]
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1330
                                                    ] ifFalse:[
1573
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1331
                                                        found := item match:val printString 
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1332
                                                    ]
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1333
                                                ]
1356
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1334
                                            ] ifFalse:[
1573
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1335
                                                found := item match:rsrc printString
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1336
                                            ]
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1337
                                        ]
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1338
                                    ] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1339
                                        (rsrc includesKey:aResourceSymbol) ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1340
                                            item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1341
                                                found := true
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1342
                                            ] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1343
                                                rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1344
                                                    val := rsrc at:aResourceSymbol.
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1345
                                                    val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1346
                                                        val do:[:v |
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1347
                                                            found := item match:v printString 
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1348
                                                        ]
1356
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1349
                                                    ] ifFalse:[
1573
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1350
                                                        found := item match:val printString 
1356
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1351
                                                    ]
1573
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1352
                                                ] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1353
                                                    found := item match:rsrc printString
1356
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1354
                                                ]
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1355
                                            ]
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1356
                                        ]
573
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1357
                                    ]
1356
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1358
                                ].
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1359
                            ].
1356
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1360
                            found
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1361
                       ].
0080df099c35 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1203
diff changeset
  1362
    ].
573
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1363
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1364
    browser := self browseMethodsIn:aCollectionOfClasses
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1365
                              where:searchBlock
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1366
                              title:title.
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1367
    browser notNil ifTrue:[
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1368
        browser autoSearch:'resource:' 
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1369
    ].
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1370
    ^ browser
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1371
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1372
    "
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1373
     SystemBrowser
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1374
        browseForResource:nil
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1375
        in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1376
        title:'methods with a resource'
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1377
    "
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1378
    "
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1379
     SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1380
        browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1381
        containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1382
        in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1383
        title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1384
    "
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1385
    "
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1386
     SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1387
        browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1388
        containing:'arrowButton*'
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1389
        in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1390
        title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1391
    "
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1392
1573
4b6ce12dff2b dont duplicate the code in method>>resources
Claus Gittinger <cg@exept.de>
parents: 1561
diff changeset
  1393
    "Modified: / 22.4.1998 / 10:29:20 / cg"
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1394
!
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1395
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1396
browseForResource:aResourceSymbol in:aCollectionOfClasses title:title
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1397
    "launch a browser for all methods which have a particular (or any, ifNil)
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1398
     resource in aCollectionOfClasses"
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1399
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1400
    ^ self
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1401
        browseForResource:aResourceSymbol
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1402
        containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1403
        in:aCollectionOfClasses 
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1404
        title:title
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1405
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1406
    "
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1407
     SystemBrowser
573
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1408
        browseForResource:#style
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1409
        in:Smalltalk allClasses
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1410
        title:'methods accessing styleSheet values'
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1411
    "
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1412
    "
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1413
     SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1414
        browseForResource:#keyboard
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1415
        in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1416
        title:'methods handling keyboard events'
573
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1417
    "
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1418
    "
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1419
     SystemBrowser
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1420
        browseForResource:nil
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1421
        in:Smalltalk allClasses
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1422
        title:'methods with a resource'
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1423
    "
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1424
929
a2275f1b4c94 enhanced resource search, to search for a particular
Claus Gittinger <cg@exept.de>
parents: 825
diff changeset
  1425
    "Modified: 9.1.1997 / 12:44:38 / cg"
573
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1426
!
e32bd3e46a72 added startup for searching resourceSpecs
Claus Gittinger <cg@exept.de>
parents: 553
diff changeset
  1427
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1428
browseForString:aString
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1429
    "launch a browser for all methods containing a string in their source.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1430
     This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1431
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1432
    ^ self browseForString:aString in:(Smalltalk allClasses) ignoreCase:false
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1433
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1434
    "Modified: / 18.6.1998 / 16:42:39 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1435
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1436
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1437
browseForString:aString in:aCollectionOfClasses
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1438
    "launch a browser for all methods in aCollectionOfClasses  
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1439
     containing a string in their source.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1440
     This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1441
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1442
    ^ self
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1443
        browseForString:aString 
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1444
        in:aCollectionOfClasses 
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1445
        ignoreCase:false
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1446
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1447
    "
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1448
     SystemBrowser browseForString:'all'      in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1449
     SystemBrowser browseForString:'should'   in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1450
     SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1451
    "
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1452
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1453
    "Created: / 9.12.1995 / 18:03:12 / cg"
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1454
    "Modified: / 18.6.1998 / 16:43:27 / cg"
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1455
!
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1456
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1457
browseForString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1458
    "launch a browser for all methods in aCollectionOfClasses  
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1459
     containing a string in their source.
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1460
     This may be slow, since source-code has to be scanned."
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1461
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1462
    |browser searchBlock title s|
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1463
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1464
    title := self classResources string:'methods containing: %1' with:aString displayString.
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1465
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1466
    (aString includesMatchCharacters
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1467
    or:[ignoreCase]) ifTrue:[
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1468
        s := '*' , aString , '*'.
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1469
        "a matchString"
475
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source
Claus Gittinger <cg@exept.de>
parents: 436
diff changeset
  1470
        searchBlock := [:c :m :sel | 
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source
Claus Gittinger <cg@exept.de>
parents: 436
diff changeset
  1471
                            |src|       
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source
Claus Gittinger <cg@exept.de>
parents: 436
diff changeset
  1472
                            src := m source.
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1473
                            src isNil ifTrue:[
2208
e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available)
Claus Gittinger <cg@exept.de>
parents: 1937
diff changeset
  1474
                                ('Browser [info]: no source for ' , m printString) infoPrintCR.
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1475
                                false
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1476
                            ] ifFalse:[
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1477
                                s match:src ignoreCase:ignoreCase
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1478
                            ]
475
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source
Claus Gittinger <cg@exept.de>
parents: 436
diff changeset
  1479
                       ]
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1480
    ] ifFalse:[
475
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source
Claus Gittinger <cg@exept.de>
parents: 436
diff changeset
  1481
        searchBlock := [:c :m :sel | 
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source
Claus Gittinger <cg@exept.de>
parents: 436
diff changeset
  1482
                            |src|
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source
Claus Gittinger <cg@exept.de>
parents: 436
diff changeset
  1483
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source
Claus Gittinger <cg@exept.de>
parents: 436
diff changeset
  1484
                            src := m source.
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1485
                            src isNil ifTrue:[
2208
e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available)
Claus Gittinger <cg@exept.de>
parents: 1937
diff changeset
  1486
                                ('Browser [info]: no source for ' , m printString) infoPrintCR.
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1487
                                false
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1488
                            ] ifFalse:[
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1489
                                (src findString:aString) ~~ 0
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1490
                            ]
475
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source
Claus Gittinger <cg@exept.de>
parents: 436
diff changeset
  1491
                       ]
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1492
    ].
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1493
    browser := self browseMethodsIn:aCollectionOfClasses where:searchBlock title:title.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1494
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1495
    browser notNil ifTrue:[
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1496
        browser autoSearch:aString ignoreCase:ignoreCase
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1497
    ].
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1498
    ^ browser
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1499
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1500
    "
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1501
     SystemBrowser browseForString:'all'      in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1502
     SystemBrowser browseForString:'should'   in:(Array with:Object)
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1503
     SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1504
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1505
1703
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1506
    "Created: / 18.6.1998 / 16:42:50 / cg"
ea66390f879b added ignoreCase option to string-search.
Claus Gittinger <cg@exept.de>
parents: 1681
diff changeset
  1507
    "Modified: / 18.6.1998 / 16:51:25 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1508
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1509
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1510
browseForSymbol:aSymbol
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1511
    "launch a browser for all methods referencing aSymbol"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1512
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1513
    ^ self 
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1514
        browseForSymbol:aSymbol 
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1515
        title:(self classResources string:'users of: %1' with:aSymbol) 
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1516
        warnIfNone:true
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1517
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1518
    "Created: 9.12.1995 / 18:04:34 / cg"
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1519
    "Modified: 10.7.1996 / 10:35:34 / cg"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1520
!
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1521
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1522
browseForSymbol:aSymbol in:aSetOfClasses title:title warnIfNone:doWarn
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1523
    "launch a browser for all methods referencing aSymbol"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1524
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1525
    |browser searchBlock sym|
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1526
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1527
    (aSymbol includesMatchCharacters) ifTrue:[
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1528
        "a matchString"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1529
        searchBlock := [:c :m :s |
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1530
                            (m literalsDetect:[:aLiteral|
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1531
                                (aLiteral isMemberOf:Symbol) 
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1532
                                  and:[aSymbol match:aLiteral]
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1533
                            ] ifNone:nil) notNil
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1534
                       ].
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1535
    ] ifFalse:[
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1536
        "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1537
         can do a faster search
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1538
        "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1539
        sym := aSymbol asSymbolIfInterned.
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1540
        sym isNil ifTrue:[
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1541
            self showNoneFound:title.
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1542
            ^ nil
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1543
        ].
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1544
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1545
        searchBlock := [:c :m :s |
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1546
                            (m literalsDetect:[:aLiteral|
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1547
                                (sym == aLiteral) 
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1548
                            ] ifNone:nil) notNil
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1549
                       ].
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1550
    ].
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1551
    doWarn ifFalse:[
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1552
        WarningSignal ignoreIn:[
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1553
            browser := self browseMethodsIn:aSetOfClasses where:searchBlock title:title.
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1554
        ]
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1555
    ] ifTrue:[
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1556
        browser := self browseMethodsIn:aSetOfClasses where:searchBlock title:title.
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1557
    ].
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1558
    browser notNil ifTrue:[
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1559
        browser autoSearch:aSymbol
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1560
    ].
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1561
    ^ browser
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1562
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1563
    "Modified: 24.6.1996 / 14:39:07 / stefan"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1564
    "Modified: 30.6.1996 / 16:45:25 / cg"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1565
    "Created: 10.7.1996 / 10:36:36 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1566
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1567
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1568
browseForSymbol:aSymbol in:aSetOfClasses title:title warnIfNone:doWarn searchFor:searchString
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1569
    "launch a browser for all methods referencing aSymbol"
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1570
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1571
    |browser searchBlock sym|
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1572
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1573
    (aSymbol includesMatchCharacters) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1574
        "a matchString"
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1575
        searchBlock := [:c :m :s |
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1576
                            (m literalsDetect:[:aLiteral|
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1577
                                (aLiteral isMemberOf:Symbol) 
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1578
                                  and:[aSymbol match:aLiteral]
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1579
                            ] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1580
                       ].
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1581
    ] ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1582
        "
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1583
         can do a faster search
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1584
        "
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1585
        sym := aSymbol asSymbolIfInterned.
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1586
        sym isNil ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1587
            self showNoneFound:title.
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1588
            ^ nil
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1589
        ].
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1590
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1591
        searchBlock := [:c :m :s |
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1592
                            (m literalsDetect:[:aLiteral|
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1593
                                (sym == aLiteral) 
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1594
                            ] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1595
                       ].
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1596
    ].
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1597
    doWarn ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1598
        WarningSignal ignoreIn:[
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1599
            browser := self browseMethodsIn:aSetOfClasses where:searchBlock title:title.
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1600
        ]
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1601
    ] ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1602
        browser := self browseMethodsIn:aSetOfClasses where:searchBlock title:title.
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1603
    ].
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1604
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1605
    (browser notNil 
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1606
    and:[searchString notNil]) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1607
        browser autoSearch:searchString
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1608
    ].
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1609
    ^ browser
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1610
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1611
    "Modified: 24.6.1996 / 14:39:07 / stefan"
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1612
    "Modified: 30.6.1996 / 16:45:25 / cg"
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1613
    "Created: 31.10.1996 / 14:57:30 / cg"
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1614
!
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1615
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1616
browseForSymbol:aSymbol title:title ifNone:actionIfNoneFound searchFor:searchString
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1617
    "launch a browser for all methods referencing aSymbol"
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1618
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1619
    |browser searchBlock sym|
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1620
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1621
    (aSymbol includesMatchCharacters) ifTrue:[
375
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1622
        "a matchString"
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1623
        searchBlock := [:c :m :s |
2439
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1624
                            m referencesGlobalMatching:aSymbol
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1625
"/                            (m literalsDetect:[:aLiteral|
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1626
"/                                (aLiteral isMemberOf:Symbol) 
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1627
"/                                  and:[aSymbol match:aLiteral]
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1628
"/                            ] ifNone:nil) notNil
375
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1629
                       ].
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1630
    ] ifFalse:[
375
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1631
        "
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1632
         can do a faster search
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1633
        "
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1634
        sym := aSymbol asSymbolIfInterned.
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1635
        sym isNil ifTrue:[
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1636
            actionIfNoneFound value.
375
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1637
            ^ nil
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1638
        ].
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1639
375
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1640
        searchBlock := [:c :m :s |
2439
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1641
                            m referencesGlobal:sym
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1642
"/                            (m literalsDetect:[:aLiteral|
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1643
"/                                (sym == aLiteral) 
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1644
"/                            ] ifNone:nil) notNil
375
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1645
                       ].
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1646
    ].
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1647
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1648
    WarningSignal ignoreIn:[
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1649
        InformationSignal ignoreIn:[
375
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1650
            browser := self browseMethodsWhere:searchBlock title:title.
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1651
        ]
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1652
    ].
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1653
    browser isNil ifTrue:[
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1654
        actionIfNoneFound value
215
244f3a9b2a60 check for existing class in rename; avoid warnbox if no refs are found after rename
Claus Gittinger <cg@exept.de>
parents: 204
diff changeset
  1655
    ].
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1656
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1657
    (browser notNil 
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1658
    and:[searchString notNil]) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1659
        browser autoSearch:searchString
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1660
    ].
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1661
    ^ browser
375
a82f2fe29802 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1662
2439
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1663
    "Modified: / 24.6.1996 / 14:39:07 / stefan"
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1664
    "Created: / 31.10.1996 / 14:45:08 / cg"
2c7133af56df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2418
diff changeset
  1665
    "Modified: / 9.11.1999 / 17:04:30 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1666
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1667
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1668
browseForSymbol:aSymbol title:title warnIfNone:doWarn
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1669
    "launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1670
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1671
    ^ self
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1672
        browseForSymbol:aSymbol 
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1673
        title:title 
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1674
        warnIfNone:doWarn 
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1675
        searchFor:aSymbol
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1676
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1677
    "Modified: 31.10.1996 / 14:45:38 / cg"
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1678
!
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1679
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1680
browseForSymbol:aSymbol title:title warnIfNone:doWarn searchFor:searchString
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1681
    "launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1682
2414
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1683
    |b|
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1684
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1685
    doWarn ifTrue: [
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1686
	b := [self showNoneFound:title]
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1687
    ].
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1688
    ^ self
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1689
        browseForSymbol:aSymbol 
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1690
        title:title 
2414
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1691
        ifNone:b
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1692
        searchFor:searchString
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1693
!
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1694
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1695
browseImplementorsOf:aSelectorString
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1696
    "launch a browser for all implementors of aSelector"
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1697
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1698
    ^ self 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1699
        browseImplementorsOf:aSelectorString 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1700
        in:(Smalltalk allClasses)
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1701
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1702
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1703
     SystemBrowser browseImplementorsOf:#+
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1704
    "
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1705
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1706
    "Created: 9.12.1995 / 18:01:18 / cg"
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1707
    "Modified: 10.7.1996 / 10:21:26 / cg"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1708
!
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1709
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1710
browseImplementorsOf:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1711
    "launch a browser for all implementors of aSelector"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1712
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1713
    ^ self 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1714
        browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1715
        in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1716
        title:(self classResources string:'implementors of: %1' with:aSelectorString)
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1717
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1718
    "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1719
     SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1720
    "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1721
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1722
    "Created: 10.7.1996 / 10:20:59 / cg"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1723
    "Modified: 10.7.1996 / 10:21:49 / cg"
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1724
!
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1725
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1726
browseImplementorsOf:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1727
    "launch a browser for all implementors of aSelector"
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1728
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1729
    ^ self 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1730
        browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1731
        in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1732
        ignoreCase:ignoreCase
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1733
        title:(self classResources string:'implementors of: %1' with:aSelectorString)
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1734
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1735
    "
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1736
     SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1737
    "
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1738
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1739
    "Created: 10.7.1996 / 10:20:59 / cg"
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1740
    "Modified: 10.7.1996 / 10:21:49 / cg"
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1741
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1742
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1743
!
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1744
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1745
browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:title
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1746
    "launch a browser for all implementors of aSelector in
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1747
     the classes contained in aCollectionOfClasses and its metaclasses"
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1748
2642
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  1749
    |list|
270
f97a37f5df7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
  1750
2642
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  1751
    list := self 
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  1752
                findImplementorsOf:aSelectorString 
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  1753
                in:aCollectionOfClasses 
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  1754
                ignoreCase:ignoreCase.
45
950b84ba89e6 *** empty log message ***
claus
parents: 41
diff changeset
  1755
2642
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  1756
    list size == 0 ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  1757
        self showNoneFound:title.
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  1758
        ^ nil
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1759
    ].
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1760
270
f97a37f5df7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
  1761
    ^ self browseMethods:list asOrderedCollection title:title
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1762
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1763
    "
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1764
     SystemBrowser browseImplementorsOf:#+
270
f97a37f5df7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
  1765
                                     in:(Array with:Number
f97a37f5df7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
  1766
                                               with:Float
f97a37f5df7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
  1767
                                               with:SmallInteger)
f97a37f5df7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
  1768
                                  title:'some implementors of +'
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1769
    "
132
claus
parents: 118
diff changeset
  1770
1937
fc541342f2db more support for java code (implementors)
Claus Gittinger <cg@exept.de>
parents: 1931
diff changeset
  1771
    "Modified: / 4.9.1995 / 17:33:39 / claus"
fc541342f2db more support for java code (implementors)
Claus Gittinger <cg@exept.de>
parents: 1931
diff changeset
  1772
    "Modified: / 19.6.1996 / 14:19:02 / stefan"
fc541342f2db more support for java code (implementors)
Claus Gittinger <cg@exept.de>
parents: 1931
diff changeset
  1773
    "Modified: / 16.10.1998 / 13:16:29 / cg"
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1774
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1775
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1776
browseImplementorsOf:aSelectorString in:aCollectionOfClasses title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1777
    "launch a browser for all implementors of aSelector in
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1778
     the classes contained in aCollectionOfClasses and its metaclasses"
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1779
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1780
    ^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1781
        browseImplementorsOf:aSelectorString 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1782
        in:aCollectionOfClasses 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1783
        ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1784
        title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1785
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1786
!
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1787
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1788
browseImplementorsOf:aSelectorString under:aClass
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1789
    "launch a browser for all implementors of aSelector in aClass
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1790
     and its subclasses"
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1791
2623
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1792
    ^ self 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1793
        browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1794
        in:(aClass withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1795
        title:(self classResources 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1796
                string:'implementors of: %1 (in and below %2)' 
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1797
                with:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore
Claus Gittinger <cg@exept.de>
parents: 2551
diff changeset
  1798
                with:aClass name)
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1799
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1800
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1801
     SystemBrowser browseImplementorsOf:#+ under:Integer
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1802
    "
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1803
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1804
    "Created: 9.12.1995 / 18:06:09 / cg"
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  1805
    "Modified: 9.12.1995 / 18:11:38 / cg"
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1806
!
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1807
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1808
browseInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1809
    "launch a browser for all methods in aClass where the instVar named
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1810
     aString is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1811
     instvar is modified"
45
950b84ba89e6 *** empty log message ***
claus
parents: 41
diff changeset
  1812
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1813
    ^ self browseRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1814
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1815
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1816
browseInstRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1817
    "launch a browser for all methods in aClass where the instVar named
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1818
     varName is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1819
     instvar is modified"
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1820
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1821
    ^ self browseRefsTo:varName classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly title:title
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1822
!
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  1823
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1824
browseInstRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1825
    "launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1826
     where the instVar named aString is referenced; 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1827
     if modsOnly is true, browse only methods where the instvar is modified"
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1828
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1829
    ^ self browseInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1830
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1831
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1832
browseReferendsOf:aGlobalName
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1833
    "launch a browser for all methods referencing a global
1367
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1834
     named aGlobalName. The argument may be a symbol, a string or
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1835
     a matchPattern.
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1836
    "
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1837
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1838
    ^ self browseReferendsOf:aGlobalName warnIfNone:true 
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1839
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1840
   "
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1841
    Browser browseReferendsOf:#Transcript
1367
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1842
    Browser browseReferendsOf:'Tr*'
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1843
   "
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
  1844
1367
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1845
    "Modified: / 30.10.1997 / 23:45:52 / cg"
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1846
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  1847
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1848
browseReferendsOf:aGlobalName ifNone:actionIfNone
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1849
    "launch a browser for all methods referencing a global
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1850
     named aGlobalName.
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1851
    "
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1852
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1853
    ^ self
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1854
        browseReferendsOf:aGlobalName 
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1855
        title:(self classResources string:'users of: %1' with:aGlobalName)
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1856
        ifNone:actionIfNone
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1857
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1858
    "Modified: / 31.10.1997 / 15:42:05 / cg"
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1859
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1860
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1861
!
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1862
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1863
browseReferendsOf:aGlobalName in:aSetOfClasses
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1864
    "launch a browser for all methods referencing a global
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1865
     named aGlobalName.
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1866
    "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1867
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1868
    ^ self browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:true 
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1869
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1870
   "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1871
    Browser browseReferendsOf:#Transcript
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1872
   "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1873
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1874
    "Created: 10.7.1996 / 10:37:30 / cg"
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1875
!
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1876
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1877
browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:doWarn
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1878
    "launch a browser for all methods referencing a global
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1879
     named aGlobalName.
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1880
    "
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1881
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1882
    |globalsPlainName idx|
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1883
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1884
    globalsPlainName := aGlobalName.
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1885
    (idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1886
        globalsPlainName := globalsPlainName copyFrom:idx+1
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1887
    ].
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1888
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1889
    ^ self browseForSymbol:aGlobalName
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1890
                        in:aSetOfClasses
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1891
                     title:(self classResources string:'users of: %1' with:aGlobalName) 
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1892
                warnIfNone:doWarn
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1893
                 searchFor:globalsPlainName
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1894
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1895
    "Created: 10.7.1996 / 10:37:02 / cg"
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1896
    "Modified: 31.10.1996 / 14:56:38 / cg"
666
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1897
!
c349555a5550 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
  1898
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1899
browseReferendsOf:aGlobalName title:title ifNone:actionIfNone
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1900
    "launch a browser for all methods referencing a global
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1901
     named aGlobalName.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1902
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1903
2828
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1904
    |globalsPlainName idx searchBlock
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1905
     sym browser|
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1906
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1907
    globalsPlainName := aGlobalName.
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1908
    (idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
1367
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1909
        globalsPlainName := globalsPlainName copyFrom:idx+1.
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1910
        (globalsPlainName size == 0
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1911
        or:[globalsPlainName = '*']) ifTrue:[
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1912
            globalsPlainName := aGlobalName
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1913
        ]
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1914
    ].
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  1915
2828
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1916
    aGlobalName knownAsSymbol ifFalse:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1917
        aGlobalName includesMatchCharacters ifFalse:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1918
            actionIfNone value.
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1919
            ^ nil
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1920
        ].
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1921
        searchBlock := [:cls :mthd :sel | |mSource|
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1922
                        "/ kludge: Lazy methods do not include symbols in the literal array - sigh
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1923
                        mthd isLazyMethod ifTrue:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1924
                            mSource := mthd source.
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1925
                            (mSource notNil
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1926
                            and:[mthd usedGlobals contains:[:lit | aGlobalName match:lit]])
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1927
                        ] ifFalse:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1928
                            ((mthd literals contains:[:lit | aGlobalName match:lit])
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1929
                             and:[mthd usedGlobals contains:[:lit | aGlobalName match:lit] ])
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1930
                        ]
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1931
                      ]
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1932
    ] ifTrue:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1933
        sym := aGlobalName asSymbol.
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1934
        searchBlock := [:cls :mthd :sel | |mSource|
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1935
                        "/ kludge: Lazy methods do not include symbols in the literal array - sigh
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1936
                        mthd isLazyMethod ifTrue:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1937
                            mSource := mthd source.
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1938
                            (mSource notNil
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1939
                            and:[(mSource includesString:sym)
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1940
                            and:[mthd usedGlobals includes:sym]])
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1941
                        ] ifFalse:[ 
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1942
                            ((mthd refersToLiteral:sym)
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1943
                             and:[mthd usedGlobals includes:sym])
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1944
                        ]
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1945
                      ]
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1946
    ].
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1947
    WarningSignal ignoreIn:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1948
        InformationSignal ignoreIn:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1949
            browser := self browseMethodsWhere:searchBlock title:title.
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1950
        ]
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1951
    ].
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1952
    browser isNil ifTrue:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1953
        actionIfNone value
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1954
    ] ifFalse:[
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1955
        browser autoSearch:globalsPlainName
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1956
    ].
6e54ebb9b75e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2826
diff changeset
  1957
    ^ browser
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1958
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1959
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1960
!
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1961
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1962
browseReferendsOf:aGlobalName title:title warnIfNone:doWarn
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1963
    "launch a browser for all methods referencing a global
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1964
     named aGlobalName.
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1965
    "
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1966
2414
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1967
    |b|
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1968
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1969
    doWarn ifTrue: [
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1970
	b := [self showNoneFound:title]
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1971
    ].
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1972
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1973
    ^ self
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1974
        browseReferendsOf:aGlobalName 
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1975
        title:title 
2414
a84eac935500 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1976
        ifNone:b
2409
656eeb7197fa checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2398
diff changeset
  1977
1367
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1978
!
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1979
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1980
browseReferendsOf:aGlobalName warnIfNone:doWarn
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1981
    "launch a browser for all methods referencing a global
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1982
     named aGlobalName.
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1983
    "
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1984
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1985
    ^ self
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1986
        browseReferendsOf:aGlobalName 
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1987
        title:(self classResources string:'users of: %1' with:aGlobalName)
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1988
        warnIfNone:doWarn
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1989
80e92dd370c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1356
diff changeset
  1990
    "Modified: / 31.10.1997 / 15:42:05 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1991
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1992
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1993
browseRefsTo:aString classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1994
    "launch a browser for all methods in aClass where the instVar/classVar named
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1995
     aString is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1996
     instvar is modified"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1997
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1998
    |title|
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  1999
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2000
    modsOnly ifTrue:[
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2001
        title := 'modifications of: %1'
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2002
    ] ifFalse:[
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2003
        title := 'references to: %1 '
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2004
    ].
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2005
    ^ self 
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2006
        browseRefsTo:aString 
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2007
        classVars:classVars 
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2008
        in:aCollectionOfClasses 
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2009
        modificationsOnly:modsOnly 
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2010
        title:(self classResources string:title with:aString)
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2011
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2012
    "Created: 9.12.1995 / 18:07:05 / cg"
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2013
    "Modified: 9.12.1995 / 18:11:49 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2014
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2015
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2016
browseRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2017
    "launch a browser for all methods in aClass where the instVar/classVar named
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2018
     varName is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2019
     instvar is modified"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2020
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2021
    |filter browser pattern|
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2022
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2023
    filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
2677
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2024
    browser := self browseMethodsIn:aCollectionOfClasses inst:true class:classVars where:filter title:title.
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2025
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2026
    browser notNil ifTrue:[
2677
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2027
        modsOnly ifTrue:[
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2028
            pattern := varName , ' :='
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2029
        ] ifFalse:[
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2030
            pattern := varName
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2031
        ].
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2032
        browser autoSearch:pattern 
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2033
    ].
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2034
    ^ browser
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2035
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2036
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2037
browseSuperCallsIn:aCollectionOfClasses title:title
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2038
    "launch a browser for all super sends in aCollectionOfClasses"
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2039
742
2ef5e22d8983 code cleanup (unused vars eliminated)
Claus Gittinger <cg@exept.de>
parents: 675
diff changeset
  2040
    |browser searchBlock|
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2041
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2042
    searchBlock := [:class :method :s | 
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2043
        |src parser|
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2044
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2045
        src := method source.
2208
e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available)
Claus Gittinger <cg@exept.de>
parents: 1937
diff changeset
  2046
        (src notNil and:[src findString:'super']) ~~ 0 ifTrue:[
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2047
            parser := Parser 
2208
e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available)
Claus Gittinger <cg@exept.de>
parents: 1937
diff changeset
  2048
                        parseMethod:src 
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2049
                        in:class 
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2050
                        ignoreErrors:true 
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2051
                        ignoreWarnings:true.
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2052
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2053
            parser notNil and:[parser usesSuper]
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2054
        ] ifFalse:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2055
            false
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2056
        ]
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2057
    ].
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2058
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2059
    browser := self browseMethodsIn:aCollectionOfClasses
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2060
                              where:searchBlock
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2061
                              title:title.
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2062
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2063
    browser notNil ifTrue:[
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2064
        browser autoSearch:'super' 
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2065
    ].
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2066
    ^ browser
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2067
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2068
    "
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2069
     SystemBrowser
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2070
         browseSuperCallsIn:(Array with:SortedCollection)
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2071
                      title:'superSends in SortedCollection'
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2072
    "
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2073
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2074
    "Created: 23.11.1995 / 14:08:55 / cg"
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2075
    "Modified: 24.4.1996 / 13:25:31 / cg"
256
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2076
!
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2077
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2078
browseSuperCallsUnder:aClass
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2079
    "launch a browser for all supersends in aClass and subclasses"
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2080
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2081
    ^ self browseSuperCallsIn:(aClass withAllSubclasses)
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2082
                        title:(self classResources string:'supersends (in and below %1)' with:aClass name)
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2083
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2084
    "
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2085
     SystemBrowser browseSuperCallsUnder:Number
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2086
    "
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2087
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2088
    "Created: 23.11.1995 / 12:06:06 / cg"
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2089
    "Modified: 9.12.1995 / 18:11:59 / cg"
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2090
!
5ae592de1b4f national strings
Claus Gittinger <cg@exept.de>
parents: 254
diff changeset
  2091
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2092
browseUsesOf:aClass
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2093
    |dict owners offsets
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2094
     sz  "{ Class: SmallInteger }"
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2095
     n   "{ Class: SmallInteger }"
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2096
     removeSet newDict|
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2097
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2098
    owners := ObjectMemory whoReferencesInstancesOf:aClass.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2099
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2100
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2101
     collect set of offsets in dict; key is class
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2102
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2103
    dict := IdentityDictionary new.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2104
    owners do:[:someObject |
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2105
	|cls create|
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2106
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2107
	someObject isContext ifFalse:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2108
	    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2109
	     someObject refers to an instance of aClass;
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2110
	     find out, which instVar(s)
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2111
	    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2112
	    cls := someObject class.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2113
	    cls ~~ Array ifTrue:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2114
		n := cls instSize.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2115
		create := [|s| s := Set new. dict at:cls put:s. s].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2116
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2117
		1 to:n do:[:i |
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2118
		    |ref|
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2119
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2120
		    ref := someObject instVarAt:i.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2121
		    (ref isMemberOf:aClass) ifTrue:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2122
			offsets := dict at:cls ifAbsent:create.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2123
			offsets add:i.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2124
		    ]
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2125
		].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2126
		cls isVariable ifTrue:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2127
		    cls isPointers ifTrue:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2128
			| idx "{ Class: SmallInteger }" |
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2129
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2130
			sz := someObject basicSize.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2131
			idx := 1.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2132
			[idx <= sz] whileTrue:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2133
			    |ref|
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2134
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2135
			    ref := someObject basicAt:idx.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2136
			    (ref isMemberOf:aClass) ifTrue:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2137
				offsets := dict at:cls ifAbsent:create.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2138
				offsets add:0.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2139
				idx := sz
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2140
			    ].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2141
			    idx := idx + 1
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2142
			]
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2143
		    ]        
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2144
		]
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2145
	    ]
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2146
	]
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2147
    ].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2148
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2149
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2150
     merge with superclass refs
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2151
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2152
    dict keysAndValuesDo:[:cls :set |
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2153
	cls allSuperclasses do:[:aSuperclass |
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2154
	    |superSet|
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2155
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2156
	    superSet := dict at:aSuperclass ifAbsent:[].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2157
	    superSet notNil ifTrue:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2158
		|removeSet|
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2159
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2160
		superSet := dict at:aSuperclass.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2161
		removeSet := Set new.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2162
		set do:[:offset |
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2163
		    (superSet includes:offset) ifTrue:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2164
			removeSet add:offset
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2165
		    ]
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2166
		].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2167
		set removeAll:removeSet
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2168
	    ]
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2169
	]
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2170
    ].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2171
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2172
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2173
     remove empty ones
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2174
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2175
    removeSet := Set new.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2176
    dict keysAndValuesDo:[:cls :set |
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2177
	set isEmpty ifTrue:[
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2178
	    removeSet add:cls
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2179
	]
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2180
    ].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2181
    removeSet do:[:cls |
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2182
	dict removeKey:cls
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2183
    ].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2184
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2185
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2186
     replace the indices by real names
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2187
    "
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2188
    newDict := IdentityDictionary new.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2189
    dict keysAndValuesDo:[:cls :set |
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2190
	|newSet names|
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2191
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2192
	names := cls allInstVarNames.
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2193
	newSet := set collect:[:index | 
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2194
		index == 0 ifTrue:['*indexed*'] ifFalse:[names at:index].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2195
	].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2196
	newDict at:cls put:newSet
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2197
    ].
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2198
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2199
    newDict inspect
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2200
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
  2201
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2202
!
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2203
2736
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2204
filterToSearchRefsTo:varName classVars:classVars access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2205
    "return a searchblock for variable references"
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2206
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2207
    |searchBlock|
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2208
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2209
    searchBlock := [:c :m :s |
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2210
        |src result parser vars needMatch|
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2211
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2212
        needMatch := varName includesMatchCharacters.
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2213
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2214
        src := m source.
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2215
        src isNil ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2216
            result := false
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2217
        ] ifFalse:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2218
            needMatch ifFalse:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2219
                "
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2220
                 before doing a slow parse, quickly scan the
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2221
                 methods source for the variables name ...
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2222
                "
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2223
                result := (src findString:varName) ~~ 0.
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2224
            ] ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2225
                result := true.
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2226
            ].
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2227
            result ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2228
                result := false.
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2229
                parser := Parser
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2230
                                parseMethod:src 
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2231
                                in:c 
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2232
                                ignoreErrors:true 
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2233
                                ignoreWarnings:true.
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2234
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2235
                (parser notNil and:[parser ~~ #Error]) ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2236
                    classVars ifFalse:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2237
                        accessType == #read ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2238
                            vars := parser readInstVars
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2239
                        ] ifFalse:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2240
                            accessType == #write ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2241
                                vars := parser modifiedInstVars
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2242
                            ] ifFalse:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2243
                                vars := parser usedInstVars
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2244
                            ]
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2245
                        ].
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2246
                    ] ifTrue:[    
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2247
                        accessType == #read ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2248
                            vars := parser readClassVars
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2249
                        ] ifFalse:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2250
                            accessType == #write ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2251
                                vars := parser modifiedClassVars
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2252
                            ] ifFalse:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2253
                                vars := parser usedClassVars
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2254
                            ]
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2255
                        ].
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2256
                    ].
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2257
                    vars size > 0 ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2258
                        needMatch ifTrue:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2259
                            vars do:[:cv |
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2260
                                (varName match:cv) ifTrue:[result := true]
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2261
                            ]
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2262
                        ] ifFalse:[
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2263
                            result := vars includes:varName
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2264
                        ]
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2265
                    ]
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2266
                ].
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2267
            ].
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2268
        ].
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2269
        Processor yield.
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2270
        result
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2271
    ].
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2272
    ^ searchBlock
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2273
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2274
    "Modified: 19.6.1997 / 18:27:57 / cg"
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2275
!
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2276
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2277
filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2278
    "return a searchblock for variable references"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2279
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2280
    |searchBlock|
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  2281
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2282
    searchBlock := [:c :m :s |
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2283
        |src result parser vars needMatch|
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2284
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2285
        needMatch := varName includesMatchCharacters.
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2286
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2287
        src := m source.
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2288
        src isNil ifTrue:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2289
            result := false
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2290
        ] ifFalse:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2291
            needMatch ifFalse:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2292
                "
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2293
                 before doing a slow parse, quickly scan the
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2294
                 methods source for the variables name ...
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2295
                "
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2296
                result := (src findString:varName) ~~ 0.
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2297
            ] ifTrue:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2298
                result := true.
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2299
            ].
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2300
            result ifTrue:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2301
                result := false.
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2302
                parser := Parser
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2303
                                parseMethod:src 
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2304
                                in:c 
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2305
                                ignoreErrors:true 
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2306
                                ignoreWarnings:true.
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2307
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2308
                (parser notNil and:[parser ~~ #Error]) ifTrue:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2309
                    classVars ifFalse:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2310
                        modsOnly ifTrue:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2311
                            vars := parser modifiedInstVars
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2312
                        ] ifFalse:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2313
                            vars := parser usedInstVars
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2314
                        ].
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2315
                    ] ifTrue:[    
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2316
                        modsOnly ifTrue:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2317
                            vars := parser modifiedClassVars
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2318
                        ] ifFalse:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2319
                            vars := parser usedClassVars
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2320
                        ].
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2321
                    ].
1190
d265f77ecbc8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1143
diff changeset
  2322
                    vars size > 0 ifTrue:[
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2323
                        needMatch ifTrue:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2324
                            vars do:[:cv |
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2325
                                (varName match:cv) ifTrue:[result := true]
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2326
                            ]
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2327
                        ] ifFalse:[
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2328
                            result := vars includes:varName
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2329
                        ]
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2330
                    ]
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2331
                ].
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2332
            ].
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2333
        ].
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2334
        Processor yield.
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2335
        result
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2336
    ].
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2337
    ^ searchBlock
504
1bb5e6002ebb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
  2338
1190
d265f77ecbc8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1143
diff changeset
  2339
    "Modified: 19.6.1997 / 18:27:57 / cg"
2642
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2340
!
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2341
2743
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2342
findAnyResourceIn:aCollectionOfClasses 
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2343
    "return a collection of all methods in aCollectionOfClasses containing any resource."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2344
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2345
    ^ self findMethodsIn:aCollectionOfClasses where:[:c :m :sel | m hasResource ].
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2346
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2347
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2348
     SystemBrowser findAnyResourceIn:(ApplicationModel withAllSubclasses)
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2349
    "
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2350
!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
  2351
2736
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2352
findClassRefsTo:aString in:aCollectionOfClasses access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2353
    "return all methods in aCollectionOfClasses where the classVar named
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2354
     aString is referenced; 
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2355
     if modsOnly is true, browse only methods where the classvar is modified"
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2356
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2357
    ^ self findRefsTo:aString classVars:true in:aCollectionOfClasses access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2358
!
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2359
2677
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2360
findClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2361
    "return all methods in aCollectionOfClasses where the classVar named
2677
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2362
     aString is referenced; 
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2363
     if modsOnly is true, browse only methods where the classvar is modified"
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2364
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2365
    ^ self findRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2366
!
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2367
2736
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2368
findClassRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2369
    "return all methods in aClass where the classVar named
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2370
     aString is referenced; 
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2371
     if modsOnly is true, browse only methods where the classvar is modified"
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2372
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2373
    ^ self findRefsTo:aString classVars:true in:(Array with:aClass) access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2374
!
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2375
2728
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2376
findClassRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2377
    "return all methods in aClass where the classVar named
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2378
     aString is referenced; 
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2379
     if modsOnly is true, browse only methods where the classvar is modified"
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2380
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2381
    ^ self findRefsTo:aString classVars:true in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2382
!
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2383
2736
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2384
findClassRefsTo:aString under:aClass access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2385
    "return all methods in aClass and subclasses
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2386
     where the classVar named aString is referenced; 
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2387
     if modsOnly is true, browse only methods where the classvar is modified"
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2388
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2389
    ^ self findClassRefsTo:aString in:(aClass withAllSubclasses) access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2390
!
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2391
2677
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2392
findClassRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2393
    "return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2394
     where the classVar named aString is referenced; 
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2395
     if modsOnly is true, browse only methods where the classvar is modified"
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2396
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2397
    ^ self findClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2398
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2399
!
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2400
2642
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2401
findImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2402
    "search for all implementors of aSelector in
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2403
     the classes contained in aCollectionOfClasses and its metaclasses.
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2404
     Return a collection of methods"
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2405
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2406
    |list sel srchST srchJava lcSelector|
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2407
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2408
    list := IdentitySet new.
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2409
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2410
    ((aSelectorString ~= '*') and:[aSelectorString includesMatchCharacters]) ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2411
        "a matchString"
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2412
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2413
        ignoreCase == true ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2414
            lcSelector := aSelectorString asLowercase.
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2415
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2416
            srchST := [:aSelector :aMethod |
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2417
                            (lcSelector match:aSelector asLowercase) ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2418
                                list add:aMethod
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2419
                            ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2420
                      ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2421
            srchJava := [:aSelector :aMethod |
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2422
                            (aSelector match:aMethod name asLowercase) ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2423
                                list add:aMethod
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2424
                            ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2425
                      ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2426
        ] ifFalse:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2427
            srchST := [:aSelector :aMethod |
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2428
                            (aSelectorString match:aSelector) ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2429
                                list add:aMethod
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2430
                            ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2431
                      ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2432
            srchJava := [:aSelector :aMethod |
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2433
                            (aSelectorString match:aMethod name) ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2434
                                list add:aMethod
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2435
                            ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2436
                      ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2437
        ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2438
    ] ifFalse:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2439
        "can do a faster search"
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2440
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2441
        sel := aSelectorString asSymbolIfInterned.
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2442
        sel isNil ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2443
            ^ nil
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2444
        ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2445
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2446
        ignoreCase == true ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2447
            lcSelector := sel asLowercase.
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2448
            srchJava := [:aSelector :aMethod |
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2449
                            "/ allow search for signature AND
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2450
                            "/ search for plain name
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2451
                            ((aMethod name asLowercase = lcSelector)
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2452
                            or:[aSelector asLowercase = lcSelector]) ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2453
                                list add:aMethod
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2454
                            ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2455
                        ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2456
            srchST := [:aSelector :aMethod |
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2457
                            (aSelector asLowercase = lcSelector) ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2458
                                list add:aMethod
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2459
                            ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2460
                        ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2461
        ] ifFalse:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2462
            srchJava := [:aSelector :aMethod |
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2463
                            "/ allow search for signature AND
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2464
                            "/ search for plain name
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2465
                            ((aMethod name = sel)
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2466
                            or:[aSelector == sel]) ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2467
                                list add:aMethod
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2468
                            ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2469
                        ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2470
            srchST := [:aSelector :aMethod |
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2471
                            (aSelector == sel) ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2472
                                list add:aMethod
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2473
                            ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2474
                        ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2475
        ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2476
    ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2477
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2478
    aCollectionOfClasses do:[:aClass |
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2479
        |srchBlock|
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2480
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2481
        aClass isObsolete ifFalse:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2482
            aClass isJavaClass ifTrue:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2483
                srchBlock := srchJava
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2484
            ] ifFalse:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2485
                srchBlock := srchST
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2486
            ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2487
            aClass methodDictionary keysAndValuesDo:srchBlock.
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2488
            aClass isMeta ifFalse:[
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2489
                aClass class methodDictionary keysAndValuesDo:srchBlock
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2490
            ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2491
        ]
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2492
    ].
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2493
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2494
    ^ list
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2495
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2496
    "
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2497
     SystemBrowser findImplementorsOf:#+
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2498
                                     in:(Array with:Number
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2499
                                               with:Float
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2500
                                               with:SmallInteger)
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2501
    "
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2502
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2503
!
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2504
2811
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2505
findImplementorsOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2506
    "search for all implementors of any in aCollectionOfSelectors in
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2507
     the classes contained in aCollectionOfClasses and its metaclasses.
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2508
     Return a collection of methods.
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2509
     CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2510
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2511
    |implementors|
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2512
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2513
    implementors := IdentitySet new.
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2514
    aCollectionOfSelectors do:[:eachSelector |
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2515
        implementors addAll:(self findImplementorsOf:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase).
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2516
    ].
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2517
    ^ implementors
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2518
!
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2519
2741
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2520
findInstRefsTo:aString in:aCollectionOfClasses access:accessType
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2521
    "return all methods in aCollectionOfClasses where the instVar named
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2522
     aString is referenced; 
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2523
     if modsOnly is true, browse only methods where the classvar is modified"
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2524
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2525
    ^ self findRefsTo:aString classVars:false in:aCollectionOfClasses access:accessType
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2526
!
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2527
2677
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2528
findInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2529
    "return all methods in aCollectionOfClasses where the instVar named
2677
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2530
     aString is referenced; if modsOnly is true, browse only methods where the
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2531
     instvar is modified"
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2532
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2533
    ^ self findRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2534
!
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2535
2736
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2536
findInstRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2537
    "return all methods in aClass where the instVar named
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2538
     aString is referenced; if modsOnly is true, browse only methods where the
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2539
     instvar is modified"
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2540
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2541
    ^ self findRefsTo:aString classVars:false in:(Array with:aClass) access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2542
!
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2543
2728
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2544
findInstRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2545
    "return all methods in aClass where the instVar named
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2546
     aString is referenced; if modsOnly is true, browse only methods where the
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2547
     instvar is modified"
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2548
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2549
    ^ self findRefsTo:aString classVars:false in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2550
!
5ba2a9de7472 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2692
diff changeset
  2551
2741
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2552
findInstRefsTo:aString under:aClass access:accessType
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2553
    "return all methods in aClass and subclasses
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2554
     where the classVar named aString is referenced; 
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2555
     if modsOnly is true, browse only methods where the classvar is modified"
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2556
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2557
    ^ self findInstRefsTo:aString in:(aClass withAllSubclasses) access:accessType
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2558
!
aedd23d595cd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2736
diff changeset
  2559
2677
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2560
findInstRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2561
    "return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2562
     where the instVar named aString is referenced; 
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2563
     if modsOnly is true, browse only methods where the instvar is modified"
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2564
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2565
    ^ self findInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2566
!
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2567
2736
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2568
findRefsTo:varName classVars:classVars in:aCollectionOfClasses access:accessType
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2569
    "return a list of all methods in aCollectionOfClasses where the instVar/classVar named
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2570
     varName is referenced; 
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2571
     if modsOnly is true, browse only methods where the instvar is modified"
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2572
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2573
    |filter|
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2574
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2575
    filter := self filterToSearchRefsTo:varName classVars:classVars access:accessType.
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2576
    ^ self findMethodsIn:aCollectionOfClasses inst:true class:classVars where:filter.
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2577
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2578
    "
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2579
     self
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2580
        findRefsTo:'x'
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2581
        classVars:false
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2582
        in:(Array with:Point)
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2583
        modificationsOnly:true
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2584
    "
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2585
!
5b585170e14a added search to find readers of an isntVar
Claus Gittinger <cg@exept.de>
parents: 2729
diff changeset
  2586
2677
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2587
findRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2588
    "return a list of all methods in aCollectionOfClasses where the instVar/classVar named
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2589
     varName is referenced; 
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2590
     if modsOnly is true, browse only methods where the instvar is modified"
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2591
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2592
    |filter|
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2593
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2594
    filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2595
    ^ self findMethodsIn:aCollectionOfClasses inst:true class:classVars where:filter.
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2596
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2597
    "
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2598
     self
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2599
        findRefsTo:'x'
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2600
        classVars:false
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2601
        in:(Array with:Point)
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2602
        modificationsOnly:true
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2603
    "
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2604
!
a5ef0e288aae search protocol enhanced
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2605
2692
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2606
findResource:aResourceSymbolOrCollectionOfSymbols in:aCollectionOfClasses 
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2607
    "return a collection of all methods in aCollectionOfClasses  
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2608
     containing a resource."
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2609
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2610
    |searchBlock|
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2611
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2612
    aResourceSymbolOrCollectionOfSymbols isSymbol ifTrue:[
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2613
        searchBlock := [:c :m :sel | |resources|
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2614
                            (resources := m resources) size > 0
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2615
                            and:[resources includesKey:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2616
                       ].
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2617
    ] ifFalse:[
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2618
        searchBlock := [:c :m :sel | |resources|
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2619
                            (resources := m resources) size > 0
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2620
                            and:[resources keys includesAny:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2621
                       ].
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2622
    ].
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2623
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2624
    ^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2625
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2626
    "
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2627
     SystemBrowser findResource:#image in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2628
     SystemBrowser findResource:#menu in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2629
     SystemBrowser findResource:#(menu programMenu) in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2630
    "
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2631
!
652bbda35217 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2677
diff changeset
  2632
2642
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2633
findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2634
    "search for all senders of aSelector in
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2635
     the classes contained in aCollectionOfClasses and its metaclasses.
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2636
     Return a collection of methods"
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2637
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2638
    ^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2639
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2640
    "
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2641
     SystemBrowser findSendersOf:#+
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2642
                   in:(Array with:Number
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2643
                             with:Float
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2644
                             with:SmallInteger)
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2645
                   ignoreCase:false
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2646
    "
cab6366238a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2631
diff changeset
  2647
2675
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2648
!
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2649
2811
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2650
findSendersOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2651
    "search for all senders of any selector in aCollectionOfSelectors in
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2652
     the classes contained in aCollectionOfClasses and its metaclasses.
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2653
     Return a collection of methods.
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2654
     CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2655
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2656
    |allSenders|
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2657
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2658
    allSenders := IdentitySet new.
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2659
    aCollectionOfSelectors do:[:eachSelector |
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2660
        allSenders addAll:(self allCallsOn:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase)
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2661
    ].
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2662
    ^ allSenders
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2663
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2664
    "
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2665
     SystemBrowser findSendersOfAny:#(#'+' #'-')
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2666
                   in:(Array with:Number
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2667
                             with:Float
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2668
                             with:SmallInteger)
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2669
                   ignoreCase:false  
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2670
    "
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2671
!
85f8454fbd26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  2672
2675
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2673
findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2674
    "return a colelction of all methods in aCollectionOfClasses  
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2675
     containing a string in their source.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2676
     This may be slow, since source-code has to be scanned."
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2677
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2678
    |browser searchBlock title s|
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2679
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2680
    (aString includesMatchCharacters
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2681
    or:[ignoreCase]) ifTrue:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2682
        s := '*' , aString , '*'.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2683
        "a matchString"
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2684
        searchBlock := [:c :m :sel | 
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2685
                            |src|       
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2686
                            src := m source.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2687
                            src isNil ifTrue:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2688
                                ('Browser [info]: no source for ' , m printString) infoPrintCR.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2689
                                false
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2690
                            ] ifFalse:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2691
                                s match:src ignoreCase:ignoreCase
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2692
                            ]
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2693
                       ]
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2694
    ] ifFalse:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2695
        searchBlock := [:c :m :sel | 
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2696
                            |src|
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2697
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2698
                            src := m source.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2699
                            src isNil ifTrue:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2700
                                ('Browser [info]: no source for ' , m printString) infoPrintCR.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2701
                                false
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2702
                            ] ifFalse:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2703
                                (src findString:aString) ~~ 0
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2704
                            ]
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2705
                       ]
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2706
    ].
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2707
    ^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2708
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2709
    "
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2710
     SystemBrowser findString:'should'   in:(Array with:Object) ignoreCase:false
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  2711
    "
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2712
! !
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2713
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  2714
!SystemBrowser class methodsFor:'startup'!
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2715
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2716
browseAllSelect:aBlock
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2717
    "launch a browser for all methods where aBlock returns true.
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2718
     The block is called with 3 arguments, class, method and selector."
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2719
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2720
    ^ self 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2721
        browseMethodsWhere:aBlock 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2722
        title:'selected messages'
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2723
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  2724
    "
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2725
     SystemBrowser browseAllSelect:[:aClass :aMethod :selector | selector numArgs == 3]
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  2726
    "
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2727
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2728
    "Modified: 24.1.1997 / 19:45:05 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2729
!
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
  2730
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2731
browseClass:aClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2732
    "launch a browser for aClass"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2733
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2734
    ^ self 
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2735
        newWithLabel:aClass name
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2736
        setupSelector:#setupForClass:
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2737
        arg:aClass
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2738
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2739
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2740
     SystemBrowser browseClass:Object
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2741
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2742
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2743
    "Modified: 24.1.1997 / 19:45:16 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2744
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2745
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2746
browseClass:aClass methodCategory:aCategory
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2747
    "launch a browser for all methods under aCategory in aClass"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2748
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2749
    ^ self newWithLabel:(aClass name , ' ' , aCategory)
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2750
          setupBlock:[:browser | browser setupForClass:aClass methodCategory:aCategory]
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2751
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2752
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2753
     SystemBrowser browseClass:String methodCategory:'copying'
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2754
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2755
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2756
    "Modified: 24.1.1997 / 19:45:23 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2757
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2758
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2759
browseClass:aClass selector:selector
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2760
    "launch a browser for the method at selector in aClass"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2761
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2762
    ^ self 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2763
	newWithLabel:(aClass name , ' ' , selector , ' ' , selector)
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2764
	setupBlock:[:newBrowser | newBrowser setupForClass:aClass selector:selector]
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2765
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2766
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2767
     SystemBrowser browseClass:Object selector:#printString
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2768
    "
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2769
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2770
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2771
browseClassCategory:aClassCategory
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2772
    "launch a browser for all classes under aCategory"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2773
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2774
    ^ self 
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2775
        newWithLabel:aClassCategory
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2776
        setupSelector:#setupForClassCategory:
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2777
        arg:aClassCategory
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2778
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2779
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2780
     SystemBrowser browseClassCategory:'Kernel-Objects'
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2781
    "
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2782
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2783
    "Modified: 24.1.1997 / 19:45:32 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2784
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2785
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2786
browseClassHierarchy:aClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2787
    "launch a browser for aClass and all its superclasses.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2788
     this is different from the fullProtocol browser."
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2789
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2790
    ^ self 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2791
	newWithLabel:(aClass name , '-' , 'hierarchy')
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2792
	setupSelector:#setupForClassHierarchy:
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2793
	arg:aClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2794
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2795
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2796
     SystemBrowser browseClassHierarchy:Number
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2797
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2798
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2799
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2800
browseClasses:aList title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2801
    "launch a browser for all classes in aList"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2802
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2803
    ^ self 
576
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2804
        newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2805
        setupBlock:[:b | b setupForClassList:aList sort:true]
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2806
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2807
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2808
     SystemBrowser browseClasses:(Array with:Object
576
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2809
                                        with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2810
                           title:'two classes'
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2811
    "
576
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2812
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2813
    "Modified: 28.5.1996 / 13:52:25 / cg"
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2814
!
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2815
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2816
browseClasses:aList title:title sort:doSort
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2817
    "launch a browser for all classes in aList"
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2818
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2819
    ^ self 
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2820
        newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2821
        setupBlock:[:b | b setupForClassList:aList sort:doSort]
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2822
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2823
    "
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2824
     SystemBrowser browseClasses:(Array with:Object
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2825
                                        with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2826
                           title:'two classes'
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2827
    "
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2828
62dc6c67d71c show subclasses hierarchical (spawn subclasses)
Claus Gittinger <cg@exept.de>
parents: 573
diff changeset
  2829
    "Created: 28.5.1996 / 13:52:09 / cg"
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2830
!
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  2831
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2832
browseFullClassProtocol:aClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2833
    "launch a browser for aClasses full protocol.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2834
     This is different from hierarchy browsing."
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2835
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2836
    ^ self 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2837
	newWithLabel:(aClass name , '-' , 'full protocol')
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2838
	setupSelector:#setupForFullClassProtocol:
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2839
	arg:aClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2840
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2841
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2842
     SystemBrowser browseFullClassProtocol:Number
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2843
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2844
!
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2845
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2846
browseFullClasses
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2847
    "launch a browser showing all methods at once"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2848
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2849
    ^ self 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2850
	newWithLabel:'Full Class Browser'
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2851
	setupBlock:[:newBrowser | newBrowser setupForFullClass]
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2852
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2853
    "SystemBrowser browseFullClasses"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2854
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2855
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2856
browseInstMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2857
    "launch a browser for all instance methods in aClass and all subclasses
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2858
     where aBlock evaluates to true"
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2859
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2860
    ^ self      
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2861
        browseMethodsIn:(aClass withAllSubclasses) 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2862
        inst:true 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2863
        class:false 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2864
        where:aBlock 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2865
        title:title
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2866
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2867
    "Modified: 24.1.1997 / 19:44:45 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2868
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2869
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2870
browseInstMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2871
    "launch a browser for all instance methods of all classes in
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2872
     aCollectionOfClasses where aBlock evaluates to true"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2873
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2874
    ^ self 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2875
        browseMethodsIn:aCollectionOfClasses 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2876
        inst:true class:false 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2877
        where:aBlock title:title
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2878
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2879
    "Modified: 24.1.1997 / 19:43:41 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2880
!
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  2881
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2882
browseInstMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2883
    "launch a browser for all instance methods in aClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2884
     where aBlock evaluates to true"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2885
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2886
    ^ self 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2887
        browseMethodsIn:(Array with:aClass) 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2888
        inst:true 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2889
        class:false 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2890
        where:aBlock title:title
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2891
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  2892
    "Modified: 24.1.1997 / 19:43:50 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2893
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2894
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2895
browseMethodCategory:aCategory
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2896
    "launch a browser for all methods where category = aCategory"
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2897
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2898
    |searchBlock|
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2899
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2900
    aCategory includesMatchCharacters ifTrue:[
2822
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2901
        searchBlock := [:c :m :s | aCategory match:m category].
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  2902
    ] ifFalse:[
2822
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2903
        searchBlock := [:c :m :s | m category = aCategory]
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  2904
    ].
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  2905
2822
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2906
    ^ self browseMethodsWhere:searchBlock title:('all methods with category of ' , aCategory)
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2907
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2908
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2909
     SystemBrowser browseMethodCategory:'printing & storing'
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2910
     SystemBrowser browseMethodCategory:'print*'
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2911
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2912
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2913
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2914
browseMethods:aList title:aString
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2915
    "launch a browser for an explicit list of class/selectors.
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2916
     Each entry in the list can be either a method, or a string
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2917
     consisting of the classes name and the selector, separated by spaces. 
634
24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to
Stefan Vogel <sv@exept.de>
parents: 620
diff changeset
  2918
     For class methods, the string ' class' must be appended to the classname."
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2919
1919
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2920
    ^ self
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2921
        browseMethods:aList
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2922
        title:aString
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2923
        sort:true
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2924
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2925
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2926
    "
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2927
     SystemBrowser 
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2928
        browseMethods:#('Object printOn:' 'Collection add:')
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2929
        title:'some methods'
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2930
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2931
     SystemBrowser 
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2932
        browseMethods:#('Behavior new:' 'Setclass new:')
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2933
        title:'some new: methods'
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2934
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2935
     SystemBrowser 
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2936
        browseMethods:(Array with:(Object compiledMethodAt:#printOn:)
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2937
                             with:(Collection compiledMethodAt:#add:)
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2938
                             with:(Object class compiledMethodAt:#initialize))
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2939
        title:'some methods'
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2940
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2941
    "
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2942
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2943
    "Modified: 1.11.1996 / 16:30:17 / cg"
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2944
!
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2945
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2946
browseMethods:aList title:aString sort:doSort
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2947
    "launch a browser for an explicit list of class/selectors.
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2948
     Each entry in the list can be either a method, or a string
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2949
     consisting of the classes name and the selector, separated by spaces. 
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2950
     For class methods, the string ' class' must be appended to the classname."
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2951
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2952
    |l|
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2953
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2954
    (aList size == 0) ifTrue:[
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2955
        self showNoneFound:aString.
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2956
        ^ nil
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2957
    ].
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2958
    l := aList asOrderedCollection.
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2959
    l := l collect:[:entry |
1937
fc541342f2db more support for java code (implementors)
Claus Gittinger <cg@exept.de>
parents: 1931
diff changeset
  2960
        |who cls clsName|
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2961
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2962
        entry isString ifTrue:[
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2963
            entry
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2964
        ] ifFalse:[
2822
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2965
            cls := entry mclass.
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2966
            cls isNil ifTrue:[
1031
5d77c99b877e dont crash when unbound methods are passed
ca
parents: 1018
diff changeset
  2967
                '??? unbound'
5d77c99b877e dont crash when unbound methods are passed
ca
parents: 1018
diff changeset
  2968
            ] ifFalse:[
2822
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2969
                cls isJavaClass ifTrue:[
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2970
                    clsName := 'JAVA::' , cls fullName 
1937
fc541342f2db more support for java code (implementors)
Claus Gittinger <cg@exept.de>
parents: 1931
diff changeset
  2971
                ] ifFalse:[
2822
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2972
                    clsName := cls name
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2973
                ].
2824
85795055a3bf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2822
diff changeset
  2974
(cls selectorAtMethod:entry) isNil ifTrue:[
85795055a3bf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2822
diff changeset
  2975
    self halt.
85795055a3bf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2822
diff changeset
  2976
].
2822
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2977
                clsName
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2978
                , ' ' 
8127e7726fdd changes for environment browsing
Claus Gittinger <cg@exept.de>
parents: 2818
diff changeset
  2979
                , (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry))
1031
5d77c99b877e dont crash when unbound methods are passed
ca
parents: 1018
diff changeset
  2980
            ]
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2981
        ]
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2982
      ].
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2983
        
1919
0652e55065f9 added sort option to #browserMethods:
Claus Gittinger <cg@exept.de>
parents: 1703
diff changeset
  2984
    doSort ifTrue:[l sort].
1937
fc541342f2db more support for java code (implementors)
Claus Gittinger <cg@exept.de>
parents: 1931
diff changeset
  2985
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2986
    ^ self 
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2987
        newWithLabel:aString
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2988
        setupSelector:#setupForList:
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2989
        arg:l 
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  2990
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2991
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  2992
     SystemBrowser 
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2993
        browseMethods:#('Object printOn:' 'Collection add:')
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2994
        title:'some methods'
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2995
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2996
     SystemBrowser 
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2997
        browseMethods:#('Behavior new:' 'Setclass new:')
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2998
        title:'some new: methods'
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  2999
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  3000
     SystemBrowser 
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  3001
        browseMethods:(Array with:(Object compiledMethodAt:#printOn:)
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  3002
                             with:(Collection compiledMethodAt:#add:)
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  3003
                             with:(Object class compiledMethodAt:#initialize))
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  3004
        title:'some methods'
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  3005
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3006
    "
279
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings)
Claus Gittinger <cg@exept.de>
parents: 270
diff changeset
  3007
1937
fc541342f2db more support for java code (implementors)
Claus Gittinger <cg@exept.de>
parents: 1931
diff changeset
  3008
    "Modified: / 17.6.1996 / 17:07:46 / stefan"
2826
9d7f11697806 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2824
diff changeset
  3009
    "Modified: / 17.10.1998 / 11:25:53 / cg"
9d7f11697806 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2824
diff changeset
  3010
!
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  3011
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3012
browseMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3013
    "launch a browser for all instance- and classmethods in aClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3014
     and all its subclasses where aBlock evaluates to true.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3015
     The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3016
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3017
    ^ self 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3018
        browseMethodsIn:(aClass withAllSubclasses) 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3019
        where:aBlock 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3020
        title:title
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3021
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3022
    "Modified: 24.1.1997 / 19:44:00 / cg"
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3023
!
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3024
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3025
browseMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3026
    "launch a browser for all instance- (if wantInst is true) and/or
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3027
     classmethods (if wantClass is true) from classes in aCollectionOfClasses,
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3028
     where aBlock evaluates to true.
270
f97a37f5df7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
  3029
     The block is called with 3 arguments, class, method and selector."
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3030
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3031
    |list|
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  3032
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  3033
    "
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3034
     since this may take a long time, lower my priority ...
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  3035
    "
2295
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress.
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  3036
    Processor activeProcess 
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress.
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  3037
        withPriority:Processor activePriority-1 to:Processor activePriority
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress.
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  3038
    do:[
2675
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3039
        list := self findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3040
    ].
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3041
    ^ self browseMethods:list title:title
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  3042
!
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  3043
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3044
browseMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3045
    "launch a browser for all instance- and classmethods from 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3046
     all classes in aCollectionOfClasses where aBlock evaluates to true.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3047
     The block is called with 3 arguments, class, method and seelctor."
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
  3048
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3049
    ^ self 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3050
        browseMethodsIn:aCollectionOfClasses 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3051
        inst:true 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3052
        class:true 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3053
        where:aBlock 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3054
        title:title
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
  3055
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3056
    "Modified: 24.1.1997 / 19:44:17 / cg"
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  3057
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  3058
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3059
browseMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3060
    "launch a browser for all instance- and classmethods in aClass 
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3061
     where aBlock evaluates to true.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3062
     The block is called with 3 arguments, class, method and seelctor."
93
claus
parents: 90
diff changeset
  3063
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3064
    ^ self browseMethodsIn:(Array with:aClass) where:aBlock title:title
93
claus
parents: 90
diff changeset
  3065
!
claus
parents: 90
diff changeset
  3066
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3067
browseMethodsWhere:aBlock title:title
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3068
    "launch a browser for all methods where aBlock returns true.
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3069
     The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3070
996
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3071
    ^ self 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3072
        browseMethodsIn:(Smalltalk allClasses) 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3073
        where:aBlock 
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3074
        title:title
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3075
ed470d0b6029 more generic browseAll protocol;
Claus Gittinger <cg@exept.de>
parents: 929
diff changeset
  3076
    "Modified: 24.1.1997 / 19:44:30 / cg"
2675
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3077
!
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3078
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3079
findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3080
    "return all instance- (if wantInst is true) and/or classmethods (if wantClass is true) 
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3081
     from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3082
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3083
    |list checkedClasses checkBlock|
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3084
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3085
    checkedClasses := IdentitySet new.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3086
    list := OrderedCollection new.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3087
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3088
    checkBlock := [:cls |
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3089
        (checkedClasses includes:cls) ifFalse:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3090
            cls isObsolete ifTrue:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3091
                Transcript showCR:'skipping obsolete class: ' , cls displayString
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3092
            ] ifFalse:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3093
                cls methodDictionary keysAndValuesDo:[:sel :method |
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3094
                    (aBlock value:cls value:method value:sel) ifTrue:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3095
                        list add:method "/ (cls name , ' ' , sel)
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3096
                    ]
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3097
                ].
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3098
                checkedClasses add:cls.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3099
            ]
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3100
        ]
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3101
    ].
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3102
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3103
    aCollectionOfClasses do:[:aClass |
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3104
        aClass isObsolete ifFalse:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3105
            "
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3106
             output disabled - it slows down things too much (when searching for
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3107
             implementors or senders)
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3108
            "
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3109
            wantInst ifTrue:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3110
"/                Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3111
                checkBlock value:aClass
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3112
            ].
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3113
            wantClass ifTrue:[
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3114
"/                Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3115
                checkBlock value:(aClass class)
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3116
            ].
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3117
            Processor yield
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3118
        ]
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3119
    ].
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3120
    ^ list
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3121
!
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3122
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3123
findMethodsIn:aCollectionOfClasses where:aBlock
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3124
    "return all instance- and classmethods 
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3125
     from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3126
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3127
    ^ self
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3128
        findMethodsIn:aCollectionOfClasses 
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3129
        inst:true
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3130
        class:true      
9a1138c3fe76 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2655
diff changeset
  3131
        where:aBlock
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3132
! !
93
claus
parents: 90
diff changeset
  3133
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  3134
!SystemBrowser class methodsFor:'startup with query'!
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3135
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3136
askThenBrowseClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3137
    self getClassThenPerform:#browseClass:
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3138
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3139
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3140
     SystemBrowser askThenBrowseClass
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3141
    "
93
claus
parents: 90
diff changeset
  3142
!
claus
parents: 90
diff changeset
  3143
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3144
askThenBrowseClassHierarchy
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3145
    self getClassThenPerform:#browseClassHierarchy:
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  3146
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3147
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3148
     SystemBrowser askThenBrowseClassHierarchy
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3149
    "
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  3150
!
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  3151
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3152
askThenBrowseFullClassProtocol
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3153
    self getClassThenPerform:#browseFullClassProtocol:
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  3154
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3155
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3156
     SystemBrowser askThenBrowseFullClassProtocol
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3157
    "
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  3158
!
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  3159
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3160
getClassThenPerform:aSelector
2729
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3161
    |enterBox resources|
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3162
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3163
    resources := self classResources.
52
7b48409ae088 *** empty log message ***
claus
parents: 49
diff changeset
  3164
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3165
    enterBox := EnterBox title:(self classResources at:'Browse which class:') withCRs.
2729
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3166
    enterBox okText:(resources at:'browse').
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3167
    enterBox entryCompletionBlock:[:contents |
2729
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3168
        |s what m|
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3169
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3170
        s := contents withoutSpaces.
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3171
        what := Smalltalk classnameCompletion:s.
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3172
        enterBox contents:what first.
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3173
    ].
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3174
    enterBox action:[:className |
2729
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3175
        |cls|
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3176
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3177
        cls := Smalltalk classNamed:className.
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3178
        cls isNil ifTrue:[
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3179
            self warn:(resources at:'no such class').
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3180
        ] ifFalse:[
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3181
            self perform:aSelector with:cls  
9af04074a4bb no direct access to super-class-instvars
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
  3182
        ]
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3183
    ].
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3184
    enterBox showAtPointer
75
f6310cbc93b6 *** empty log message ***
claus
parents: 72
diff changeset
  3185
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3186
    "
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3187
     SystemBrowser getClassThenPerform:#browseClass:
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3188
    "
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  3189
! !
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  3190
2813
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3191
!SystemBrowser class methodsFor:'utilities'!
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3192
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3193
extractClassAndSelectorFrom:aString into:aBlock
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3194
    "given a string which can be either 'class>>sel' or
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3195
     'class sel', extract className and selector, and call aBlock with
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3196
     the result.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3197
     Useful to open browser on a method as selected in some documentation."
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3198
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3199
    |sel clsName isMeta sep s|
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3200
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3201
    sel := aString.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3202
    sel notNil ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3203
        sel := sel asString withoutSeparators.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3204
        ('*>>*' match:sel) ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3205
            sep := $>
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3206
        ] ifFalse:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3207
            ('* *' match:sel) ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3208
                sep := Character space
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3209
            ]
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3210
        ].
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3211
        sep notNil ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3212
            "
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3213
             extract class/sel from selection
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3214
            "
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3215
            s := ReadStream on:sel.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3216
            clsName := s upTo:sep.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3217
            [s peek == sep] whileTrue:[s next].
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3218
            sel := s upToEnd.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3219
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3220
            (clsName endsWith:' class') ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3221
                isMeta := true.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3222
                clsName := clsName copyWithoutLast:6 "copyTo:(clsName size - 5)"
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3223
            ] ifFalse:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3224
                isMeta := false
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3225
            ].
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3226
        ]
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3227
    ].
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3228
    aBlock value:clsName value:sel value:isMeta
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3229
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3230
    "Modified: / 17.6.1996 / 16:52:14 / stefan"
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3231
    "Created: / 6.2.2000 / 00:51:51 / cg"
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3232
    "Modified: / 6.2.2000 / 00:56:43 / cg"
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3233
!
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3234
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3235
extractSelectorFrom:aString
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3236
    "given an arbitrary string, try to extract a useful selector.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3237
     Useful to open browser on a selected code fragment."
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3238
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3239
    |s sel t|
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3240
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3241
    aString isNil ifTrue:[^ nil].
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3242
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3243
    s := aString asString string.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3244
    s := s withoutSeparators.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3245
    sel := s.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3246
    sel knownAsSymbol ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3247
        "/ might be already correct ...
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3248
        ^ sel
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3249
    ].
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3250
    (sel startsWith:'#') ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3251
        t := Symbol readFrom:sel.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3252
        t knownAsSymbol ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3253
            ^ t
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3254
        ]
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3255
    ].
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3256
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3257
    t := Parser selectorInExpression:sel.
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3258
    t notNil ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3259
        sel := t
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3260
    ].
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3261
    (sel = s or:[sel isNil or:[t == #>>]]) ifTrue:[
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3262
        "oops - thats probably not what we want here ..."
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3263
        self extractClassAndSelectorFrom:s into:[:c :s :m |
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3264
            sel := s
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3265
        ]
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3266
    ].
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3267
    ^ sel
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3268
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3269
    "
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3270
     self extractSelectorFrom:'at:put:'      
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3271
     self extractSelectorFrom:'#at:put:'                       
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3272
     self extractSelectorFrom:'at:something put:someValue'     
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3273
     self extractSelectorFrom:'self at:something put:someValue'
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3274
     self extractSelectorFrom:'(self at:something put:someValue)' 
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3275
     self extractSelectorFrom:'[self at:something put:someValue] value' 
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3276
     self extractSelectorFrom:'Array>>at:put:' 
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3277
    "
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3278
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3279
    "Created: / 6.2.2000 / 00:49:44 / cg"
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3280
    "Modified: / 6.2.2000 / 00:57:08 / cg"
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3281
! !
ebef400fdd3b code reuse
Claus Gittinger <cg@exept.de>
parents: 2811
diff changeset
  3282
820
2a412afad51d fixed autoSearch, when searching for a private-classes name
Claus Gittinger <cg@exept.de>
parents: 742
diff changeset
  3283
!SystemBrowser class methodsFor:'documentation'!
93
claus
parents: 90
diff changeset
  3284
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3285
version
2880
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep
Claus Gittinger <cg@exept.de>
parents: 2846
diff changeset
  3286
    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.125 2000-12-06 14:27:18 cg Exp $'
36
ccde5a941840 *** empty log message ***
claus
parents:
diff changeset
  3287
! !
203
de8d39d459fd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
  3288
SystemBrowser initialize!