author | Claus Gittinger <cg@exept.de> |
Sat, 13 Jul 2019 16:02:10 +0200 | |
changeset 18898 | e786d72d82ef |
parent 18730 | 458e1c717b78 |
child 19550 | eb2a3c37d9f3 |
permissions | -rw-r--r-- |
18730 | 1 |
"{ Encoding: utf8 }" |
2 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
COPYRIGHT (c) 2004 by eXept Software AG |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
All Rights Reserved |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
This software is furnished under a license and may be used |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
only in accordance with the terms of that license and with the |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
inclusion of the above copyright notice. This software may not |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
be provided or otherwise made available to, or used by, any |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
other person. No title to or ownership of the software is |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
hereby transferred. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
"{ Package: 'stx:libtool' }" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
"{ NameSpace: Tools }" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
NavigatorModel subclass:#BrowserList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
instanceVariableNames:'menuHolder inGeneratorHolder outGeneratorHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
selectionChangeCondition immediateUpdate doubleClickChannel |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
filter updateTrigger forceGeneratorTrigger hideUnloadedClasses |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
showClassPackages selectionHolder packageFilter nameSpaceFilter |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
organizerMode slaveMode listValid pseudoListLabelHolder icons |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
sortBy autoSelect showAllClassesInNameSpaceOrganisation |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
nameFilter showCoverageInformation searchHandler |
15153 | 26 |
autoUpdateOnChange loadInProgress' |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
classVariableNames:'SynchronousUpdate Icons' |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
poolDictionaries:'' |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
category:'Interface-Browsers-New' |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
32 |
Object subclass:#SearchHandler |
14164
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
33 |
instanceVariableNames:'listView listViewVisualBlock listViewSelectedVisualBlock |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
34 |
listHolder listSelectionHolder searchField searchWindow |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
35 |
searchHolder nextDelegate' |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
classVariableNames:'' |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
37 |
poolDictionaries:'' |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
38 |
privateIn:BrowserList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
39 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
40 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
41 |
!BrowserList class methodsFor:'documentation'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
42 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
43 |
copyright |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
44 |
" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
45 |
COPYRIGHT (c) 2004 by eXept Software AG |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
46 |
All Rights Reserved |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
47 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
This software is furnished under a license and may be used |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
49 |
only in accordance with the terms of that license and with the |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
50 |
inclusion of the above copyright notice. This software may not |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
51 |
be provided or otherwise made available to, or used by, any |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
52 |
other person. No title to or ownership of the software is |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
hereby transferred. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
54 |
" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
55 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
56 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
57 |
documentation |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
58 |
" |
15491 | 59 |
embeddable application displaying a browser's list. |
60 |
I am a pluggable component, which gets an input collection |
|
61 |
(typically a generator/iterator), which tells me what to display |
|
62 |
in the list. |
|
63 |
When an item is selected, I provides a similar outputGenerator, |
|
64 |
which enumerates the selected sub-items. |
|
65 |
Concrete subclasses exist, to present lists of: |
|
66 |
class-categories (and generate a list of classes), |
|
67 |
packages (and generate a list of classes), |
|
68 |
namespaces (generates a list of classes), |
|
69 |
classes (and generate a list of methods+method category, |
|
70 |
method-categories (and generate a list of methods), |
|
71 |
methods |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
72 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
73 |
[author:] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
74 |
Claus Gittinger (cg@exept.de) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
75 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
76 |
[instance variables:] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
77 |
can someone please write a few words here... |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
78 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
79 |
menuHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
80 |
inGeneratorHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
81 |
outGeneratorHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
82 |
selectionChangeCondition |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
83 |
immediateUpdate |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
84 |
doubleClickChannel |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
85 |
filter a filterblock by the one who embedds this |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
86 |
updateTrigger |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
87 |
forceGeneratorTrigger |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
88 |
hideUnloadedClasses |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
89 |
showClassPackages |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
90 |
selectionHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
91 |
packageFilter |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
92 |
nameSpaceFilter |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
93 |
organizerMode |
14913 | 94 |
slaveMode I am just following passively (used for hidden |
95 |
organized lists (for example: package list, while hidden |
|
96 |
when another mode is active, to prevent it from sending |
|
97 |
out change requests etc.) |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
98 |
listValid |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
99 |
pseudoListLabelHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
100 |
icons |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
101 |
sortBy |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
102 |
autoSelect |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
103 |
showAllClassesInNameSpaceOrganisation |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
104 |
nameFilter a string or glob pattern (from the user, if a GUI for that is present) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
105 |
" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
106 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
107 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
108 |
!BrowserList class methodsFor:'image specs'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
109 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
110 |
checkedIcon |
15307 | 111 |
"TODO: cg: ask the checkbox for its icon, to ensure a common look" |
112 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
113 |
"This resource specification was automatically generated |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
114 |
by the ImageEditor of ST/X." |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
115 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
116 |
"Do not manually edit this!! If it is corrupted, |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
117 |
the ImageEditor may not be able to read the specification." |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
118 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
119 |
" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
120 |
self checkedIcon inspect |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
121 |
ImageEditor openOnClass:self andSelector:#checkedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
122 |
Icon flushCachedIcons |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
123 |
" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
124 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
125 |
<resource: #image> |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
126 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
127 |
^ MenuPanel iconIndicationOn |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
128 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
129 |
"/ ^Icon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
130 |
"/ constantNamed:#'Tools::HierarchicalPackageFilterList::PackageItem class checkedIcon' |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
131 |
"/ ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?<O?0??C?<O?0??C?<O?07?C?<O?0??@@@@@@b') ; colorMapFromArray:#[0 0 0 33 161 33]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
132 |
"/?????<@C0@O@D<@30GOH8<7C38OG@<HC0@O@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
133 |
"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
134 |
"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
135 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
136 |
"Created: / 06-11-2008 / 16:32:46 / Jan Vrany <vranyj1@fel.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
137 |
"Modified: / 04-12-2011 / 15:35:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
138 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
139 |
|
14756 | 140 |
checkedIconDisabled |
15307 | 141 |
"TODO: cg: ask the checkbox for its icon, to ensure a common look" |
142 |
||
14756 | 143 |
"This resource specification was automatically generated |
144 |
by the ImageEditor of ST/X." |
|
145 |
||
146 |
"Do not manually edit this!! If it is corrupted, |
|
147 |
the ImageEditor may not be able to read the specification." |
|
148 |
||
149 |
" |
|
150 |
self checkedIcon inspect |
|
151 |
ImageEditor openOnClass:self andSelector:#checkedIcon |
|
152 |
Icon flushCachedIcons |
|
153 |
" |
|
154 |
||
155 |
<resource: #image> |
|
156 |
||
157 |
^ MenuPanel iconIndicationDisabledOn |
|
158 |
||
159 |
"/ ^Icon |
|
160 |
"/ constantNamed:#'Tools::HierarchicalPackageFilterList::PackageItem class checkedIcon' |
|
161 |
"/ ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?<O?0??C?<O?0??C?<O?07?C?<O?0??@@@@@@b') ; colorMapFromArray:#[0 0 0 33 161 33]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
162 |
"/?????<@C0@O@D<@30GOH8<7C38OG@<HC0@O@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
163 |
"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
164 |
"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself] |
|
165 |
||
166 |
"Created: / 08-10-2014 / 22:53:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
167 |
! |
|
168 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
169 |
nameSpaceIcon |
18293 | 170 |
<resource: #programImage> |
171 |
||
172 |
^ ToolbarIconLibrary nameSpaceBrowserIcon |
|
173 |
||
174 |
"Modified: / 28-07-2018 / 09:39:00 / Claus Gittinger" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
175 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
176 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
177 |
packageIcon |
18293 | 178 |
<resource: #programImage> |
179 |
||
180 |
^ ToolbarIconLibrary packageIcon |
|
181 |
||
182 |
"Modified: / 28-07-2018 / 09:41:18 / Claus Gittinger" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
183 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
184 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
185 |
padLockBlueMiniIcon |
18293 | 186 |
<resource: #programImage> |
187 |
||
188 |
^ ToolbarIconLibrary padLockBlueMiniIcon |
|
189 |
||
190 |
"Modified: / 28-07-2018 / 09:41:53 / Claus Gittinger" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
191 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
192 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
193 |
padLockGrayMiniIcon |
18293 | 194 |
<resource: #programImage> |
195 |
||
196 |
^ ToolbarIconLibrary padLockGrayMiniIcon |
|
197 |
||
198 |
"Modified: / 28-07-2018 / 09:41:58 / Claus Gittinger" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
199 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
200 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
201 |
padLockGreenMiniIcon |
18293 | 202 |
<resource: #programImage> |
203 |
||
204 |
^ ToolbarIconLibrary padLockGreenMiniIcon |
|
205 |
||
206 |
"Modified: / 28-07-2018 / 09:42:03 / Claus Gittinger" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
207 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
208 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
209 |
padLockRedMiniIcon |
18293 | 210 |
<resource: #programImage> |
211 |
||
212 |
^ ToolbarIconLibrary padLockRedMiniIcon |
|
213 |
||
214 |
"Modified: / 28-07-2018 / 09:33:54 / Claus Gittinger" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
215 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
216 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
217 |
programImageIcon |
18293 | 218 |
<resource: #programImage> |
219 |
||
220 |
^ ToolbarIconLibrary programImageIcon |
|
221 |
||
222 |
"Modified: / 28-07-2018 / 09:43:58 / Claus Gittinger" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
223 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
224 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
225 |
protectedMethod |
18293 | 226 |
<resource: #programImage> |
227 |
||
228 |
^ ToolbarIconLibrary padLockRedMiniIcon |
|
229 |
||
230 |
"Modified: / 28-07-2018 / 09:44:16 / Claus Gittinger" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
231 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
232 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
233 |
uncheckedIcon |
15307 | 234 |
"TODO: cg: ask the checkbox for its icon, to ensure a common look" |
235 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
236 |
"This resource specification was automatically generated |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
237 |
by the ImageEditor of ST/X." |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
238 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
239 |
"Do not manually edit this!! If it is corrupted, |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
240 |
the ImageEditor may not be able to read the specification." |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
241 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
242 |
" |
15306 | 243 |
self uncheckedIcon inspect |
244 |
ImageEditor openOnClass:self andSelector:#uncheckedIcon |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
245 |
Icon flushCachedIcons |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
246 |
" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
247 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
248 |
<resource: #image> |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
249 |
|
15306 | 250 |
^Icon |
251 |
constantNamed:'Tools::BrowserList uncheckedIcon' |
|
252 |
ifAbsentPut:[(Depth8Image new) width:13; height:13; bits:(ByteArray fromPackedString:' |
|
253 |
G!!8^G!!8^G!!8^G!!8^G!!8,KB0,KB0,KB0,KA8^KA@PDA@PDCT)HR0^G"0PJ"(*J \QLR4,G!!8,DB(*@RX3E TUKA8^KA@4L <1F"8CHB0^G"00DQ$[@2\SD0$, |
|
254 |
G!!8,IQXW@"LLC@0_KA8^K@8\H!!LLKAH,K20^G"0XH!!LTKB (JBP,G!!8,J04@A@ JA ,]KA8^KB0,KB0,KB0,KB0^G!!8^G!!8^G!!8^G!!8^G @a') ; colorMapFromArray:#[219 219 220 205 209 214 234 234 234 232 232 232 224 225 225 226 227 228 235 236 236 208 211 216 230 231 231 212 213 214 234 235 235 235 235 236 242 242 242 212 212 213 188 191 194 212 215 219 174 179 185 213 216 220 245 245 245 237 237 237 240 240 240 198 199 200 221 223 225 228 229 229 194 196 198 218 220 223 225 226 227 224 225 227 227 228 229 233 233 234 142 143 143 220 221 222 204 205 205 187 190 193 233 233 233 239 239 239 230 230 230 184 187 191 210 213 218 236 236 236 246 246 246 180 185 189 203 207 213 202 203 204 244 244 244 193 195 197 229 230 230 225 226 226 178 183 188 219 221 223 208 212 217 216 219 222 205 209 215 175 180 186]; yourself] |
|
14756 | 255 |
! |
256 |
||
257 |
uncheckedIconDisabled |
|
15307 | 258 |
"TODO: cg: ask the checkbox for its icon, to ensure a common look" |
259 |
||
14756 | 260 |
"This resource specification was automatically generated |
261 |
by the ImageEditor of ST/X." |
|
262 |
||
263 |
"Do not manually edit this!! If it is corrupted, |
|
264 |
the ImageEditor may not be able to read the specification." |
|
265 |
||
266 |
" |
|
15306 | 267 |
self uncheckedIconDisabled inspect |
268 |
ImageEditor openOnClass:self andSelector:#uncheckedIconDisabled |
|
14756 | 269 |
Icon flushCachedIcons |
270 |
" |
|
271 |
||
272 |
<resource: #image> |
|
273 |
||
15306 | 274 |
^Icon |
275 |
constantNamed:'Tools::BrowserList uncheckedIconDisabled' |
|
276 |
ifAbsentPut:[(Depth8Image new) width:13; height:13; bits:(ByteArray fromPackedString:' |
|
277 |
LC@0LC@0LC@0LC@0LC@GA0\GA0\GA0\GA3@0A2H"H"H"H!!@DL0\0L@\"APTEAQ #C@ GLC@GH TED D]JAX''A3@0A2HOCRDLK@$TL \0L@\KH2,-E@H%IQ(G |
|
278 |
LC@G@B )D3T^G!!81A3@0A2@.MBT^A2PGB \0L@\*MBT&A0LC@08GLC@GA!!<QEQ$[E10/A3@0A0\GA0\GA0\GA0\0LC@0LC@0LC@0LC@0L@@a') ; colorMapFromArray:#[184 187 191 210 213 218 236 236 236 246 246 246 180 185 189 203 207 213 202 203 204 244 244 244 193 195 197 229 230 230 225 226 226 178 183 188 219 221 223 208 212 217 230 230 230 205 209 215 175 180 186 219 219 220 205 209 214 234 234 234 232 232 232 224 225 225 226 227 228 235 236 236 208 211 216 230 231 231 212 213 214 234 235 235 235 235 236 216 219 222 242 242 242 212 212 213 188 191 194 212 215 219 174 179 185 213 216 220 245 245 245 237 237 237 240 240 240 198 199 200 221 223 225 228 229 229 194 196 198 218 220 223 225 226 227 224 225 227 227 228 229 233 233 234 142 143 143 220 221 222 204 205 205 187 190 193 233 233 233 239 239 239]; yourself] |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
279 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
280 |
|
15156 | 281 |
!BrowserList class methodsFor:'queries'! |
282 |
||
283 |
isAbstract |
|
284 |
^ self == Tools::BrowserList |
|
285 |
! ! |
|
286 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
287 |
!BrowserList methodsFor:'accessing'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
288 |
|
17739 | 289 |
nameFilter:aStringOrPattern |
290 |
nameFilter ~= aStringOrPattern ifTrue:[ |
|
291 |
nameFilter := aStringOrPattern. |
|
292 |
self enqueueDelayedUpdateList. |
|
293 |
]. |
|
294 |
||
295 |
"Modified: / 09-11-2017 / 19:52:55 / cg" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
296 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
297 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
298 |
!BrowserList methodsFor:'aspects'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
299 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
300 |
autoUpdateOnChange |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
301 |
"automatic update of the list, when the system changes. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
302 |
For some (slow) search lists (such as string-search), autoupdate is |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
303 |
disabled as it would otherwise make the browser unusable. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
304 |
Those lists need an explicit menu-update action." |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
305 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
306 |
^ autoUpdateOnChange ? true. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
307 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
308 |
"Modified: / 24-02-2000 / 23:57:13 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
309 |
"Created: / 15-05-2012 / 11:16:07 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
310 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
311 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
312 |
autoUpdateOnChange: aBoolean |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
313 |
"automatic update of the list, when the system changes. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
314 |
For some (slow) search lists (such as string-search), autoupdate is |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
315 |
disabled as it would otherwise make the browser unusable. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
316 |
Those lists need an explicit menu-update action." |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
317 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
318 |
autoUpdateOnChange := aBoolean |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
319 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
320 |
"Modified: / 24-02-2000 / 23:57:13 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
321 |
"Created: / 15-05-2012 / 11:17:18 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
322 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
323 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
324 |
defaultSlaveModeValue |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
325 |
^ nil. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
326 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
327 |
"Created: / 25.2.2000 / 22:36:40 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
328 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
329 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
330 |
doubleClickChannel |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
331 |
doubleClickChannel isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
332 |
doubleClickChannel := TriggerValue new. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
333 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
334 |
^ doubleClickChannel. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
335 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
336 |
"Modified: / 31.1.2000 / 00:42:44 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
337 |
"Created: / 5.2.2000 / 22:38:32 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
338 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
339 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
340 |
doubleClickChannel:aChannel |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
341 |
doubleClickChannel := aChannel |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
342 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
343 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
344 |
filter:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
345 |
filter notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
346 |
filter removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
347 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
348 |
filter := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
349 |
filter notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
350 |
filter addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
351 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
352 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
353 |
"Modified: / 4.2.2000 / 23:29:30 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
354 |
"Created: / 5.2.2000 / 13:42:12 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
355 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
356 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
357 |
forceGeneratorTrigger |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
358 |
forceGeneratorTrigger isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
359 |
forceGeneratorTrigger := TriggerValue new. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
360 |
forceGeneratorTrigger addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
361 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
362 |
^ forceGeneratorTrigger. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
363 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
364 |
"Modified: / 18.2.2000 / 02:02:52 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
365 |
"Created: / 18.2.2000 / 02:46:40 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
366 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
367 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
368 |
forceGeneratorTrigger:aTriggerValue |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
369 |
forceGeneratorTrigger notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
370 |
forceGeneratorTrigger removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
371 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
372 |
forceGeneratorTrigger := aTriggerValue. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
373 |
forceGeneratorTrigger notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
374 |
forceGeneratorTrigger addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
375 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
376 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
377 |
"Modified: / 4.2.2000 / 23:29:30 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
378 |
"Created: / 18.2.2000 / 02:46:52 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
379 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
380 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
381 |
hideUnloadedClasses |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
382 |
hideUnloadedClasses isNil ifTrue:[ |
15265 | 383 |
hideUnloadedClasses := ValueHolder with:false. |
384 |
hideUnloadedClasses addDependent:self. |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
385 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
386 |
^ hideUnloadedClasses. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
387 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
388 |
"Modified: / 18.2.2000 / 02:02:52 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
389 |
"Created: / 18.2.2000 / 17:36:30 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
390 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
391 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
392 |
hideUnloadedClasses:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
393 |
hideUnloadedClasses notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
394 |
hideUnloadedClasses removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
395 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
396 |
hideUnloadedClasses := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
397 |
hideUnloadedClasses notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
398 |
hideUnloadedClasses addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
399 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
400 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
401 |
"Modified: / 4.2.2000 / 23:29:30 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
402 |
"Created: / 18.2.2000 / 17:46:36 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
403 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
404 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
405 |
menuHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
406 |
^ menuHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
407 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
408 |
"Created: / 5.2.2000 / 13:42:06 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
409 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
410 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
411 |
menuHolder:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
412 |
menuHolder := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
413 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
414 |
"Created: / 5.2.2000 / 13:42:06 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
415 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
416 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
417 |
nameSpaceFilter |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
418 |
nameSpaceFilter isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
419 |
nameSpaceFilter := ValueHolder new. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
420 |
nameSpaceFilter addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
421 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
422 |
^ nameSpaceFilter. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
423 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
424 |
"Modified: / 24.2.2000 / 23:57:13 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
425 |
"Created: / 18.8.2000 / 14:18:56 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
426 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
427 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
428 |
nameSpaceFilter:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
429 |
nameSpaceFilter notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
430 |
nameSpaceFilter removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
431 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
432 |
nameSpaceFilter := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
433 |
nameSpaceFilter notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
434 |
nameSpaceFilter addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
435 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
436 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
437 |
"Modified: / 24.2.2000 / 23:56:22 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
438 |
"Created: / 18.8.2000 / 14:19:06 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
439 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
440 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
441 |
organizerMode |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
442 |
organizerMode isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
443 |
organizerMode := OrganizerCanvas organizerModeCategory asValue. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
444 |
organizerMode addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
445 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
446 |
^ organizerMode |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
447 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
448 |
"Modified: / 31.1.2000 / 00:51:06 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
449 |
"Created: / 25.2.2000 / 22:36:15 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
450 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
451 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
452 |
organizerMode:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
453 |
organizerMode notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
454 |
organizerMode removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
455 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
456 |
organizerMode := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
457 |
organizerMode notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
458 |
organizerMode addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
459 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
460 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
461 |
"Modified: / 4.2.2000 / 23:34:28 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
462 |
"Created: / 25.2.2000 / 22:36:28 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
463 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
464 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
465 |
packageFilter |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
466 |
packageFilter isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
467 |
packageFilter := ValueHolder new. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
468 |
packageFilter addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
469 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
470 |
"/ debug-check only |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
471 |
"/ packageFilter onChangeEvaluate:[packageFilter value isValueModel ifTrue:[self halt:'debug halt']]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
472 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
473 |
^ packageFilter. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
474 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
475 |
"Modified: / 18.8.2000 / 19:26:36 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
476 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
477 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
478 |
packageFilter:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
479 |
packageFilter notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
480 |
packageFilter removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
481 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
482 |
packageFilter := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
483 |
packageFilter notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
484 |
packageFilter addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
485 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
486 |
"/ debug-check only |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
487 |
"/ packageFilter onChangeEvaluate:[packageFilter value isValueModel ifTrue:[self halt:'debug halt']]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
488 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
489 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
490 |
"Modified: / 18.8.2000 / 19:26:40 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
491 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
492 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
493 |
pseudoListLabelHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
494 |
pseudoListLabelHolder isNil ifTrue:[ |
15265 | 495 |
pseudoListLabelHolder := ValueHolder with:''. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
496 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
497 |
^ pseudoListLabelHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
498 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
499 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
500 |
selectionChangeCondition:aBlockOrValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
501 |
selectionChangeCondition := aBlockOrValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
502 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
503 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
504 |
selectionHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
505 |
selectionHolder isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
506 |
selectionHolder := ValueHolder new. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
507 |
selectionHolder addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
508 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
509 |
^ selectionHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
510 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
511 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
512 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
513 |
selectionHolder:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
514 |
|prevSelection| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
515 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
516 |
prevSelection := selectionHolder value ? #(). |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
517 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
518 |
selectionHolder notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
519 |
selectionHolder removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
520 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
521 |
selectionHolder := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
522 |
selectionHolder notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
523 |
selectionHolder addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
524 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
525 |
(selectionHolder value ? #()) ~= prevSelection ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
526 |
"/ update |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
527 |
self update:#value with:nil from:selectionHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
528 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
529 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
530 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
531 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
532 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
533 |
showAllClassesInNameSpaceOrganisation |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
534 |
^[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
535 |
|holder| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
536 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
537 |
showAllClassesInNameSpaceOrganisation notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
538 |
holder := showAllClassesInNameSpaceOrganisation |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
539 |
] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
540 |
masterApplication notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
541 |
holder := masterApplication perform:#showAllClassesInNameSpaceOrganisation ifNotUnderstood:nil. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
542 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
543 |
holder notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
544 |
holder addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
545 |
] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
546 |
showAllClassesInNameSpaceOrganisation isNil ifTrue:[ |
15265 | 547 |
showAllClassesInNameSpaceOrganisation := ValueHolder with:false. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
548 |
showAllClassesInNameSpaceOrganisation addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
549 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
550 |
holder := showAllClassesInNameSpaceOrganisation. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
551 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
552 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
553 |
holder value |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
554 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
555 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
556 |
"Created: / 05-03-2007 / 16:47:03 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
557 |
"Modified: / 04-07-2011 / 21:49:10 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
558 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
559 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
560 |
showAllClassesInNameSpaceOrganisation:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
561 |
showAllClassesInNameSpaceOrganisation notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
562 |
showAllClassesInNameSpaceOrganisation removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
563 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
564 |
showAllClassesInNameSpaceOrganisation := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
565 |
showAllClassesInNameSpaceOrganisation notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
566 |
showAllClassesInNameSpaceOrganisation addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
567 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
568 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
569 |
"Created: / 05-03-2007 / 16:47:13 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
570 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
571 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
572 |
showClassPackages |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
573 |
showClassPackages isNil ifTrue:[ |
15265 | 574 |
showClassPackages := ValueHolder with:false. |
575 |
showClassPackages addDependent:self. |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
576 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
577 |
^ showClassPackages. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
578 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
579 |
"Modified: / 18.2.2000 / 02:02:52 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
580 |
"Created: / 18.2.2000 / 17:36:30 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
581 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
582 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
583 |
showClassPackages:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
584 |
showClassPackages notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
585 |
showClassPackages removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
586 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
587 |
showClassPackages := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
588 |
showClassPackages notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
589 |
showClassPackages addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
590 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
591 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
592 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
593 |
showCoverageInformation |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
594 |
showCoverageInformation isNil ifTrue:[ |
15265 | 595 |
showCoverageInformation := ValueHolder with:false. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
596 |
showCoverageInformation addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
597 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
598 |
^ showCoverageInformation. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
599 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
600 |
"Created: / 27-04-2010 / 16:13:16 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
601 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
602 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
603 |
showCoverageInformation:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
604 |
showCoverageInformation notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
605 |
showCoverageInformation removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
606 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
607 |
showCoverageInformation := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
608 |
showCoverageInformation notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
609 |
showCoverageInformation addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
610 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
611 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
612 |
"Created: / 27-04-2010 / 16:13:20 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
613 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
614 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
615 |
slaveMode |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
616 |
slaveMode isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
617 |
slaveMode := self defaultSlaveModeValue asValue. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
618 |
slaveMode addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
619 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
620 |
^ slaveMode. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
621 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
622 |
"Created: / 25.2.2000 / 22:36:40 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
623 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
624 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
625 |
slaveMode:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
626 |
|prev| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
627 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
628 |
slaveMode notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
629 |
slaveMode removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
630 |
prev := slaveMode value. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
631 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
632 |
slaveMode := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
633 |
slaveMode notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
634 |
slaveMode addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
635 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
636 |
prev ~~ slaveMode value ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
637 |
(prev isNil and:[slaveMode value]) ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
638 |
self update:#value with:nil from:slaveMode. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
639 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
640 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
641 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
642 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
643 |
sortBy |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
644 |
sortBy isNil ifTrue:[ |
15265 | 645 |
sortBy := ValueHolder with:nil. |
646 |
sortBy addDependent:self. |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
647 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
648 |
^ sortBy. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
649 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
650 |
"Created: / 25.2.2000 / 22:36:40 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
651 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
652 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
653 |
sortBy:aValueHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
654 |
|prev| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
655 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
656 |
prev := sortBy value. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
657 |
sortBy notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
658 |
sortBy removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
659 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
660 |
sortBy := aValueHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
661 |
sortBy notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
662 |
sortBy addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
663 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
664 |
prev ~~ sortBy value ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
665 |
self update:#value with:nil from:sortBy. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
666 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
667 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
668 |
"Modified: / 4.2.2000 / 23:29:30 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
669 |
"Created: / 5.2.2000 / 13:42:12 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
670 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
671 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
672 |
updateTrigger |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
673 |
updateTrigger isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
674 |
updateTrigger := TriggerValue new. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
675 |
updateTrigger addDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
676 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
677 |
^ updateTrigger. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
678 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
679 |
"Created: / 18.2.2000 / 01:59:58 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
680 |
"Modified: / 18.2.2000 / 02:02:52 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
681 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
682 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
683 |
updateTrigger:aTriggerValue |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
684 |
updateTrigger notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
685 |
updateTrigger removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
686 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
687 |
updateTrigger := aTriggerValue. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
688 |
updateTrigger notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
689 |
updateTrigger addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
690 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
691 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
692 |
"Modified: / 4.2.2000 / 23:29:30 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
693 |
"Created: / 18.2.2000 / 02:03:15 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
694 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
695 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
696 |
!BrowserList methodsFor:'change & update'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
697 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
698 |
applicationIsActive |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
699 |
"true if I am the active view" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
700 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
701 |
|wg activeView| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
702 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
703 |
(wg := self windowGroup) isNil ifTrue:[ ^ true ]. "/ I am being initialized |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
704 |
self device isNil ifTrue:[ ^ true ]. "/ I am being initialized |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
705 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
706 |
(activeView := self device activeView) isNil ifTrue:[ "Transcript showCR:'nil active'." ^ false ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
707 |
"/Transcript showCR:'active view: ',(activeView printString). |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
708 |
"/Transcript showCR:'active wg: ',(activeView windowGroup printString). |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
709 |
"/Transcript showCR:'my wg: ',wg printString. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
710 |
^ activeView windowGroup == wg |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
711 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
712 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
713 |
delayedUpdate:something with:aParameter from:changedObject |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
714 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
715 |
"/ if any of my subclasses want those, they should look for them. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
716 |
changedObject == environment ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
717 |
(something == #Language or:[something == #LanguageTerritory]) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
718 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
719 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
720 |
something == #organization ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
721 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
722 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
723 |
something == #classDefinition ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
724 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
725 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
726 |
something == #classVariables ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
727 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
728 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
729 |
something == #methodTrap ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
730 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
731 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
732 |
something == #methodInClassRemoved ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
733 |
^ self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
734 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
735 |
something == #methodDictionary ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
736 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
737 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
738 |
something == #newClass ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
739 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
740 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
741 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
742 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
743 |
changedObject == slaveMode ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
744 |
slaveMode value ~~ true ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
745 |
listValid ~~ true ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
746 |
self updateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
747 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
748 |
self updateOutputGenerator. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
749 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
750 |
^ self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
751 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
752 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
753 |
changedObject == selectionHolder ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
754 |
listValid ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
755 |
self updateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
756 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
757 |
^ self selectionChanged |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
758 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
759 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
760 |
changedObject == forceGeneratorTrigger ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
761 |
self updateOutputGenerator. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
762 |
^ self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
763 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
764 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
765 |
changedObject == hideUnloadedClasses ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
766 |
self invalidateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
767 |
slaveMode value ~~ true ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
768 |
self updateOutputGenerator. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
769 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
770 |
^ self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
771 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
772 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
773 |
changedObject == updateTrigger ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
774 |
self enqueueDelayedUpdateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
775 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
776 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
777 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
778 |
changedObject == inGeneratorHolder ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
779 |
self invalidateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
780 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
781 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
782 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
783 |
"/ changedObject == outGeneratorHolder ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
784 |
"/ self enqueueDelayedUpdateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
785 |
"/ ^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
786 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
787 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
788 |
changedObject == packageFilter ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
789 |
self invalidateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
790 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
791 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
792 |
changedObject == nameSpaceFilter ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
793 |
self invalidateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
794 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
795 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
796 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
797 |
changedObject == organizerMode ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
798 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
799 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
800 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
801 |
self invalidateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
802 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
803 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
804 |
"Created: / 05-02-2000 / 13:42:06 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
805 |
"Modified: / 18-08-2000 / 14:19:24 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
806 |
"Modified (format): / 25-02-2014 / 10:02:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
807 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
808 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
809 |
enqueueDelayedUpdateList |
14853 | 810 |
self setListValid:false. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
811 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
812 |
(NewSystemBrowser synchronousUpdate == true |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
813 |
or:[ immediateUpdate value == true ]) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
814 |
ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
815 |
self updateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
816 |
^ self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
817 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
818 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
819 |
(self applicationIsActive) ifTrue:[ |
18698 | 820 |
self enqueueMessage:#updateList |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
821 |
] ifFalse:[ |
18698 | 822 |
self enqueueMessage:#updateListInBackground |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
823 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
824 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
825 |
"Modified: / 05-06-2012 / 23:38:18 / cg" |
18698 | 826 |
"Modified: / 16-03-2019 / 14:19:14 / Claus Gittinger" |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
827 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
828 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
829 |
enqueueDelayedUpdateOutputGenerator |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
830 |
(NewSystemBrowser synchronousUpdate == true |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
831 |
or:[ immediateUpdate value == true ]) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
832 |
ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
833 |
self updateOutputGenerator. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
834 |
^ self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
835 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
836 |
"/ listValid := false. |
18698 | 837 |
self enqueueMessage:#updateOutputGenerator |
838 |
||
839 |
"Modified: / 16-03-2019 / 14:10:37 / Claus Gittinger" |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
840 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
841 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
842 |
environmentChanged |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
843 |
super environmentChanged. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
844 |
self updateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
845 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
846 |
"Created: / 24-02-2014 / 10:20:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
847 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
848 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
849 |
forceReselect |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
850 |
|selectionHolder prevSelection| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
851 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
852 |
selectionHolder := self selectionHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
853 |
prevSelection := selectionHolder value. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
854 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
855 |
selectionHolder class == ValueHolder ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
856 |
selectionHolder changed:#value with:prevSelection. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
857 |
] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
858 |
selectionHolder setValue:nil. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
859 |
selectionHolder value:prevSelection. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
860 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
861 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
862 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
863 |
forceSelectionClear |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
864 |
self selectionHolder setValue:nil |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
865 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
866 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
867 |
forceUpdateList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
868 |
"/ |listView| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
869 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
870 |
"/ listView := builder componentAt:#List. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
871 |
"/ listView notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
872 |
"/ listView list:#() |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
873 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
874 |
self updateList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
875 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
876 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
877 |
immediateUpdate:aBooleanOrBooleanHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
878 |
immediateUpdate := aBooleanOrBooleanHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
879 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
880 |
"Created: / 13.2.2000 / 22:26:06 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
881 |
"Modified: / 13.2.2000 / 22:28:09 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
882 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
883 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
884 |
prioDelayedUpdate:something with:aParameter from:changedObject |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
885 |
Processor activeProcess withLowerPriorityDo:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
886 |
self delayedUpdate:something with:aParameter from:changedObject |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
887 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
888 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
889 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
890 |
selectionChangeAllowed |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
891 |
selectionChangeCondition isNil ifTrue:[^ true]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
892 |
selectionChangeCondition isBlock ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
893 |
selectionChangeCondition numArgs == 1 ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
894 |
^ selectionChangeCondition value:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
895 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
896 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
897 |
^ selectionChangeCondition value |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
898 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
899 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
900 |
selectionChanged |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
901 |
slaveMode value ~~ true ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
902 |
self enqueueDelayedUpdateOutputGenerator |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
903 |
"/ self updateOutputGenerator. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
904 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
905 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
906 |
"Modified: / 4.2.2000 / 15:49:23 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
907 |
"Created: / 5.2.2000 / 13:42:07 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
908 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
909 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
910 |
selectionChangedByClick |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
911 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
912 |
"Created: / 25.2.2000 / 21:19:25 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
913 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
914 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
915 |
syncDelayedUpdateList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
916 |
|sensor| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
917 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
918 |
sensor := self window sensor. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
919 |
sensor isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
920 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
921 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
922 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
923 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
924 |
"/ if an update is in the queue, process it. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
925 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
926 |
(sensor |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
927 |
hasEvent:#updateList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
928 |
for:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
929 |
withArguments:#() |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
930 |
) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
931 |
sensor flushEventsFor:self withType:#updateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
932 |
self updateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
933 |
^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
934 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
935 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
936 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
937 |
update:something with:aParameter from:changedObject |
15972 | 938 |
|window| |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
939 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
940 |
changedObject == environmentHolder ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
941 |
self environmentChanged. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
942 |
^ self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
943 |
]. |
15222 | 944 |
(changedObject == Smalltalk) ifTrue:[ |
15510 | 945 |
(#( preLoad prePackageLoad preClassLoad ) includes:something) ifTrue:[ |
15222 | 946 |
loadInProgress := true. |
947 |
^ self. |
|
948 |
]. |
|
15510 | 949 |
(#( postLoad postPackageLoad postClassLoad ) includes:something) ifTrue:[ |
15222 | 950 |
"/ must check, as it could be nested... |
951 |
LoadInProgressQuery query ifFalse:[ |
|
952 |
loadInProgress := false. |
|
953 |
]. |
|
954 |
^ self. |
|
955 |
]. |
|
956 |
]. |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
957 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
958 |
(NewSystemBrowser synchronousUpdate == true |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
959 |
or:[ immediateUpdate value == true ]) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
960 |
ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
961 |
self delayedUpdate:something with:aParameter from:changedObject. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
962 |
^ self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
963 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
964 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
965 |
"/ changedObject == selectionHolder ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
966 |
"/ listValid ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
967 |
"/ self inSlaveMode ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
968 |
"/ ^ self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
969 |
"/ ] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
970 |
"/ ] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
971 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
972 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
973 |
changedObject == inGeneratorHolder ifTrue:[ |
14853 | 974 |
self setListValid:false. |
14883 | 975 |
"/ if not shown, this will be done when opened. |
976 |
"/ if shown, it will be done in delayedUpdate. |
|
977 |
"/ self invalidateList. "/ setListValid:false. |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
978 |
]. |
14866 | 979 |
|
15972 | 980 |
((window := self window) notNil and:[window isOpen]) ifFalse:[ |
14870 | 981 |
^ self |
982 |
]. |
|
15972 | 983 |
window sensor userEventCount > 100 ifTrue:[ |
14866 | 984 |
listValid ifTrue:[ |
985 |
"/ enqueue a full update. |
|
986 |
self setListValid:false. |
|
18698 | 987 |
self enqueueMessage:#updateList. |
14866 | 988 |
]. |
989 |
^ self |
|
990 |
]. |
|
991 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
992 |
self enqueueDelayedUpdate:something with:aParameter from:changedObject. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
993 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
994 |
"Created: / 05-02-2000 / 13:42:07 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
995 |
"Modified: / 13-11-2001 / 11:30:19 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
996 |
"Modified: / 25-02-2014 / 09:05:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
18698 | 997 |
"Modified: / 16-03-2019 / 14:19:18 / Claus Gittinger" |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
998 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
999 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1000 |
updateListInBackground |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1001 |
self executeInBackground:[self updateList] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1002 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1003 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1004 |
!BrowserList methodsFor:'drag & drop'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1005 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1006 |
canDrop: aDropContext |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1007 |
^ self canDropContext: aDropContext |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1008 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1009 |
"Created: / 03-07-2007 / 15:59:06 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1010 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1011 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1012 |
doDrop: aDropContext |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1013 |
^ self doDropContext: aDropContext |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1014 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1015 |
"Created: / 03-07-2007 / 15:59:33 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1016 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1017 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1018 |
dropClassFiles:files |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1019 |
files do:[:fn | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1020 |
(Dialog confirm:(resources string:'FileIn %1 ?' with:fn baseName allBold)) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1021 |
environment fileIn:fn logged:true. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1022 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1023 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1024 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1025 |
"Created: / 17-10-2006 / 18:24:36 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1026 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1027 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1028 |
objectsAreClassFiles:objects |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1029 |
(objects conform:[:anObject | anObject isFilename]) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1030 |
|files| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1031 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1032 |
files := objects. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1033 |
^ files conform:[:aFilename | aFilename exists |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1034 |
and:[ aFilename suffix = 'st' |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1035 |
and:[ aFilename isRegularFile ]]] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1036 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1037 |
^ false |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1038 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1039 |
"Created: / 17-10-2006 / 18:25:40 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1040 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1041 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1042 |
!BrowserList methodsFor:'generators'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1043 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1044 |
inGeneratorHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1045 |
^ inGeneratorHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1046 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1047 |
"Created: / 5.2.2000 / 13:42:07 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1048 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1049 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1050 |
inGeneratorHolder:aConditionBlockHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1051 |
|prevHolder| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1052 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1053 |
(prevHolder := inGeneratorHolder) notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1054 |
inGeneratorHolder removeDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1055 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1056 |
inGeneratorHolder := aConditionBlockHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1057 |
inGeneratorHolder notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1058 |
inGeneratorHolder addDependent:self |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1059 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1060 |
(prevHolder notNil or:[inGeneratorHolder notNil]) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1061 |
true "self window shown" ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1062 |
"/ self enqueueDelayedUpdateList - will be done anyway, when shown |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1063 |
] ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1064 |
(prevHolder value isNil and:[ inGeneratorHolder value isEmptyOrNil]) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1065 |
ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1066 |
self update:#value with:nil from:inGeneratorHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1067 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1068 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1069 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1070 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1071 |
"Modified: / 12-03-2007 / 11:31:23 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1072 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1073 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1074 |
makeGenerator |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1075 |
self subclassResponsibility |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1076 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1077 |
"Created: / 5.2.2000 / 13:42:07 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1078 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1079 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1080 |
outGeneratorHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1081 |
outGeneratorHolder isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1082 |
outGeneratorHolder := ValueHolder new |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1083 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1084 |
^ outGeneratorHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1085 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1086 |
"Modified: / 4.2.2000 / 17:17:16 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1087 |
"Created: / 5.2.2000 / 13:42:07 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1088 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1089 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1090 |
outGeneratorHolder:aConditionBlockHolder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1091 |
outGeneratorHolder := aConditionBlockHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1092 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1093 |
"Created: / 5.2.2000 / 13:42:08 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1094 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1095 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1096 |
updateOutputGenerator |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1097 |
"create a generator which enumerates my elements, |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1098 |
and place it into the outputGenerator holder" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1099 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1100 |
self outGeneratorHolder value: self makeGenerator. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1101 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1102 |
"Modified: / 4.2.2000 / 17:16:34 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1103 |
"Created: / 5.2.2000 / 13:42:08 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1104 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1105 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1106 |
!BrowserList methodsFor:'icons'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1107 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1108 |
abstractMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1109 |
"answer an icon to mark abstract methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1110 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1111 |
^ self fetchIcon:#abstractMethod selector:#abstractMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1112 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1113 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1114 |
breakPointedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1115 |
"answer an icon to mark breakPointed methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1116 |
<resource: #obsolete> |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1117 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1118 |
^ self lineBreakPointedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1119 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1120 |
"Modified: / 05-03-2014 / 10:29:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1121 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1122 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1123 |
canvasIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1124 |
"answer an icon to mark canvas spec methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1125 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1126 |
^ self fetchIcon:#canvas selector:#canvasIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1127 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1128 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1129 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1130 |
deprecatedMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1131 |
^ self fetchIcon:#deprecatedMethodIcon selector:#deprecatedMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1132 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1133 |
|
16892 | 1134 |
disabledBreakpointIcon |
1135 |
"answer an icon to mark methods with disabled breakpoints" |
|
1136 |
||
1137 |
^ self fetchIcon:#disabledBreakpointIcon selector:#disabledBreakpointIcon |
|
1138 |
! |
|
1139 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1140 |
fetchIcon:name selector:fetchSelector |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1141 |
"answer an icon to mark methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1142 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1143 |
icons isNil ifTrue:[icons := IdentityDictionary new]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1144 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1145 |
^ icons at:name ifAbsentPut:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1146 |
|icn fh h| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1147 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1148 |
icn := (SystemBrowser perform:fetchSelector) onDevice:device. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1149 |
h := icn height. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1150 |
h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1151 |
icn := icn magnifiedBy:(fh / h) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1152 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1153 |
icn onDevice:device |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1154 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1155 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1156 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1157 |
fileImageIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1158 |
"answer an icon to mark file-image spec methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1159 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1160 |
^ self fetchIcon:#fileImage selector:#fileImageIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1161 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1162 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1163 |
fullBreakPointedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1164 |
"answer an icon to mark breakPointed methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1165 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1166 |
^ self fetchIcon:#fullBreakPointedIcon selector:#fullBreakPointedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1167 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1168 |
"Created: / 05-03-2014 / 10:18:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1169 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1170 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1171 |
helpIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1172 |
"answer an icon to mark help spec methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1173 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1174 |
^ self fetchIcon:#help selector:#helpIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1175 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1176 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1177 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1178 |
hierarchicalListIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1179 |
"answer an icon to mark hierarchicalList spec methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1180 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1181 |
^ self fetchIcon:#hierarchicalList selector:#hierarchicalListIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1182 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1183 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1184 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1185 |
ignoredMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1186 |
"answer an icon to mark ignored methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1187 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1188 |
^ self fetchIcon:#ignoredMethod selector:#ignoredMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1189 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1190 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1191 |
imageIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1192 |
"answer an icon to mark image spec methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1193 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1194 |
^ self fetchIcon:#image selector:#imageIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1195 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1196 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1197 |
instrumentationIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1198 |
"answer an icon to mark instrumented methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1199 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1200 |
"/ ^ self fetchIcon:#watch selector:#watchIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1201 |
^ self fetchIcon:#instrumentation selector:#instrumentationIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1202 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1203 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1204 |
lineBreakPointedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1205 |
"answer an icon to mark breakPointed methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1206 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1207 |
^ self fetchIcon:#lineBreakPointedIcon selector:#lineBreakPointedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1208 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1209 |
"Created: / 05-03-2014 / 10:18:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1210 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1211 |
|
16028 | 1212 |
lineTracePointedIcon |
1213 |
"answer an icon to mark tracePointed methods" |
|
1214 |
||
1215 |
^ self fetchIcon:#lineTracePointedIcon selector:#lineTracePointedIcon |
|
1216 |
! |
|
1217 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1218 |
menuIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1219 |
"answer an icon to mark menu spec methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1220 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1221 |
^ self fetchIcon:#menu selector:#menuIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1222 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1223 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1224 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1225 |
methodEmptyInheritedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1226 |
^ self fetchIcon:#methodEmptyInherited selector:#methodEmptyInheritedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1227 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1228 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1229 |
methodInheritedFromAboveAndRedefinedBelowIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1230 |
^ self fetchIcon:#methodInheritedFromAboveAndRedefinedBelow selector:#methodInheritedFromAboveAndRedefinedBelowIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1231 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1232 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1233 |
methodInheritedFromAboveIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1234 |
^ self fetchIcon:#methodInheritedFromAbove selector:#methodInheritedFromAboveIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1235 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1236 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1237 |
methodIsSubclassResponsibilityAndRedefinedBelowIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1238 |
^ self fetchIcon:#methodIsSubclassResponsibilityAndRedefinedBelowIcon selector:#methodIsSubclassResponsibilityAndRedefinedBelowIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1239 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1240 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1241 |
methodIsSubclassResponsibilityIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1242 |
^ self fetchIcon:#methodIsSubclassResponsibilityIcon selector:#methodIsSubclassResponsibilityIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1243 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1244 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1245 |
methodRedefinedBelowIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1246 |
^ self fetchIcon:#methodRedefinedBelow selector:#methodRedefinedBelowIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1247 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1248 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1249 |
privateMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1250 |
"answer an icon to mark private methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1251 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1252 |
^ self fetchIcon:#privateMethod selector:#privateMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1253 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1254 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1255 |
programImageIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1256 |
"answer an icon to mark image spec methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1257 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1258 |
^ self fetchIcon:#programImage selector:#programImageIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1259 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1260 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1261 |
programMenuIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1262 |
"answer an icon to mark program generated menu methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1263 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1264 |
^ self fetchIcon:#programMenu selector:#programMenuIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1265 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1266 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1267 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1268 |
protectedMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1269 |
"answer an icon to mark protected methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1270 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1271 |
^ self fetchIcon:#protectedMethod selector:#protectedMethodIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1272 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1273 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1274 |
stopIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1275 |
"answer an icon to mark breakPointed methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1276 |
<resource: #obsolete> |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1277 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1278 |
^ self fullBreakPointedIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1279 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1280 |
"Modified: / 05-03-2014 / 10:29:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1281 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1282 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1283 |
tabListIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1284 |
"answer an icon to mark tabList spec methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1285 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1286 |
^ self fetchIcon:#tabList selector:#tabListIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1287 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1288 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1289 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1290 |
tableColumnsIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1291 |
"answer an icon to mark tableColumns spec methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1292 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1293 |
^ self fetchIcon:#tableColumns selector:#tableColumnsIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1294 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1295 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1296 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1297 |
timeIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1298 |
"answer an icon to mark timed methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1299 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1300 |
^ self fetchIcon:#time selector:#timeIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1301 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1302 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1303 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1304 |
traceIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1305 |
"answer an icon to mark traced methods" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1306 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1307 |
"/ ^ self fetchIcon:#watch selector:#watchIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1308 |
^ self fetchIcon:#trace selector:#traceIcon |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1309 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1310 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1311 |
!BrowserList methodsFor:'initialize-release'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1312 |
|
14853 | 1313 |
commonPostBuild |
1314 |
|list| |
|
1315 |
||
1316 |
self inSlaveMode ifFalse:[ |
|
1317 |
"//// listValid ifFalse:[self enqueueDelayedUpdateList "updateList"]. |
|
1318 |
"/ self setListValid:false. -- wrong, iff the view has already created a valid list in its initialize |
|
1319 |
] ifTrue:[ |
|
1320 |
"/ self setListValid:false. -- wrong, iff the view has already created a valid list in its initialize |
|
1321 |
"//// self enqueueDelayedUpdateList. |
|
1322 |
"//// self invalidateList |
|
1323 |
]. |
|
1324 |
||
1325 |
self makeDependent. |
|
1326 |
||
1327 |
list := builder componentAt:#List. |
|
1328 |
list notNil ifTrue:[ |
|
1329 |
list selectConditionBlock:[:item | self selectionChangeAllowed]. |
|
1330 |
list ignoreReselect:false. |
|
1331 |
]. |
|
1332 |
||
1333 |
UserPreferences current useInPlaceSearchInBrowserLists ifTrue:[ |
|
1334 |
self supportsSearch ifTrue:[ |
|
1335 |
list notNil ifTrue:[ |
|
1336 |
searchHandler := SearchHandler for: list |
|
1337 |
] ifFalse:[ |
|
1338 |
self breakPoint: #jv info: 'Should support search but list is nil. Wrong spec?' |
|
1339 |
]. |
|
1340 |
] |
|
1341 |
] |
|
1342 |
||
1343 |
"Modified: / 28-07-2011 / 09:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1344 |
! |
|
1345 |
||
1346 |
commonPostOpen |
|
1347 |
super commonPostOpen. |
|
1348 |
listValid ifFalse:[ |
|
16397 | 1349 |
"/ self breakPoint:#cg. |
14870 | 1350 |
self enqueueDelayedUpdateList. |
14853 | 1351 |
]. |
1352 |
! |
|
1353 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1354 |
initialize |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1355 |
listValid := false. |
15153 | 1356 |
loadInProgress := false. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1357 |
super initialize. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1358 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1359 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1360 |
release |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1361 |
self makeIndependent. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1362 |
super release. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1363 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1364 |
filter removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1365 |
forceGeneratorTrigger removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1366 |
hideUnloadedClasses removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1367 |
inGeneratorHolder removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1368 |
nameSpaceFilter removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1369 |
organizerMode removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1370 |
packageFilter removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1371 |
selectionHolder removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1372 |
showClassPackages removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1373 |
slaveMode removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1374 |
sortBy removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1375 |
updateTrigger removeDependent:self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1376 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1377 |
"Created: / 5.2.2000 / 13:42:09 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1378 |
"Modified: / 13.2.2000 / 23:32:23 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1379 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1380 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1381 |
!BrowserList methodsFor:'misc'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1382 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1383 |
invalidateList |
14853 | 1384 |
self setListValid:false. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1385 |
slaveMode value ~~ true ifTrue:[ |
14853 | 1386 |
self enqueueDelayedUpdateList. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1387 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1388 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1389 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1390 |
!BrowserList methodsFor:'private'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1391 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1392 |
browserNameList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1393 |
self subclassResponsibility |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1394 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1395 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1396 |
classesToProcessForClasses:classes withVisibility:visibility |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1397 |
"for methodCategory and methodList, depending on the setting |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1398 |
of visibility (allButObject, includeAllSupers or class only), |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1399 |
return a combined hull set of classes for a given set." |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1400 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1401 |
|classesToProcess classesToProcessInOrder| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1402 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1403 |
visibility isNil ifTrue:[^classes]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1404 |
visibility == #class ifTrue:[^classes]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1405 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1406 |
classesToProcess := IdentitySet new. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1407 |
classesToProcessInOrder := OrderedCollection new. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1408 |
classes notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1409 |
classes do:[:eachClass | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1410 |
|withAllSupers| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1411 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1412 |
withAllSupers := eachClass withAllSuperclasses. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1413 |
visibility == #allButObject ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1414 |
eachClass isMeta ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1415 |
withAllSupers removeAllFoundIn:(Object class withAllSuperclasses) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1416 |
] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1417 |
withAllSupers remove:Object ifAbsent:nil |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1418 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1419 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1420 |
withAllSupers do:[:each | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1421 |
(classesToProcess includes:each) ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1422 |
classesToProcess add:each. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1423 |
classesToProcessInOrder add:each. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1424 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1425 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1426 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1427 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1428 |
^ classesToProcessInOrder |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1429 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1430 |
"Modified (comment): / 06-07-2011 / 11:21:16 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1431 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1432 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1433 |
colorize:aString with:emphasis |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1434 |
^ aString asText emphasisAllAdd:emphasis |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1435 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1436 |
"Created: / 27-04-2010 / 15:36:34 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1437 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1438 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1439 |
colorizeForChangedCode:someString |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1440 |
^ someString asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1441 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1442 |
"Created: / 31.10.2001 / 10:17:56 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1443 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1444 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1445 |
colorizeForChangedCodeInSmallTeam:someString |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1446 |
^ someString asText emphasisAllAdd:(UserPreferences current emphasisForChangedCodeInSmallTeam) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1447 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1448 |
"Created: / 10-11-2006 / 16:53:53 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1449 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1450 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1451 |
colorizeForDifferentPackage:someString |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1452 |
^ someString asText emphasisAllAdd:(UserPreferences current emphasisForDifferentPackage) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1453 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1454 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1455 |
colorizeForInstrumentedFullyCoveredCode:someString |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1456 |
^ self colorize:someString with:(UserPreferences current emphasisForInstrumentedFullyCoveredCode) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1457 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1458 |
"Created: / 27-04-2010 / 13:01:24 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1459 |
"Modified: / 27-04-2010 / 15:36:49 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1460 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1461 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1462 |
colorizeForInstrumentedNeverCalledCode:someString |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1463 |
^ self colorize:someString with:(UserPreferences current emphasisForInstrumentedNeverCalledCode) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1464 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1465 |
"Created: / 27-04-2010 / 12:59:56 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1466 |
"Modified: / 27-04-2010 / 15:37:02 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1467 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1468 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1469 |
colorizeForInstrumentedPartiallyCoveredCode:someString |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1470 |
^ self colorize:someString with:(UserPreferences current emphasisForInstrumentedPartiallyCoveredCode) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1471 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1472 |
"Created: / 27-04-2010 / 13:01:31 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1473 |
"Modified: / 27-04-2010 / 15:37:06 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1474 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1475 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1476 |
colorizeGrey:someString |
14611 | 1477 |
^ someString asText emphasisAllAdd:(#color->Color darkGray) |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1478 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1479 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1480 |
emphasizeForChangedCode:someString |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1481 |
^ self colorizeForChangedCode:someString |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1482 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1483 |
"Modified: / 31.10.2001 / 10:18:57 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1484 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1485 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1486 |
emphasizeForDifferentPackage:someString |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1487 |
^ self colorizeForDifferentPackage:(' [' , (' ' , someString , ' ') "allItalic" , ']') |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1488 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1489 |
"Modified: / 31.10.2001 / 10:13:35 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1490 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1491 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1492 |
executeInBackground:aBlock |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1493 |
"used to update when I do not have the focus (i.e. being iconified or non-active). |
14874 | 1494 |
Run aBlock at userBackgroundPrio, but go back to normal prio, if I get the focus" |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1495 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1496 |
|activeProcess watcher done| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1497 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1498 |
activeProcess := Processor activeProcess. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1499 |
done := false. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1500 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1501 |
watcher := |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1502 |
[ |
17436 | 1503 |
|delay| |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1504 |
|
17436 | 1505 |
delay := Delay forSeconds:0.2. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1506 |
[done] whileFalse:[ |
17436 | 1507 |
delay wait. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1508 |
self applicationIsActive ifTrue:[ |
17560 | 1509 |
done := true. |
18730 | 1510 |
activeProcess priorityRange:nil. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1511 |
activeProcess priority:(Processor userSchedulingPriority). |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1512 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1513 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1514 |
] fork. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1515 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1516 |
[ |
17436 | 1517 |
activeProcess |
1518 |
withPriority:(Processor userBackgroundPriority) |
|
18729 | 1519 |
to:(Processor userSchedulingPriority) |
17436 | 1520 |
do:aBlock |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1521 |
] ensure:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1522 |
done := true. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1523 |
watcher terminate |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1524 |
]. |
17436 | 1525 |
|
1526 |
"Modified: / 23-02-2017 / 13:57:31 / stefan" |
|
17560 | 1527 |
"Modified: / 05-07-2017 / 10:44:28 / cg" |
18730 | 1528 |
"Modified: / 30-03-2019 / 12:23:51 / Claus Gittinger" |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1529 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1530 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1531 |
inSlaveMode |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1532 |
^ (self slaveMode value == true) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1533 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1534 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1535 |
inSlaveModeOrInvisible |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1536 |
(self slaveMode value == true) ifTrue:[^ true]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1537 |
"/ self slaveMode value isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1538 |
"/ self window shown ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1539 |
"/ ^ true |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1540 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1541 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1542 |
^ false |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1543 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1544 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1545 |
isClass:aClass shownWithNameSpaceFilter:nameSpaceFilter |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1546 |
|nsName| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1547 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1548 |
nameSpaceFilter isNil ifTrue:[^ true]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1549 |
nsName := aClass topNameSpace name. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1550 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1551 |
(nameSpaceFilter includes:nsName) ifTrue:[^ true]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1552 |
(nameSpaceFilter contains:[:ns | nsName startsWith:(ns , '::')]) ifTrue:[^ true]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1553 |
^ false |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1554 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1555 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1556 |
isClass:aClass shownWithPackageFilter:packageFilter |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1557 |
|classPackage| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1558 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1559 |
packageFilter isNil ifTrue:[^ true]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1560 |
classPackage := aClass package. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1561 |
(packageFilter includes:classPackage) ifTrue:[^ true]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1562 |
(packageFilter includes:self class nameListEntryForChanged) ifTrue:[^ true]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1563 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1564 |
aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1565 |
|mthdPackage| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1566 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1567 |
mthdPackage := mthd package. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1568 |
mthdPackage ~~ classPackage ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1569 |
(packageFilter includes:mthdPackage) ifTrue:[^ true]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1570 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1571 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1572 |
^ false |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1573 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1574 |
"Modified: / 11-08-2006 / 15:15:28 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1575 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1576 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1577 |
makeDependent |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1578 |
self subclassResponsibility |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1579 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1580 |
"Created: / 5.2.2000 / 13:42:08 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1581 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1582 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1583 |
makeIndependent |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1584 |
self subclassResponsibility |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1585 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1586 |
"Created: / 5.2.2000 / 13:42:08 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1587 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1588 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1589 |
releaseAsSubCanvas |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1590 |
self makeIndependent. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1591 |
super releaseAsSubCanvas. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1592 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1593 |
"Created: / 13.2.2000 / 23:11:29 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1594 |
"Modified: / 13.2.2000 / 23:32:29 / cg" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1595 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1596 |
|
14853 | 1597 |
setListValid:aBoolean |
1598 |
listValid := aBoolean |
|
1599 |
! |
|
1600 |
||
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1601 |
updateList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1602 |
self subclassResponsibility. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1603 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1604 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1605 |
updateListFor:newList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1606 |
"update the browsers list in a way which avoids scrolls |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1607 |
and flicker; returns true, if the newList is the same." |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1608 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1609 |
|"oldListSize newListSize" sameContents sameStrings oldEntry browserNameList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1610 |
"firstDifferentFromBeginning firstDifferentFromEnd" listView prevMode sav| |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1611 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1612 |
browserNameList := self browserNameList value. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1613 |
sameContents := sameStrings := (newList size == browserNameList size). |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1614 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1615 |
sameContents ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1616 |
newList with:browserNameList do:[:newLine :oldLine | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1617 |
sameStrings ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1618 |
sameStrings := ((newLine ? '') = (oldLine ? '')). |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1619 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1620 |
sameContents ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1621 |
((newLine ? '') sameStringAndEmphasisAs:(oldLine ? '')) ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1622 |
sameContents := false |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1623 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1624 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1625 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1626 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1627 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1628 |
listView := builder componentAt:#List. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1629 |
listView isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1630 |
"/ called early during setup ... |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1631 |
browserNameList contents:newList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1632 |
^ sameContents. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1633 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1634 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1635 |
sameContents ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1636 |
^ sameContents |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1637 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1638 |
sameStrings ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1639 |
newList keysAndValuesDo:[:lineNr :line | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1640 |
oldEntry := browserNameList at:lineNr. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1641 |
(oldEntry sameStringAndEmphasisAs:line) ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1642 |
browserNameList at:lineNr put:line. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1643 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1644 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1645 |
^ sameContents |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1646 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1647 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1648 |
listView := listView scrolledView. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1649 |
listView isNil ifTrue:[^ false]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1650 |
prevMode := listView scrollWhenUpdating. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1651 |
listView scrollWhenUpdating:nil. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1652 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1653 |
[ |
17042 | 1654 |
"/ don't want to be called if selection is changed by selListView |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1655 |
sav := listView action. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1656 |
listView action:nil. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1657 |
browserNameList contents:newList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1658 |
] ensure:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1659 |
listView action:sav. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1660 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1661 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1662 |
listView scrollWhenUpdating:prevMode. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1663 |
^ sameContents. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1664 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1665 |
"/ oldListSize := browserNameList size. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1666 |
"/ newListSize := newList size. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1667 |
"/ newListSize == 0 ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1668 |
"/ oldListSize == 0 ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1669 |
"/ ^ true "/ same |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1670 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1671 |
"/ browserNameList removeAll. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1672 |
"/ ^ false "/ not same |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1673 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1674 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1675 |
"/ oldListSize == 0 ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1676 |
"/ browserNameList contents:newList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1677 |
"/ ^ false. "/ not same |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1678 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1679 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1680 |
"/ (newListSize between:(oldListSize-1) and:(oldListSize+1)) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1681 |
"/ "/ individually exchange changed lines, to avoid flicker. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1682 |
"/ "/ the old code was: self browserNameList value:newList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1683 |
"/ "/ but if only a single method is changed (or an instrumentation icon changes), |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1684 |
"/ "/ this results in avoidable flicker. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1685 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1686 |
"/ newListSize > oldListSize ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1687 |
"/ "/ an entry seems to be added |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1688 |
"/ "/ try to find it. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1689 |
"/ firstDifferentFromBeginning := 1. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1690 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1691 |
"/ [firstDifferentFromBeginning <= oldListSize |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1692 |
"/ and:[(newList at:firstDifferentFromBeginning) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromBeginning)]] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1693 |
"/ whileTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1694 |
"/ firstDifferentFromBeginning := firstDifferentFromBeginning + 1. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1695 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1696 |
"/ firstDifferentFromEnd := newListSize. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1697 |
"/ [firstDifferentFromEnd >= 1 |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1698 |
"/ and:[(newList at:firstDifferentFromEnd) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromEnd-1)]] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1699 |
"/ whileTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1700 |
"/ firstDifferentFromEnd := firstDifferentFromEnd - 1. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1701 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1702 |
"/ (firstDifferentFromEnd - firstDifferentFromBeginning) > (newList size // 10) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1703 |
"/ "/ too many differences - exchange the list en-bloque |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1704 |
"/ browserNameList contents:newList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1705 |
"/ ^ false. "/ not same |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1706 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1707 |
"/ "/ entries from firstDifferentFromBeginning to firstDifferentFromEnd in newList are different |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1708 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1709 |
"/ (firstDifferentFromEnd - firstDifferentFromBeginning + 1 "number of different items") == (newListSize - oldListSize) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1710 |
"/ "/ for now, only handle single-added-item case |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1711 |
"/ firstDifferentFromEnd ~~ firstDifferentFromBeginning ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1712 |
"/ self halt |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1713 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1714 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1715 |
"/ "/ item at firstDifferentFromBeginning has been inserted. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1716 |
"/ browserNameList add:(newList at:firstDifferentFromBeginning) beforeIndex:firstDifferentFromEnd. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1717 |
"/ ^ false "/ not the same |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1718 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1719 |
"/ ] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1720 |
"/ newListSize < oldListSize ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1721 |
"/ "/ an entry seems to be removed |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1722 |
"/ "/ try to find it. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1723 |
"/ firstDifferentFromBeginning := 1. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1724 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1725 |
"/ [firstDifferentFromBeginning <= newListSize |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1726 |
"/ and:[(newList at:firstDifferentFromBeginning) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromBeginning)]] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1727 |
"/ whileTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1728 |
"/ firstDifferentFromBeginning := firstDifferentFromBeginning + 1. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1729 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1730 |
"/ firstDifferentFromEnd := newListSize. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1731 |
"/ [firstDifferentFromEnd >= 1 |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1732 |
"/ and:[(newList at:firstDifferentFromEnd) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromEnd+1)]] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1733 |
"/ whileTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1734 |
"/ firstDifferentFromEnd := firstDifferentFromEnd - 1. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1735 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1736 |
"/ (firstDifferentFromEnd - firstDifferentFromBeginning) > (newList size // 10) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1737 |
"/ "/ too many differences - exchange the list en-bloque |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1738 |
"/ browserNameList contents:newList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1739 |
"/ ^ false. "/ not same |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1740 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1741 |
"/ "/ entries from firstDifferentFromBeginning to firstDifferentFromEnd in newList are different |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1742 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1743 |
"/ (firstDifferentFromBeginning - firstDifferentFromEnd) == (oldListSize - newListSize) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1744 |
"/ "/ for now, only handle single-removed-item case |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1745 |
"/ firstDifferentFromEnd ~~ (firstDifferentFromBeginning-1) ifTrue:[self halt]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1746 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1747 |
"/ "/ item at firstDifferentFromBeginning has been removed. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1748 |
"/ browserNameList removeFromIndex:firstDifferentFromBeginning toIndex:firstDifferentFromBeginning. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1749 |
"/ ^ false "/ not the same |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1750 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1751 |
"/ ] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1752 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1753 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1754 |
"/ sameContents := true. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1755 |
"/ newList keysAndValuesDo:[:lineNr :line | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1756 |
"/ lineNr > browserNameList size ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1757 |
"/ browserNameList add:line. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1758 |
"/ sameContents := false. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1759 |
"/ ] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1760 |
"/ oldEntry := browserNameList at:lineNr. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1761 |
"/ (oldEntry ~= line |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1762 |
"/ or:[(oldEntry sameStringAndEmphasisAs:line) not]) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1763 |
"/ browserNameList at:lineNr put:line. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1764 |
"/ sameContents := false. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1765 |
"/ ] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1766 |
"/ ] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1767 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1768 |
"/ newList size < browserNameList size ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1769 |
"/ browserNameList removeFromIndex:(newList size + 1) toIndex:(browserNameList size). |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1770 |
"/ sameContents := false. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1771 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1772 |
"/ ^ sameContents |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1773 |
"/ ]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1774 |
"/ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1775 |
"/ browserNameList contents:newList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1776 |
"/ ^ false "/ not the same |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1777 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1778 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1779 |
!BrowserList methodsFor:'queries'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1780 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1781 |
supportsSearch |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1782 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1783 |
^true |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1784 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1785 |
"Created: / 27-07-2011 / 20:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1786 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1787 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1788 |
!BrowserList methodsFor:'setup'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1789 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1790 |
autoSelect:aBoolean |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1791 |
autoSelect := aBoolean. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1792 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1793 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1794 |
!BrowserList::SearchHandler class methodsFor:'instance creation'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1795 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1796 |
for: aView |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1797 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1798 |
^self new initializeFor: aView. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1799 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1800 |
"Created: / 27-07-2011 / 20:30:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1801 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1802 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1803 |
!BrowserList::SearchHandler methodsFor:'event handling'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1804 |
|
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1805 |
buttonMotion:button x:x y:y view:aView |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1806 |
nextDelegate notNil ifTrue:[ |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1807 |
^ (nextDelegate respondsTo: #buttonMotion:x:y:view:) |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1808 |
and:[nextDelegate buttonMotion:button x:x y:y view:aView] |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1809 |
]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1810 |
^false |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1811 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1812 |
"Created: / 10-04-2014 / 11:43:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1813 |
! |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1814 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1815 |
buttonPress:button x:x y:y view:aView |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1816 |
nextDelegate notNil ifTrue:[ |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1817 |
^ (nextDelegate respondsTo: #buttonPress:x:y:view:) |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1818 |
and:[nextDelegate buttonPress:button x:x y:y view:aView] |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1819 |
]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1820 |
^false |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1821 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1822 |
"Created: / 10-04-2014 / 11:43:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1823 |
! |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1824 |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1825 |
keyPress:key x:x y:y view:aView |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1826 |
<resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)> |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1827 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1828 |
| v | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1829 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1830 |
aView == listView ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1831 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1832 |
"Forward the event to the view under pointer. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1833 |
Therefore, the seach is started only iff the |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1834 |
pointer points to the list. Based on experience, |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1835 |
this improves usability because: does not require |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1836 |
to click in the list to focus it (which may change |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1837 |
the selection)" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1838 |
(v := aView windowGroup pointerView) ~~ aView ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1839 |
v notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1840 |
aView windowGroup focusView: v. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1841 |
v sensor keyPress:key x:x y:y view:v. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1842 |
^self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1843 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1844 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1845 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1846 |
searchWindow isNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1847 |
key isCharacter ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1848 |
searchHolder setValue: key asString. |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1849 |
self startSearch. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1850 |
^ self |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1851 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1852 |
] ifFalse:[ |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1853 |
key == #Escape ifTrue:[self stopSearch. ^ self]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1854 |
key == #Accept ifTrue:[self stopSearch. ^ self]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1855 |
key == #Return ifTrue:[self stopSearch. ^ self]. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1856 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1857 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1858 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1859 |
aView == searchField ifTrue:[ |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1860 |
key == #Escape ifTrue:[self stopSearch. ^ self]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1861 |
key == #Accept ifTrue:[self stopSearch. ^ self]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1862 |
key == #Return ifTrue:[self stopSearch. ^ self]. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1863 |
(key == #CursorUp or:[key == #CursorDown]) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1864 |
listView sensor setCtrlDown: false. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1865 |
listView sensor setShiftDown: false. |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1866 |
listView keyPress:key x:x y:y. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1867 |
^ self |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1868 |
]. |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1869 |
]. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1870 |
|
17581 | 1871 |
(nextDelegate notNil and:[ nextDelegate respondsTo: #keyPress:x:y:view: ]) ifTrue:[ |
1872 |
nextDelegate keyPress:key x:x y:y view:aView. |
|
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1873 |
]. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1874 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1875 |
"Created: / 27-07-2011 / 20:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1876 |
"Modified: / 10-04-2014 / 11:44:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17581 | 1877 |
"Modified: / 16-07-2017 / 14:39:32 / cg" |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1878 |
! |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1879 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1880 |
keyRelease:key x:x y:y view:aView |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1881 |
nextDelegate notNil ifTrue:[ |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1882 |
^ (nextDelegate respondsTo: #keyRelease:x:y:view:) |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1883 |
and:[nextDelegate keyRelease:key x:x y:y view:aView] |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1884 |
]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1885 |
^false |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1886 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1887 |
"Created: / 10-04-2014 / 11:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1888 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1889 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1890 |
!BrowserList::SearchHandler methodsFor:'event handling-queries'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1891 |
|
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1892 |
handlesButtonMotion:something inView:aView |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1893 |
"I am not interested in button events" |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1894 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1895 |
nextDelegate notNil ifTrue:[ |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1896 |
^ (nextDelegate respondsTo: #handlesButtonMotion:inView:) |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1897 |
and:[nextDelegate handlesButtonMotion:something inView:aView] |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1898 |
]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1899 |
^false |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1900 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1901 |
"Modified: / 10-04-2014 / 11:40:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1902 |
! |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1903 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1904 |
handlesButtonPress:something inView:aView |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1905 |
"I am not interested in button events" |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1906 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1907 |
nextDelegate notNil ifTrue:[ |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1908 |
^ (nextDelegate respondsTo: #handlesButtonPress:inView:) |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1909 |
and:[nextDelegate handlesButtonPress:something inView:aView] |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1910 |
]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1911 |
^false |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1912 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1913 |
"Modified: / 10-04-2014 / 11:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1914 |
! |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1915 |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1916 |
handlesKeyPress:key inView:aView |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1917 |
<resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)> |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1918 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1919 |
aView == listView ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1920 |
key isCharacter ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1921 |
^true |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1922 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1923 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1924 |
aView == searchField ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1925 |
(#(#Escape #Accept #Return #CursorUp #CursorDown) includes: key) ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1926 |
^true |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1927 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1928 |
]. |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1929 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1930 |
nextDelegate notNil ifTrue:[ |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1931 |
^ (nextDelegate respondsTo: #handlesKeyPress:inView:) |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1932 |
and:[nextDelegate handlesKeyPress:key inView:aView] |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1933 |
]. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1934 |
^false |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1935 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1936 |
"Created: / 27-07-2011 / 20:39:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1937 |
"Modified: / 10-04-2014 / 11:39:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1938 |
! |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1939 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1940 |
handlesKeyRelease:key inView:aView |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1941 |
"this is the query from the sensor to ask me if I would like to |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1942 |
get a keyRelease event for key from aView. Return true, if I want so, |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1943 |
false otherwise." |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1944 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1945 |
nextDelegate notNil ifTrue:[ |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1946 |
^ (nextDelegate respondsTo: #handlesKeyRelease:inView:) |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1947 |
and:[nextDelegate handlesKeyRelease:key inView:aView] |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1948 |
]. |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1949 |
^false |
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1950 |
|
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1951 |
"Modified: / 10-04-2014 / 11:40:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1952 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1953 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1954 |
!BrowserList::SearchHandler methodsFor:'initialization'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1955 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1956 |
initializeFor: aView |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1957 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1958 |
aView isScrollWrapper ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1959 |
listView := aView scrolledView |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1960 |
] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1961 |
listView := aView. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1962 |
]. |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1963 |
nextDelegate := listView delegate. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1964 |
listView delegate: self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1965 |
searchHolder := ValueHolder with: nil. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1966 |
searchHolder onChangeSend: #updateList to: self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1967 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1968 |
"Created: / 27-07-2011 / 20:32:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14196
88445b43e752
Fixed SearchHandler to delegate to next event handler (delegate) if any.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14164
diff
changeset
|
1969 |
"Modified: / 10-04-2014 / 11:36:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1970 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1971 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1972 |
!BrowserList::SearchHandler methodsFor:'private'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1973 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1974 |
absoluteLeftOfListView |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1975 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1976 |
| absoluteLeft view | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1977 |
absoluteLeft := 1. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1978 |
view := listView. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1979 |
[ view notNil ] whileTrue: |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1980 |
[absoluteLeft := absoluteLeft + view left - 2. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1981 |
view := view superView]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1982 |
^absoluteLeft |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1983 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1984 |
"Created: / 08-08-2009 / 22:30:07 / Jan Vrany <vranyj1@fel.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1985 |
"Created: / 27-07-2011 / 21:54:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1986 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1987 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1988 |
absoluteTopOfListView |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1989 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1990 |
| absoluteTop view | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1991 |
absoluteTop := 1. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1992 |
view := listView. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1993 |
[ view notNil ] whileTrue: |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1994 |
[absoluteTop := absoluteTop + view top - 1. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1995 |
view := view superView]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1996 |
^absoluteTop |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1997 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1998 |
"Created: / 08-08-2009 / 22:30:16 / Jan Vrany <vranyj1@fel.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1999 |
"Created: / 27-07-2011 / 21:54:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2000 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2001 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2002 |
filter |
15664 | 2003 |
| pattern | |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2004 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2005 |
pattern := StringPattern fromString: searchHolder value. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2006 |
|
15664 | 2007 |
^ [:entry :relax| |
2008 |
pattern match: entry asString withoutSeparators relax: relax |
|
2009 |
] |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2010 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2011 |
"Created: / 27-07-2011 / 22:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2012 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2013 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2014 |
hideSearchWindow |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2015 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2016 |
searchWindow |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2017 |
ifNotNil:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2018 |
searchWindow destroy. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2019 |
searchWindow := nil. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2020 |
searchField := nil. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2021 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2022 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2023 |
"Created: / 27-07-2011 / 21:38:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2024 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2025 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2026 |
restoreList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2027 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2028 |
self updateSelection. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2029 |
listView listHolder: listHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2030 |
listSelectionHolder notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2031 |
listView model: listSelectionHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2032 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2033 |
listSelectionHolder changed: #value |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2034 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2035 |
"Created: / 27-07-2011 / 22:14:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2036 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2037 |
|
14164
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2038 |
restoreListViewProperties |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2039 |
|
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2040 |
listView visualBlock: listViewVisualBlock. |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2041 |
listView selectedVisualBlock: listViewSelectedVisualBlock. |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2042 |
|
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2043 |
"Created: / 26-03-2014 / 09:50:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2044 |
! |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2045 |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2046 |
saveList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2047 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2048 |
listHolder := listView listHolder. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2049 |
listSelectionHolder := listView model. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2050 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2051 |
"Created: / 27-07-2011 / 22:14:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2052 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2053 |
|
14164
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2054 |
saveListViewProperties |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2055 |
|
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2056 |
listViewVisualBlock := listView visualBlock. |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2057 |
listViewSelectedVisualBlock := listView selectedVisualBlock. |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2058 |
|
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2059 |
listView visualBlock: nil. |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2060 |
listView selectedVisualBlock: nil. |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2061 |
|
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2062 |
"Created: / 26-03-2014 / 09:50:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2063 |
! |
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2064 |
|
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2065 |
showSearchWindow |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2066 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2067 |
searchWindow := StandardSystemView new |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2068 |
bePopUpView; |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2069 |
beSlave; |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2070 |
origin:(self absoluteLeftOfListView + 5" - optionsView textStartLeft") |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2071 |
@ (self absoluteTopOfListView + listView height + 1 + 5) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2072 |
extent:(listView width + 0"((optionsView textStartLeft) * 2)") @ (listView font height * 1.5) ceiling. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2073 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2074 |
searchField := (EditField |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2075 |
origin: 0.0@0.0 |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2076 |
corner: 1.0@1.0 |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2077 |
in: searchWindow) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2078 |
model: searchHolder; |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2079 |
immediateAccept: true; |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2080 |
delegate: self; |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2081 |
yourself. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2082 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2083 |
searchWindow openModal. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2084 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2085 |
"Created: / 27-07-2011 / 21:37:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2086 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2087 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2088 |
startSearch |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2089 |
|
14164
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2090 |
self saveListViewProperties. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2091 |
self saveList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2092 |
self updateList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2093 |
self showSearchWindow. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2094 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2095 |
"Created: / 27-07-2011 / 21:37:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14164
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2096 |
"Modified: / 26-03-2014 / 09:50:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2097 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2098 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2099 |
stopSearch |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2100 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2101 |
self hideSearchWindow. |
14164
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2102 |
self restoreListViewProperties. |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2103 |
self restoreList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2104 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2105 |
"Created: / 27-07-2011 / 21:37:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14164
e638a1c10eef
Fix for bug #12: In-place search in class category list is broken
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14107
diff
changeset
|
2106 |
"Modified: / 26-03-2014 / 09:50:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2107 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2108 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2109 |
updateList |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2110 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2111 |
| filter filteredList | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2112 |
filter := self filter. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2113 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2114 |
filteredList := listHolder value select:[:each|filter value: each value: 1]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2115 |
filteredList isEmpty ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2116 |
filteredList := listHolder value select:[:each|filter value: each value: 2]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2117 |
filteredList isEmpty ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2118 |
filteredList := listHolder value select:[:each|filter value: each value: 3]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2119 |
]]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2120 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2121 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2122 |
listView listHolder == listHolder ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2123 |
listView listHolder: (ValueHolder with: filteredList) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2124 |
] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2125 |
listView listHolder value: filteredList. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2126 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2127 |
listView model == listSelectionHolder ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2128 |
listView model: ValueHolder new. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2129 |
listView model onChangeSend: #updateSelection to: self. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2130 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2131 |
filteredList size == 1 ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2132 |
listView selection: 1 |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2133 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2134 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2135 |
"Created: / 27-07-2011 / 22:18:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2136 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2137 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2138 |
updateSelection |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2139 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2140 |
| sel | |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2141 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2142 |
listSelectionHolder isNil ifTrue:[^self]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2143 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2144 |
sel := listView selection. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2145 |
sel notNil ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2146 |
sel isInteger ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2147 |
sel := listHolder identityIndexOf: (listView list at: sel) |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2148 |
] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2149 |
sel := sel collect:[:each|listHolder value identityIndexOf: (listView list at: each)] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2150 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2151 |
] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2152 |
listView multipleSelectOk ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2153 |
sel := #() |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2154 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2155 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2156 |
listView useIndex ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2157 |
sel isInteger ifTrue:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2158 |
sel := listHolder value at: sel |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2159 |
] ifFalse:[ |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2160 |
sel := sel collect:[:each|listHolder value at: each]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2161 |
] |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2162 |
]. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2163 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2164 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2165 |
listSelectionHolder value: sel. |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2166 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2167 |
"Created: / 02-08-2011 / 09:08:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2168 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2169 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2170 |
!BrowserList class methodsFor:'documentation'! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2171 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2172 |
version |
15972 | 2173 |
^ '$Header$' |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2174 |
! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2175 |
|
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2176 |
version_CVS |
15972 | 2177 |
^ '$Header$' |
14107
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2178 |
! ! |
bc79299d3e73
Added icons fullBreakPointedIcon and lineBreakPointedIcon.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2179 |