author | Claus Gittinger <cg@exept.de> |
Fri, 24 Feb 2017 16:54:59 +0100 | |
changeset 17444 | 4506360ae3c8 |
parent 17421 | 1c4a5842450e |
child 17465 | 27a2e4012a0a |
permissions | -rw-r--r-- |
8970 | 1 |
"{ Package: 'stx:libtool' }"! |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
2 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3 |
!AbstractSyntaxHighlighter class methodsFor:'api highlighting'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
4 |
|
10749
4b121ee1c5de
comment/format in: #formatExpression:in:elementsInto:
Claus Gittinger <cg@exept.de>
parents:
10724
diff
changeset
|
5 |
formatExpression:aString in:aClass elementsInto:elementsCollection |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
6 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
7 |
^self formatExpression:aString in:aClass |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
8 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
9 |
"Created: / 25-07-2010 / 08:57:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10749
4b121ee1c5de
comment/format in: #formatExpression:in:elementsInto:
Claus Gittinger <cg@exept.de>
parents:
10724
diff
changeset
|
10 |
"Modified (format): / 04-10-2011 / 19:47:20 / cg" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
11 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
12 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
13 |
!AbstractSyntaxHighlighter class methodsFor:'api highlighting'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
14 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
15 |
formatMethod:aString in:aClass using:preferencesOrNil elementsInto: elements |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
16 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
17 |
^self formatMethod:aString in:aClass using:preferencesOrNil |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
18 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
19 |
"Created: / 25-07-2010 / 08:58:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
20 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
21 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
22 |
!AbstractTime class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
23 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
24 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
25 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
26 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
27 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
28 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
29 |
^ #timeClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
30 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
31 |
|
16254
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
32 |
!ApplicationModel methodsFor:'debugging'! |
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
33 |
|
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
34 |
inspectorExtraAttributes |
16346 | 35 |
|atts nameDict bindingDict| |
16254
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
36 |
|
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
37 |
atts := super inspectorExtraAttributes. |
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
38 |
builder notNil ifTrue:[ |
16346 | 39 |
(nameDict := builder namedComponents) notNil ifTrue:[ |
40 |
nameDict keysAndValuesDo:[:eachName :eachWidget | |
|
41 |
atts add:('-[: ',eachName,' :]') -> [ nameDict at:eachName ]. |
|
16295 | 42 |
]. |
16254
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
43 |
]. |
16346 | 44 |
(bindingDict := builder bindings) notNil ifTrue:[ |
45 |
bindingDict keysAndValuesDo:[:eachName :eachAspect | |
|
46 |
atts add:('-~> ',eachName) -> [ bindingDict at:eachName ]. |
|
16254
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
47 |
]. |
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
48 |
]. |
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
49 |
]. |
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
50 |
^ atts |
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
51 |
! ! |
e728446e20a0
show named components and aspects of appmodels in inspector
Claus Gittinger <cg@exept.de>
parents:
16234
diff
changeset
|
52 |
|
17068
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
53 |
!Array methodsFor:'inspecting'! |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
54 |
|
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
55 |
inspectorValueStringInListFor:anInspector |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
56 |
"returns a string to be shown in the inspector's list" |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
57 |
|
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
58 |
self size == 0 ifTrue:[ |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
59 |
^ '#()' |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
60 |
]. |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
61 |
^ super inspectorValueStringInListFor:anInspector |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
62 |
! ! |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
63 |
|
11283 | 64 |
!ArrayedCollection methodsFor:'inspecting'! |
65 |
||
66 |
inspector2TabForHexDump |
|
11401
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
67 |
"a tab, showing a hex dump; defined here, so that both byteArrays and other bulk data |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
68 |
containers can define it in their inspector2Tabs methods." |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
69 |
|
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
70 |
|wrapper myByteSize v genDump baseAddress| |
11283 | 71 |
|
72 |
myByteSize := self size * self class elementByteSize. |
|
73 |
||
74 |
wrapper := Plug new. |
|
75 |
wrapper respondTo:#size with:[ myByteSize ]. |
|
76 |
wrapper respondTo:#at: with:[:byteIdx | self byteAt:byteIdx ]. |
|
77 |
wrapper respondTo:#do: with:[:aBlock | 1 to:myByteSize |
|
78 |
do:[:i | |
|
79 |
aBlock value:(self byteAt:i) |
|
80 |
]. |
|
81 |
]. |
|
82 |
||
11401
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
83 |
baseAddress := 0. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
84 |
genDump := [ |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
85 |
|dump| |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
86 |
|
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
87 |
v topView withWaitCursorDo:[ |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
88 |
dump := AbstractFileBrowser |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
89 |
contentsOfBytesAsHexDump:wrapper |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
90 |
numberOfAddressDigits:(myByteSize hexPrintString size) |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
91 |
addressStart:baseAddress. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
92 |
v list:dump expandTabs:false scanForNonStrings:false includesNonStrings:false. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
93 |
]. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
94 |
]. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
95 |
|
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
96 |
v := ScrollableView for:TextView. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
97 |
genDump value. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
98 |
|
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
99 |
v scrolledView |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
100 |
menuHolder: |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
101 |
[ |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
102 |
|m| |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
103 |
|
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
104 |
m := v scrolledView editMenu. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
105 |
m addLabel:'-' selector:nil. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
106 |
m addLabel:'Change Base Address...' selector:#changeBase. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
107 |
m actionAt:#changeBase |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
108 |
put:[ |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
109 |
|s b| |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
110 |
|
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
111 |
s := Dialog request:'Base address (hex):' initialAnswer:(baseAddress printStringRadix:16). |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
112 |
s notEmptyOrNil ifTrue:[ |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
113 |
b := Integer readFrom:s radix:16 onError:nil. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
114 |
b notNil ifTrue:[ |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
115 |
baseAddress := b. genDump value |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
116 |
]. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
117 |
]. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
118 |
]. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
119 |
m. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
120 |
]; |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
121 |
menuMessage: #value. |
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
122 |
|
11283 | 123 |
^ Tools::Inspector2Tab new |
124 |
priority: 40; |
|
125 |
label:'Hexdump'; |
|
11401
a228326e3eee
changed: #inspector2TabForHexDump
Claus Gittinger <cg@exept.de>
parents:
11400
diff
changeset
|
126 |
view: v; |
11283 | 127 |
yourself |
128 |
||
129 |
"Created: / 13-02-2012 / 15:08:42 / cg" |
|
130 |
! ! |
|
131 |
||
13639 | 132 |
!Autoload class methodsFor:'message catching'! |
133 |
||
134 |
inspectorExtraAttributes |
|
135 |
"extra (pseudo instvar) entries to be shown in an inspector." |
|
136 |
||
137 |
^ #() |
|
138 |
! ! |
|
139 |
||
14641
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
140 |
!Bag methodsFor:'inspecting'! |
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
141 |
|
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
142 |
inspectorExtraAttributes |
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
143 |
"extra (pseudo instvar) entries to be shown in an inspector." |
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
144 |
|
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
145 |
^ super inspectorExtraAttributes |
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
146 |
add:('-histogram' -> [ (self sortedCounts collect:[:e| e displayString]) asStringCollection asString ]); |
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
147 |
yourself |
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
148 |
! ! |
429daeba4b8b
Bag inspector-extra: histogram
Claus Gittinger <cg@exept.de>
parents:
14636
diff
changeset
|
149 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
150 |
!Behavior methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
151 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
152 |
iconInBrowserSymbol |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
153 |
"can be redefined for a private icon in the browser (for me and my subclasses). |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
154 |
The returned symbol must be a selector of the ToolbarIconLibrary. |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
155 |
The browser will use this as index into the toolbariconlibrary" |
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
156 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
157 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
158 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
159 |
self isLoaded ifFalse:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
160 |
^ #autoloadedClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
161 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
162 |
(self isBrowserStartable) ifTrue:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
163 |
self isVisualStartable ifTrue:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
164 |
^ #visualStartableClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
165 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
166 |
^ #startableClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
167 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
168 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
169 |
"/ give ruby and other special metaclasses a chance to provide their own icon... |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
170 |
^ self class iconInBrowserSymbol |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
171 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
172 |
"Created: / 20-07-2007 / 08:52:17 / cg" |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
173 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
174 |
|
11838
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
175 |
!Behavior methodsFor:'inspecting'! |
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
176 |
|
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
177 |
inspectorExtraAttributes |
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
178 |
"extra (pseudo instvar) entries to be shown in an inspector." |
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
179 |
|
13639 | 180 |
^ super inspectorExtraAttributes |
11838
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
181 |
add:(self isMeta |
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
182 |
ifFalse:[ '-meta' -> [ self theMetaclass ] ] |
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
183 |
ifTrue:[ '-nonMeta' -> [ self theNonMetaclass ] ]); |
15448 | 184 |
add:( '-project definition class' -> [ self theNonMetaclass projectDefinitionClass ] ); |
11838
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
185 |
yourself |
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
186 |
! ! |
f0b57bc138d4
meta/nonmeta in class inspection
Claus Gittinger <cg@exept.de>
parents:
11827
diff
changeset
|
187 |
|
11852
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
188 |
!Behavior methodsFor:'inspecting'! |
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
189 |
|
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
190 |
inspectorValueStringInListFor:anInspector |
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
191 |
"returns a string to be shown in the inspector's list" |
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
192 |
|
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
193 |
|nm| |
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
194 |
|
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
195 |
(nm := self name) notEmptyOrNil ifTrue:[ |
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
196 |
^ nm |
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
197 |
]. |
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
198 |
^ super inspectorValueStringInListFor:anInspector |
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
199 |
! ! |
532a96275343
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11838
diff
changeset
|
200 |
|
15417
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
201 |
!Behavior methodsFor:'queries'! |
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
202 |
|
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
203 |
methodsCount |
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
204 |
"Return a number of methods or nil if number of methods |
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
205 |
is not known (such as for lazy-loaded classes)" |
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
206 |
|
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
207 |
^ methodDictionary size |
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
208 |
|
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
209 |
"Created: / 25-02-2015 / 16:14:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
210 |
! ! |
b016646da2a3
Added Behaviour>>methodsCount to avoid direct methodDictionary access.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15415
diff
changeset
|
211 |
|
10859
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
212 |
!Block methodsFor:'inspecting'! |
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
213 |
|
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
214 |
inspectorExtraAttributes |
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
215 |
"extra (pseudo instvar) entries to be shown in an inspector." |
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
216 |
|
13639 | 217 |
|d| |
218 |
||
219 |
d := super inspectorExtraAttributes. |
|
220 |
||
10859
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
221 |
self homeMethod isNil ifTrue:[ |
13639 | 222 |
d |
10859
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
223 |
add:'-code' -> 'no home method'; |
13639 | 224 |
add:'-source' -> 'no home method'. |
225 |
] ifFalse:[ |
|
226 |
d |
|
227 |
add:'-code' -> [ String streamContents:[:s | self homeMethod decompileTo:s]]; |
|
228 |
add:'-source' -> [ self homeMethod source]. |
|
10859
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
229 |
]. |
13639 | 230 |
^ d |
10859
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
231 |
|
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
232 |
"Created: / 15-11-2011 / 14:24:10 / cg" |
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
233 |
! ! |
38ebf3f1299e
block decompile in inspector
Claus Gittinger <cg@exept.de>
parents:
10851
diff
changeset
|
234 |
|
13423 | 235 |
!Boolean methodsFor:'inspecting'! |
236 |
||
237 |
inspectorValueStringInListFor:anInspector |
|
238 |
"returns a string to be shown in the inspector's list" |
|
239 |
||
240 |
^ self printString |
|
241 |
! ! |
|
242 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
243 |
!Breakpoint methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
244 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
245 |
icon |
10310 | 246 |
|
247 |
^description icon |
|
248 |
||
249 |
"Created: / 11-07-2011 / 18:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
250 |
! ! |
|
251 |
||
252 |
!BreakpointDescription methodsFor:'accessing'! |
|
253 |
||
254 |
icon |
|
10202 | 255 |
"do not use abbreviations like bpnt or brp or similar; |
256 |
when I do not know the exact name, I tend to search for implementors/senders |
|
257 |
of '*break*' or '*disabled*'. |
|
258 |
I will not find anything useful and have to single step if methods are named |
|
259 |
cryptically." |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
260 |
|
14488
006f6d5298c7
class: BreakpointDescription
Claus Gittinger <cg@exept.de>
parents:
14243
diff
changeset
|
261 |
icon notNil ifTrue:[^ icon]. |
006f6d5298c7
class: BreakpointDescription
Claus Gittinger <cg@exept.de>
parents:
14243
diff
changeset
|
262 |
|
10202 | 263 |
condition isNil ifTrue:[ |
12821 | 264 |
state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointRedEnabled]. |
265 |
state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointRedDisabled]. |
|
266 |
state == #tracing ifTrue:[^ ToolbarIconLibrary tracepointBlue]. |
|
10202 | 267 |
] ifFalse:[ |
12821 | 268 |
state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointBlueEnabled]. |
269 |
state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointBlueDisabled]. |
|
10202 | 270 |
]. |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
271 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
272 |
^nil |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
273 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
274 |
"Created: / 28-06-2011 / 08:29:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11222 | 275 |
"Modified: / 27-01-2012 / 13:46:23 / cg" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
276 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
277 |
|
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
278 |
!ByteArray methodsFor:'inspecting'! |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
279 |
|
8843 | 280 |
inspectorExtraAttributes |
281 |
"extra (pseudo instvar) entries to be shown in an inspector." |
|
8839 | 282 |
|
12768 | 283 |
|basePrinter| |
284 |
||
285 |
basePrinter := |
|
286 |
[:arr :b | |
|
287 |
String |
|
288 |
streamContents:[:s | |
|
289 |
arr class isWords ifTrue:[ |
|
290 |
arr asWordArray printOn:s base:b showRadix:true |
|
291 |
] ifFalse:[ |
|
292 |
arr class isLongs ifTrue:[ |
|
293 |
arr asLongIntegerArray printOn:s base:b showRadix:true |
|
294 |
] ifFalse:[ |
|
295 |
arr asByteArray printOn:s base:b showRadix:true |
|
296 |
] |
|
297 |
] |
|
298 |
] |
|
299 |
]. |
|
300 |
||
13639 | 301 |
^ super inspectorExtraAttributes |
9324
86307b0d7c57
hexString in inspector for ByteArrays
Claus Gittinger <cg@exept.de>
parents:
9050
diff
changeset
|
302 |
add:'-hexstring' -> [ self hexPrintString "WithSeparator:Character space" ]; |
12768 | 303 |
add:'-hexadecimal' -> [ basePrinter value:self value:16 ]; |
304 |
add:'-binary' -> [ basePrinter value:self value:2 ]; |
|
16846
9aeeaa40f968
inspector attribute: asciiString
Claus Gittinger <cg@exept.de>
parents:
16837
diff
changeset
|
305 |
add:'-asciiString' -> [ self asString ]; |
9324
86307b0d7c57
hexString in inspector for ByteArrays
Claus Gittinger <cg@exept.de>
parents:
9050
diff
changeset
|
306 |
yourself |
7365 | 307 |
! ! |
308 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
309 |
!Change methodsFor:'private'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
310 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
311 |
flattenOnto: aCollection |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
312 |
aCollection add: self |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
313 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
314 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
315 |
!Change methodsFor:'private'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
316 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
317 |
flattenedChanges |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
318 |
| changes | |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
319 |
changes := OrderedCollection new. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
320 |
self flattenOnto: changes. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
321 |
^changes |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
322 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
323 |
|
17421
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
324 |
!Change methodsFor:'inspecting'! |
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
325 |
|
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
326 |
inspectorExtraAttributes |
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
327 |
|attr| |
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
328 |
|
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
329 |
attr := super inspectorExtraAttributes. |
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
330 |
attr add:'-source' -> [ self source ]. |
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
331 |
^ attr |
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
332 |
|
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
333 |
"Created: / 20-02-2017 / 16:34:26 / cg" |
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
334 |
! ! |
1c4a5842450e
change has extra attribs: source
Claus Gittinger <cg@exept.de>
parents:
17415
diff
changeset
|
335 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
336 |
!Change methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
337 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
338 |
removed |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
339 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
340 |
^(self objectAttributeAt: #removed) ? false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
341 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
342 |
"Created: / 24-10-2009 / 21:10:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
343 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
344 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
345 |
!Change methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
346 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
347 |
removed: aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
348 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
349 |
^self objectAttributeAt: #removed put: aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
350 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
351 |
"Created: / 24-10-2009 / 21:11:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
352 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
353 |
|
11773 | 354 |
!ChangeSet methodsFor:'utilities'! |
355 |
||
356 |
condenseChangesForRemoved |
|
11971
69a53e6321ec
comment/format in: #condenseChangesForRemoved
Claus Gittinger <cg@exept.de>
parents:
11897
diff
changeset
|
357 |
"remove all changes which have been removed |
69a53e6321ec
comment/format in: #condenseChangesForRemoved
Claus Gittinger <cg@exept.de>
parents:
11897
diff
changeset
|
358 |
(marked for removal by aChange removed: true)" |
11773 | 359 |
|
360 |
|changesToRemove| |
|
361 |
||
11971
69a53e6321ec
comment/format in: #condenseChangesForRemoved
Claus Gittinger <cg@exept.de>
parents:
11897
diff
changeset
|
362 |
changesToRemove := |
69a53e6321ec
comment/format in: #condenseChangesForRemoved
Claus Gittinger <cg@exept.de>
parents:
11897
diff
changeset
|
363 |
self select:[:aChange | |
69a53e6321ec
comment/format in: #condenseChangesForRemoved
Claus Gittinger <cg@exept.de>
parents:
11897
diff
changeset
|
364 |
aChange isCompositeChange ifTrue:[ |
69a53e6321ec
comment/format in: #condenseChangesForRemoved
Claus Gittinger <cg@exept.de>
parents:
11897
diff
changeset
|
365 |
aChange condenseChangesForRemoved |
69a53e6321ec
comment/format in: #condenseChangesForRemoved
Claus Gittinger <cg@exept.de>
parents:
11897
diff
changeset
|
366 |
]. |
69a53e6321ec
comment/format in: #condenseChangesForRemoved
Claus Gittinger <cg@exept.de>
parents:
11897
diff
changeset
|
367 |
aChange removed |
69a53e6321ec
comment/format in: #condenseChangesForRemoved
Claus Gittinger <cg@exept.de>
parents:
11897
diff
changeset
|
368 |
]. |
11773 | 369 |
|
370 |
self condenseChanges:changesToRemove |
|
371 |
||
372 |
"Created: / 05-11-2001 / 14:21:17 / cg" |
|
373 |
"Modified: / 12-10-2006 / 16:51:27 / cg" |
|
374 |
! ! |
|
375 |
||
13887 | 376 |
!ChangeSet methodsFor:'private'! |
377 |
||
378 |
flattenOnto: aCollection |
|
379 |
||
380 |
self do:[:change|change flattenOnto: aCollection] |
|
381 |
! ! |
|
382 |
||
383 |
!ChangeSet methodsFor:'private'! |
|
384 |
||
385 |
flattenedChanges |
|
386 |
| changes | |
|
387 |
changes := OrderedCollection new. |
|
388 |
self flattenOnto: changes. |
|
389 |
^changes |
|
390 |
! ! |
|
391 |
||
392 |
!ChangeSet methodsFor:'inspecting'! |
|
393 |
||
394 |
inspector2TabBrowser |
|
395 |
||
396 |
^self newInspector2Tab |
|
397 |
label: 'Changes'; |
|
398 |
priority: 35; |
|
399 |
"JV@2011-08-06: Cannot do 'UserPreferences current changeSetBrowserClass' |
|
400 |
here since ChangeSetBrowser has no #on: and it is not an application model. |
|
401 |
Thus, enforce Tools::ChangeSetBrowser2 here..." |
|
402 |
application: ((Tools::ChangeSetBrowser2 on: self) beOneColumn; yourself) |
|
403 |
||
404 |
"Modified: / 25-07-2011 / 12:22:07 / sr" |
|
405 |
"Modified: / 06-08-2011 / 21:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
406 |
"Modified: / 13-09-2011 / 11:55:53 / cg" |
|
407 |
! ! |
|
408 |
||
409 |
!ChangeSet methodsFor:'inspecting'! |
|
410 |
||
411 |
inspector2Tabs |
|
15285
292d95b373b7
Fixed #inspector2Tabs method: always call 'super inspector2Tabs'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15271
diff
changeset
|
412 |
^ super inspector2Tabs , #( inspector2TabBrowser ) |
13887 | 413 |
|
414 |
"Created: / 05-07-2011 / 13:40:19 / cg" |
|
15285
292d95b373b7
Fixed #inspector2Tabs method: always call 'super inspector2Tabs'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15271
diff
changeset
|
415 |
"Modified: / 13-02-2015 / 21:03:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13887 | 416 |
! ! |
417 |
||
8843 | 418 |
!Character methodsFor:'inspecting'! |
419 |
||
420 |
inspectorExtraAttributes |
|
421 |
"extra (pseudo instvar) entries to be shown in an inspector." |
|
8677 | 422 |
|
15149 | 423 |
|atts| |
424 |
||
425 |
atts := super inspectorExtraAttributes. |
|
426 |
atts |
|
13639 | 427 |
add:'-hexValue' -> [ self codePoint radixPrintStringRadix:16 ]; |
428 |
add:'-string' -> [ self stringSpecies with:self ]; |
|
429 |
add:'-utf8String' -> [ self utf8Encoded ]; |
|
15149 | 430 |
add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ]. |
431 |
||
432 |
HTMLUtilities notNil ifTrue:[ |
|
433 |
atts add:'-html' -> [ HTMLUtilities escapeCharacterEntities:self asString ] |
|
434 |
]. |
|
435 |
^ atts |
|
8843 | 436 |
|
437 |
" |
|
438 |
$a inspect |
|
15149 | 439 |
$> inspect |
440 |
(Character value:16r3124) inspect |
|
8843 | 441 |
" |
442 |
||
443 |
"Created: / 22-10-2006 / 03:52:20 / cg" |
|
7447 | 444 |
! ! |
445 |
||
11773 | 446 |
!Character methodsFor:'inspecting'! |
447 |
||
448 |
inspectorValueStringInListFor:anInspector |
|
449 |
"returns a string to be shown in the inspector's list" |
|
450 |
||
451 |
(asciivalue <= 16r7f) ifTrue:[ |
|
452 |
^ self storeString,(' "16r%1 %2"' bindWith:(asciivalue hexPrintString) with:asciivalue) |
|
453 |
]. |
|
454 |
^ self storeString,(' "%1"' bindWith:asciivalue) |
|
455 |
! ! |
|
456 |
||
10313 | 457 |
!CharacterArray methodsFor:'inspecting'! |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
458 |
|
10355 | 459 |
inspector2TabBytes |
16283
a0933d5dc2c1
hexdump (in inspector) for 2-byte chars fixed
Claus Gittinger <cg@exept.de>
parents:
16282
diff
changeset
|
460 |
|bytesShown| |
a0933d5dc2c1
hexdump (in inspector) for 2-byte chars fixed
Claus Gittinger <cg@exept.de>
parents:
16282
diff
changeset
|
461 |
|
a0933d5dc2c1
hexdump (in inspector) for 2-byte chars fixed
Claus Gittinger <cg@exept.de>
parents:
16282
diff
changeset
|
462 |
"/ ouch - ever tried to inspect a 5Mb string? |
a0933d5dc2c1
hexdump (in inspector) for 2-byte chars fixed
Claus Gittinger <cg@exept.de>
parents:
16282
diff
changeset
|
463 |
self size < 10000 ifTrue:[ |
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
464 |
bytesShown := self asByteArray hexPrintStringWithSeparator:Character space |
16283
a0933d5dc2c1
hexdump (in inspector) for 2-byte chars fixed
Claus Gittinger <cg@exept.de>
parents:
16282
diff
changeset
|
465 |
] ifFalse:[ |
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
466 |
bytesShown := ((self copyTo:10000) asByteArray hexPrintStringWithSeparator:Character space), |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
467 |
Character cr, |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
468 |
'... (only the first 10000 bytes are shown)' |
16283
a0933d5dc2c1
hexdump (in inspector) for 2-byte chars fixed
Claus Gittinger <cg@exept.de>
parents:
16282
diff
changeset
|
469 |
]. |
a0933d5dc2c1
hexdump (in inspector) for 2-byte chars fixed
Claus Gittinger <cg@exept.de>
parents:
16282
diff
changeset
|
470 |
|
a0933d5dc2c1
hexdump (in inspector) for 2-byte chars fixed
Claus Gittinger <cg@exept.de>
parents:
16282
diff
changeset
|
471 |
^ self newInspector2Tab |
10355 | 472 |
label: 'Bytes'; |
15860 | 473 |
priority: 39; |
15316 | 474 |
view: ((HVScrollableView for:EditTextView) |
475 |
autoHideVerticalScrollBar:true; |
|
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
476 |
contents:bytesShown; |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
477 |
yourself); |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
478 |
yourself |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
479 |
|
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
480 |
" |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
481 |
(String new:100000) inspect |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
482 |
" |
10355 | 483 |
|
484 |
"Created: / 17-02-2008 / 10:10:50 / janfrog" |
|
485 |
"Created: / 20-07-2011 / 16:36:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
10637
1114ddcf69f7
variable renamed in: #inspector2TabBytes
Claus Gittinger <cg@exept.de>
parents:
10527
diff
changeset
|
486 |
"Modified: / 21-08-2011 / 07:32:57 / cg" |
10355 | 487 |
! ! |
488 |
||
489 |
!CharacterArray methodsFor:'inspecting'! |
|
490 |
||
14071
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
491 |
inspector2TabDiff |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
492 |
| diffApp | |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
493 |
|
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
494 |
diffApp := Tools::TextDiff2Tool new. |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
495 |
diffApp labelA: 'self'; textA: self. |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
496 |
diffApp labelB: 'pasted'; textB: 'Paste some text here'. |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
497 |
diffApp diffView leftTextView readOnly: true. |
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
498 |
diffApp diffView rightTextView |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
499 |
acceptAction:[:contents | |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
500 |
diffApp textBHolder value: contents asString. |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
501 |
diffApp updateViews. |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
502 |
]. |
10851
26a08a701fde
string: inspector \"knows\" about html
Claus Gittinger <cg@exept.de>
parents:
10839
diff
changeset
|
503 |
|
26a08a701fde
string: inspector \"knows\" about html
Claus Gittinger <cg@exept.de>
parents:
10839
diff
changeset
|
504 |
^self newInspector2Tab |
14071
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
505 |
label: 'Diff'; |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
506 |
priority: 33; |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
507 |
application: diffApp; |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
508 |
yourself |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
509 |
|
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
510 |
"Created: / 27-02-2014 / 16:05:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
511 |
! ! |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
512 |
|
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
513 |
!CharacterArray methodsFor:'inspecting'! |
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
514 |
|
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
515 |
inspector2TabHTML |
17173
8a29e40204a3
html tab - doctype and html tags are caseless
Claus Gittinger <cg@exept.de>
parents:
17171
diff
changeset
|
516 |
|lcString| |
8a29e40204a3
html tab - doctype and html tags are caseless
Claus Gittinger <cg@exept.de>
parents:
17171
diff
changeset
|
517 |
|
8a29e40204a3
html tab - doctype and html tags are caseless
Claus Gittinger <cg@exept.de>
parents:
17171
diff
changeset
|
518 |
"/ use Smalltalk >> at:, to prevent HTMLDocumentView becoming a prereq of libbasic |
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
519 |
(Smalltalk at:#HTMLDocumentView) notNil ifTrue:[ |
17173
8a29e40204a3
html tab - doctype and html tags are caseless
Claus Gittinger <cg@exept.de>
parents:
17171
diff
changeset
|
520 |
lcString := self asLowercase. |
8a29e40204a3
html tab - doctype and html tags are caseless
Claus Gittinger <cg@exept.de>
parents:
17171
diff
changeset
|
521 |
((lcString startsWith:'<!!doctype html' ) or:[ (lcString startsWith:'<html>') ]) ifTrue:[ |
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
522 |
^self newInspector2Tab |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
523 |
label: 'HTML'; |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
524 |
priority: 35; |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
525 |
view: ((ScrollableView for:(Smalltalk at:#HTMLDocumentView)) setText: self; yourself); |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
526 |
yourself |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
527 |
]. |
14071
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
528 |
]. |
17173
8a29e40204a3
html tab - doctype and html tags are caseless
Claus Gittinger <cg@exept.de>
parents:
17171
diff
changeset
|
529 |
"/ If nil is returned, the HTML tab is not shown... |
14071
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
530 |
^ nil |
10851
26a08a701fde
string: inspector \"knows\" about html
Claus Gittinger <cg@exept.de>
parents:
10839
diff
changeset
|
531 |
|
26a08a701fde
string: inspector \"knows\" about html
Claus Gittinger <cg@exept.de>
parents:
10839
diff
changeset
|
532 |
"Created: / 17-02-2008 / 10:10:50 / janfrog" |
26a08a701fde
string: inspector \"knows\" about html
Claus Gittinger <cg@exept.de>
parents:
10839
diff
changeset
|
533 |
"Created: / 07-11-2011 / 12:35:15 / cg" |
14071
1920eb29e7b5
Added diff inspector tab for String-like objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14013
diff
changeset
|
534 |
"Modified: / 27-02-2014 / 16:08:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10851
26a08a701fde
string: inspector \"knows\" about html
Claus Gittinger <cg@exept.de>
parents:
10839
diff
changeset
|
535 |
! ! |
26a08a701fde
string: inspector \"knows\" about html
Claus Gittinger <cg@exept.de>
parents:
10839
diff
changeset
|
536 |
|
26a08a701fde
string: inspector \"knows\" about html
Claus Gittinger <cg@exept.de>
parents:
10839
diff
changeset
|
537 |
!CharacterArray methodsFor:'inspecting'! |
26a08a701fde
string: inspector \"knows\" about html
Claus Gittinger <cg@exept.de>
parents:
10839
diff
changeset
|
538 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
539 |
inspector2TabText |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
540 |
|
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
541 |
^ self newInspector2Tab |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
542 |
label: 'String'; |
10637
1114ddcf69f7
variable renamed in: #inspector2TabBytes
Claus Gittinger <cg@exept.de>
parents:
10527
diff
changeset
|
543 |
priority: 50; |
15316 | 544 |
view: ((ScrollableView for:EditTextView) |
545 |
autoHideVerticalScrollBar:true; |
|
546 |
contents: self; |
|
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
547 |
yourself); |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
548 |
yourself |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
549 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
550 |
"Created: / 17-02-2008 / 10:10:50 / janfrog" |
10637
1114ddcf69f7
variable renamed in: #inspector2TabBytes
Claus Gittinger <cg@exept.de>
parents:
10527
diff
changeset
|
551 |
"Modified: / 21-08-2011 / 08:02:57 / cg" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
552 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
553 |
|
10313 | 554 |
!CharacterArray methodsFor:'inspecting'! |
10164 | 555 |
|
15860 | 556 |
inspector2TabXMLTree |
557 |
"extra tab to be shown in an inspector2." |
|
558 |
||
559 |
|tabClass tab sub xmlInspectorClass xmlParserClass| |
|
560 |
||
17174 | 561 |
(self asLowercase startsWith:'<?xml') ifFalse:[^ nil]. |
15860 | 562 |
|
563 |
"return an extra XML-dom tab to be used inside an inspector" |
|
564 |
||
565 |
"/ avoid generating a dependency here |
|
566 |
(tabClass := Smalltalk at: #'Tools::Inspector2Tab') isNil ifTrue:[^ nil]. |
|
567 |
tab := tabClass new. |
|
568 |
||
569 |
"/ to prevent the dependcy walker from adding libtool2 to the package: |
|
570 |
(xmlInspectorClass := Smalltalk at:#'XML::XMLInspector') isNil ifTrue:[^ nil ]. |
|
571 |
(xmlParserClass := Smalltalk at:#'XML::XMLParser') isNil ifTrue:[^ nil ]. |
|
572 |
||
573 |
sub := xmlInspectorClass embeddableInspectorApplicationFor:(xmlParserClass parse:self). |
|
574 |
||
575 |
^ tab |
|
576 |
label: 'XML DOM'; |
|
577 |
priority: 45; |
|
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
578 |
view: sub; |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
579 |
yourself |
15860 | 580 |
! ! |
581 |
||
582 |
!CharacterArray methodsFor:'inspecting'! |
|
583 |
||
10164 | 584 |
inspector2Tabs |
15317 | 585 |
^ super inspector2Tabs |
586 |
, #( |
|
587 |
inspector2TabText |
|
588 |
inspector2TabBytes |
|
589 |
inspector2TabDiff |
|
15860 | 590 |
inspector2TabHTML |
591 |
inspector2TabXMLTree |
|
15317 | 592 |
) |
10164 | 593 |
|
594 |
"Created: / 05-07-2011 / 13:40:27 / cg" |
|
15285
292d95b373b7
Fixed #inspector2Tabs method: always call 'super inspector2Tabs'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15271
diff
changeset
|
595 |
"Modified: / 13-02-2015 / 21:03:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10164 | 596 |
! ! |
597 |
||
8843 | 598 |
!CharacterArray methodsFor:'inspecting'! |
8417 | 599 |
|
8843 | 600 |
inspectorExtraAttributes |
601 |
"extra (pseudo instvar) entries to be shown in an inspector." |
|
602 |
||
603 |
|d| |
|
8417 | 604 |
|
13639 | 605 |
d := super inspectorExtraAttributes |
17299 | 606 |
add:'-hex' -> [ self asByteArray hexPrintStringWithSeparator:Character space ]; |
607 |
add:'-bytes' -> [ self asByteArray ]; |
|
13639 | 608 |
add:'-utf8String' -> [ self utf8Encoded ]; |
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
609 |
add:'-utf8Bytes' -> [ self utf8Encoded asByteArray ]; |
13639 | 610 |
add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ]; |
611 |
yourself. |
|
8839 | 612 |
|
8843 | 613 |
HTMLUtilities notNil ifTrue:[ |
13639 | 614 |
d add:'-html' -> [ HTMLUtilities escapeCharacterEntities:self ]. |
8417 | 615 |
]. |
616 |
^ d |
|
617 |
||
618 |
" |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
619 |
'aou' inspect |
8417 | 620 |
" |
621 |
||
622 |
"Created: / 22-10-2006 / 03:52:20 / cg" |
|
623 |
! ! |
|
624 |
||
11773 | 625 |
!CharacterArray methodsFor:'inspecting'! |
626 |
||
627 |
inspectorValueStringInListFor:anInspector |
|
628 |
"returns a string to be shown in the inspector's list" |
|
629 |
||
12092 | 630 |
^ self basicStoreString contractTo:30. |
11773 | 631 |
! ! |
632 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
633 |
!Class methodsFor:'misc ui support'! |
12361
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
634 |
|
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
635 |
inspectorClass |
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
636 |
"redefined to launch a ClassInspector, which knows about classVariables |
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
637 |
(instead of the default InspectorView)." |
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
638 |
|
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
639 |
ClassInspectorView notNil ifTrue:[ |
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
640 |
^ ClassInspectorView |
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
641 |
]. |
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
642 |
^ super inspectorClass |
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
643 |
! ! |
dc6575e4dcfa
inspectorClass methods moved to libtool package
Claus Gittinger <cg@exept.de>
parents:
12356
diff
changeset
|
644 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
645 |
!ClassDescription methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
646 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
647 |
iconInBrowserForVariableNamed: varName |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
648 |
"variables for which an entry is found in the xml-spec (if any) are marked |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
649 |
with an <xml>-icon. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
650 |
For now, this is expecco-specific, but should be somehow lifted to the base system" |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
651 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
652 |
(Expecco::ExpeccoXMLDecoder notNil |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
653 |
and:[self canUnderstand: #xmlSpecFor:]) ifTrue:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
654 |
Error handle:[:ex | |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
655 |
] do:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
656 |
(Expecco::ExpeccoXMLDecoder xmlSpecForObject:self basicNew) |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
657 |
do:[:spec | |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
658 |
spec getter = varName ifTrue:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
659 |
^ SystemBrowser instVarOverlayXmlSpec |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
660 |
] |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
661 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
662 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
663 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
664 |
^ nil |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
665 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
666 |
"Created: / 12-04-2011 / 16:04:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
667 |
"Modified: / 13-07-2011 / 15:31:38 / cg" |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
668 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
669 |
|
11827 | 670 |
!Collection methodsFor:'inspecting'! |
671 |
||
672 |
inspectorValueStringInListFor:anInspector |
|
673 |
"returns a string to be shown in the inspector's list" |
|
674 |
||
11891
85e5a231ffeb
collection shows size in inspector
Claus Gittinger <cg@exept.de>
parents:
11852
diff
changeset
|
675 |
|sz| |
85e5a231ffeb
collection shows size in inspector
Claus Gittinger <cg@exept.de>
parents:
11852
diff
changeset
|
676 |
|
85e5a231ffeb
collection shows size in inspector
Claus Gittinger <cg@exept.de>
parents:
11852
diff
changeset
|
677 |
(sz := self size) == 0 ifTrue:[ |
11827 | 678 |
^ 'empty ' , self className |
679 |
]. |
|
11891
85e5a231ffeb
collection shows size in inspector
Claus Gittinger <cg@exept.de>
parents:
11852
diff
changeset
|
680 |
^ (super inspectorValueStringInListFor:anInspector),' size=',sz printString |
11827 | 681 |
! ! |
682 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
683 |
!Collection class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
684 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
685 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
686 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
687 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
688 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
689 |
|
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
690 |
self isAbstract ifTrue:[ |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
691 |
^ #abstractContainerClassBrowserIcon |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
692 |
]. |
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
693 |
^ #containerClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
694 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
695 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
696 |
!Color methodsFor:'misc ui support'! |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
697 |
|
8843 | 698 |
inspectorClass |
699 |
"return the class of an appropriate inspector. |
|
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
700 |
ST/X has a specialized ColorInspectorView for that" |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
701 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
702 |
^ ColorInspectorView |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
703 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
704 |
"Modified: 23.4.1996 / 13:39:50 / cg" |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
705 |
! ! |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
706 |
|
8843 | 707 |
!Color methodsFor:'inspecting'! |
8406 | 708 |
|
8843 | 709 |
inspectorExtraAttributes |
8677 | 710 |
"extra (pseudo instvar) entries to be shown in an inspector." |
711 |
||
13639 | 712 |
^ super inspectorExtraAttributes |
713 |
add:'-rgb' -> [ self rgbValue hexPrintString ]; |
|
714 |
add:'-html' -> [ self htmlPrintString ]; |
|
715 |
yourself |
|
8417 | 716 |
|
717 |
" |
|
718 |
Color red inspect |
|
719 |
" |
|
8406 | 720 |
! ! |
721 |
||
11773 | 722 |
!Color methodsFor:'inspecting'! |
723 |
||
724 |
inspectorValueStringInListFor:anInspector |
|
725 |
"returns a string to be shown in the inspector's list" |
|
726 |
||
727 |
^ self htmlPrintString |
|
728 |
! ! |
|
729 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
730 |
!CompositeChange methodsFor:'utilities'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
731 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
732 |
condenseChangesForRemoved |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
733 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
734 |
self changes condenseChangesForRemoved |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
735 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
736 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
737 |
!CompositeChange methodsFor:'private'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
738 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
739 |
flattenOnto: aCollection |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
740 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
741 |
changes do:[:change|change flattenOnto: aCollection] |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
742 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
743 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
744 |
!CompositeChange methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
745 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
746 |
removed |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
747 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
748 |
^changes allSatisfy: [:e|e removed] |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
749 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
750 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
751 |
!CompositeChange methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
752 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
753 |
removed: aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
754 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
755 |
changes do:[:e|e removed: aBoolean] |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
756 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
757 |
|
9691
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
758 |
!Date methodsFor:'inspecting'! |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
759 |
|
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
760 |
inspectorExtraAttributes |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
761 |
"extra (pseudo instvar) entries to be shown in an inspector." |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
762 |
|
13639 | 763 |
^ super inspectorExtraAttributes |
15739 | 764 |
add:'-day' -> [ self day printString ]; |
765 |
add:'-month' -> [ self month printString ]; |
|
766 |
add:'-year' -> [ self year printString ]; |
|
9691
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
767 |
add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self dayOfWeekName , '"' ]; |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
768 |
add:'-dayInYear' -> [ self dayInYear ]; |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
769 |
add:'-daysInMonth' -> [ self daysInMonth ]; |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
770 |
add:'-monthName' -> [ self monthName ]; |
14816 | 771 |
add:'-weekNr' -> [ self weekInYear ]; |
9691
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
772 |
add:'-leapYear' -> [ self isLeapYear ]; |
14817
056ec74bde0a
naming ISO vs. Iso - made all ISO stuff obsolete;
Claus Gittinger <cg@exept.de>
parents:
14816
diff
changeset
|
773 |
add:'-iso8601(utc)' -> [ self asUtcTimestamp printStringIso8601 ]; |
9691
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
774 |
yourself |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
775 |
|
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
776 |
" |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
777 |
Date today inspect |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
778 |
" |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
779 |
|
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
780 |
"Created: / 20-01-2011 / 12:19:05 / cg" |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
781 |
! ! |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
782 |
|
16122
a90902eb132b
Date >> #inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
16117
diff
changeset
|
783 |
!Date methodsFor:'printing & storing'! |
a90902eb132b
Date >> #inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
16117
diff
changeset
|
784 |
|
a90902eb132b
Date >> #inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
16117
diff
changeset
|
785 |
inspectorValueStringInListFor:anInspector |
a90902eb132b
Date >> #inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
16117
diff
changeset
|
786 |
"returns a string to be shown in the inspector's list" |
a90902eb132b
Date >> #inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
16117
diff
changeset
|
787 |
|
a90902eb132b
Date >> #inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
16117
diff
changeset
|
788 |
^ self printString |
a90902eb132b
Date >> #inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
16117
diff
changeset
|
789 |
! ! |
a90902eb132b
Date >> #inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
16117
diff
changeset
|
790 |
|
15555
91fe564d5a8f
class: GenericToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents:
15548
diff
changeset
|
791 |
!Date class methodsFor:'misc ui support'! |
91fe564d5a8f
class: GenericToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents:
15548
diff
changeset
|
792 |
|
91fe564d5a8f
class: GenericToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents:
15548
diff
changeset
|
793 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
794 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
795 |
|
15555
91fe564d5a8f
class: GenericToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents:
15548
diff
changeset
|
796 |
<resource: #programImage> |
91fe564d5a8f
class: GenericToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents:
15548
diff
changeset
|
797 |
|
91fe564d5a8f
class: GenericToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents:
15548
diff
changeset
|
798 |
^ #timeClassBrowserIcon |
91fe564d5a8f
class: GenericToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents:
15548
diff
changeset
|
799 |
! ! |
91fe564d5a8f
class: GenericToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents:
15548
diff
changeset
|
800 |
|
8843 | 801 |
!Dictionary methodsFor:'inspecting'! |
802 |
||
10316 | 803 |
inspector2TabLabel |
804 |
^ 'Dictionary' |
|
805 |
||
806 |
"Created: / 14-07-2011 / 11:57:18 / cg" |
|
807 |
! ! |
|
808 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
809 |
!Dictionary methodsFor:'misc ui support'! |
10316 | 810 |
|
8843 | 811 |
inspectorClass |
812 |
"redefined to use DictionaryInspector |
|
813 |
(instead of the default Inspector)." |
|
814 |
||
815 |
^ DictionaryInspectorView |
|
816 |
! ! |
|
817 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
818 |
!EditTextView methodsFor:'accessing-dimensions'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
819 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
820 |
absoluteXOfPosition:positionInText |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
821 |
|accumulatedX container| |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
822 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
823 |
accumulatedX := 0. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
824 |
container := self. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
825 |
[ container notNil ] whileTrue:[ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
826 |
accumulatedX := accumulatedX + container origin x. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
827 |
container := container isTopView ifFalse:[ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
828 |
container container |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
829 |
] ifTrue:[ nil ]. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
830 |
]. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
831 |
^ (self xOfPosition:positionInText) + accumulatedX |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
832 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
833 |
"Created: / 16-02-2010 / 10:05:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
834 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
835 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
836 |
!EditTextView methodsFor:'accessing-dimensions'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
837 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
838 |
absoluteYOfCursor |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
839 |
| accumulatedY container | |
14834 | 840 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
841 |
accumulatedY := 0. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
842 |
container := self. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
843 |
[ container notNil ] whileTrue:[ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
844 |
accumulatedY := accumulatedY + container origin y. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
845 |
container := container isTopView |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
846 |
ifFalse:[container container] |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
847 |
ifTrue:[nil]. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
848 |
]. |
14834 | 849 |
^ (self yOfCursor) + accumulatedY |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
850 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
851 |
"Created: / 27-05-2005 / 07:45:53 / janfrog" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
852 |
"Modified: / 27-05-2005 / 23:03:40 / janfrog" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
853 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
854 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
855 |
!EditTextView methodsFor:'accessing-dimensions'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
856 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
857 |
xOfPosition: positionInText |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
858 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
859 |
| line col | |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
860 |
line := self lineOfCharacterPosition: positionInText. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
861 |
col := positionInText - (self characterPositionOfLine:line col:1) + 1. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
862 |
^ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
863 |
(self xOfCol:col inVisibleLine:(self listLineToVisibleLine: line)) |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
864 |
- viewOrigin x. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
865 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
866 |
"Created: / 16-02-2010 / 10:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
867 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
868 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
869 |
!EditTextView methodsFor:'accessing-dimensions'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
870 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
871 |
yOfCursor |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
872 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
873 |
^self yOfVisibleLine:cursorVisibleLine. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
874 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
875 |
"Created: / 27-05-2005 / 07:43:41 / janfrog" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
876 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
877 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
878 |
!EditTextView methodsFor:'accessing-dimensions'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
879 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
880 |
yOfPosition: positionInText |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
881 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
882 |
| line | |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
883 |
line := self lineOfCharacterPosition: positionInText. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
884 |
^self yOfVisibleLine:(self listLineToVisibleLine: line) |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
885 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
886 |
"Created: / 16-02-2010 / 10:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
887 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
888 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
889 |
!Error class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
890 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
891 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
892 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
893 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
894 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
895 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
896 |
^ #errorClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
897 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
898 |
|
8843 | 899 |
!ExecutableFunction methodsFor:'printing & storing'! |
900 |
||
901 |
printStringForBrowserWithSelector:selector |
|
902 |
"return a printString to represent myself to the user in a browser." |
|
903 |
||
904 |
^ self printStringForBrowserWithSelector:selector inClass:nil |
|
905 |
! ! |
|
906 |
||
16704 | 907 |
!ExternalLibraryFunction methodsFor:'inspecting'! |
908 |
||
909 |
inspectorExtraAttributes |
|
910 |
"extra (pseudo instvar) entries to be shown in an inspector." |
|
911 |
||
912 |
|atts| |
|
913 |
||
914 |
atts := super inspectorExtraAttributes. |
|
915 |
atts |
|
916 |
add:'-callType' -> [ self isCallTypeAPI |
|
917 |
ifTrue:[ 'API' ] |
|
918 |
ifFalse:[ 'normal' ] |
|
17061
17e020091a74
class: ExternalLibraryFunction
Claus Gittinger <cg@exept.de>
parents:
17022
diff
changeset
|
919 |
]; |
17e020091a74
class: ExternalLibraryFunction
Claus Gittinger <cg@exept.de>
parents:
17022
diff
changeset
|
920 |
add:'-virtual' -> [ self isVirtualCPP ]. |
16704 | 921 |
|
922 |
^ atts |
|
17061
17e020091a74
class: ExternalLibraryFunction
Claus Gittinger <cg@exept.de>
parents:
17022
diff
changeset
|
923 |
|
17e020091a74
class: ExternalLibraryFunction
Claus Gittinger <cg@exept.de>
parents:
17022
diff
changeset
|
924 |
"Modified: / 12-11-2016 / 11:38:35 / cg" |
16704 | 925 |
! ! |
926 |
||
16837
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
927 |
!FileStream methodsFor:'inspecting'! |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
928 |
|
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
929 |
inspectorExtraMenuOperations |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
930 |
"extra operation-menu entries to be shown in an inspector. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
931 |
Answers a collection of pairs contining aString and action aBlock. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
932 |
aString is the label of the menu item. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
933 |
aBlock is evaluated when the menu item is selected. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
934 |
To be redefined in objects which think that it makes sense to offer |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
935 |
often used operations in an inspector. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
936 |
See SerialPort as an example." |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
937 |
|
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
938 |
|superItems| |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
939 |
|
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
940 |
superItems := super inspectorExtraMenuOperations. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
941 |
^ superItems , |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
942 |
{ |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
943 |
{ 'Close File' . [self close] } |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
944 |
}. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
945 |
! ! |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
946 |
|
15286
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
947 |
!Filename methodsFor:'debugging'! |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
948 |
|
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
949 |
inspector2TabContentsView |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
950 |
<inspector2Tab> |
16367 | 951 |
|
952 |
"provide an additional tab, which presents the file's contents. |
|
953 |
'.' asFilename inspect |
|
954 |
'smalltalk.rc' asFilename inspect |
|
955 |
" |
|
15286
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
956 |
|
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
957 |
| mimetype | |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
958 |
|
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
959 |
self isDirectory ifTrue:[ |
16722
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
960 |
| tab | |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
961 |
|
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
962 |
^ (tab := Tools::Inspector2Tab new) |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
963 |
label: 'Contents'; |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
964 |
priority: 50; |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
965 |
applicationHolder: [ |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
966 |
| browser | |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
967 |
|
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
968 |
browser := DirectoryContentsBrowser new. |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
969 |
browser |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
970 |
initializeAspects; |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
971 |
aspectFor:#currentFileNameHolder put:((OrderedCollection with:self) asValue); |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
972 |
updateCurrentFileNameHolderWhenSelectionChanges:false. |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
973 |
browser viewDirsInContentsBrowser value:true. |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
974 |
browser enterActionBlock:[:item| |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
975 |
| app | |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
976 |
app := tab view topView application. |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
977 |
app notNil ifTrue:[ |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
978 |
app inspect: item fileName. |
15286
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
979 |
]. |
16722
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
980 |
]. |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
981 |
browser |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
982 |
]; |
63b17ec548a5
Fix inspector2 inspecting of Filename directories
Stefan Vogel <sv@exept.de>
parents:
16704
diff
changeset
|
983 |
yourself |
15286
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
984 |
]. |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
985 |
mimetype := self mimeTypeFromName. |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
986 |
(mimetype notNil and:[mimetype isTextType or:[ mimetype endsWith: '-source']]) ifTrue:[ |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
987 |
^ Tools::Inspector2Tab new |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
988 |
label: 'Contents'; |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
989 |
priority: 50; |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
990 |
viewHolder: [ |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
991 |
| view model | |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
992 |
|
15616
325be5f3e308
inspector extension for file
Claus Gittinger <cg@exept.de>
parents:
15587
diff
changeset
|
993 |
self exists ifTrue:[ |
325be5f3e308
inspector extension for file
Claus Gittinger <cg@exept.de>
parents:
15587
diff
changeset
|
994 |
model := self contents asValue. |
325be5f3e308
inspector extension for file
Claus Gittinger <cg@exept.de>
parents:
15587
diff
changeset
|
995 |
] ifFalse:[ |
325be5f3e308
inspector extension for file
Claus Gittinger <cg@exept.de>
parents:
15587
diff
changeset
|
996 |
model := 'File does not (no longer?) exist' asValue. |
325be5f3e308
inspector extension for file
Claus Gittinger <cg@exept.de>
parents:
15587
diff
changeset
|
997 |
]. |
15286
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
998 |
view := Tools::CodeView2 new. |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
999 |
view model: model. |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1000 |
view acceptAction:[ :contents | |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1001 |
self writingFileDo:[:s| |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1002 |
contents do:[:line | s nextPutLine: line ]. |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1003 |
]. |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1004 |
model value: contents. |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1005 |
]. |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1006 |
view |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1007 |
]; |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1008 |
yourself |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1009 |
]. |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1010 |
|
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1011 |
|
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1012 |
^ nil |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1013 |
|
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1014 |
"Created: / 13-02-2015 / 15:08:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1015 |
"Modified: / 13-02-2015 / 20:57:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1016 |
! ! |
3a5dd497b5e3
Added "Contents" tab to Filename inspector.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15285
diff
changeset
|
1017 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1018 |
!Form methodsFor:'misc ui support'! |
8843 | 1019 |
|
1020 |
inspectorClass |
|
1021 |
"redefined to launch an ImageInspector |
|
1022 |
(instead of the default InspectorView)." |
|
1023 |
||
1024 |
^ ImageInspectorView |
|
1025 |
! ! |
|
1026 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1027 |
!GenericException class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1028 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1029 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
1030 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
1031 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1032 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1033 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1034 |
^ #exceptionClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1035 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1036 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1037 |
!GenericToolbarIconLibrary class methodsFor:'image specs-22x22'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1038 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1039 |
bookmarks22x22 |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1040 |
"This resource specification was automatically generated |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1041 |
by the ImageEditor of ST/X." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1042 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1043 |
"Do not manually edit this!! If it is corrupted, |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1044 |
the ImageEditor may not be able to read the specification." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1045 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1046 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1047 |
self bookmarks22x22 inspect |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1048 |
ImageEditor openOnClass:self andSelector:#bookmarks22x22 |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1049 |
Icon flushCachedIcons |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1050 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1051 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1052 |
<resource: #image> |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1053 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1054 |
^Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1055 |
constantNamed:'GenericToolbarIconLibrary class bookmarks22x22' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1056 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1057 |
????????????????????????????????????????????????????????????????????????LT;??????????????????????????6BAD/?????????????? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1058 |
?????????16L''"+???????????????????????<7''95Y????????????????????????YI2[_!!C?????????????????????GXZZ&Y\0????????????I$YF |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1059 |
Q$YFQUBX%)VRZ%YAO34=OR????=T#9RT$9FP#(6K"(VB_718]U0%????FC)9"X"G!!HN@_W]4\V=)YT@E????????J&Y;^''Y3\''A-ZFI_UR8A??????????<Q |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1060 |
SF9,Z6]#WU!!SQBW??????????????1YWXU9ZTT5IP2K???????????????<)V5IOR$\>NS (????????????????M$-HP#,3KB\ZE07?????????????GST< |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1061 |
MB4$GATNB0(]?????????????142J18[@O<RC0XCD?????????????<!!H1$G?????1@T@ $H????????????G2@D?????????14L???????????????????? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1062 |
?????????????????????????????????????????????0@a') ; colorMapFromArray:#[143 162 38 146 165 38 153 167 24 155 168 21 149 168 39 149 169 39 156 169 21 151 170 40 151 171 40 156 171 30 159 173 22 160 174 20 156 174 34 154 175 41 162 176 20 159 176 32 156 176 41 156 177 41 157 177 41 159 178 37 159 178 38 163 179 26 158 179 42 163 180 27 159 180 42 162 180 35 166 181 20 160 181 40 161 181 39 160 181 42 165 181 28 162 181 37 161 181 40 162 181 38 161 181 41 168 181 23 162 182 36 161 182 41 161 182 43 168 183 20 163 183 35 162 183 41 162 183 42 170 184 22 169 185 20 169 185 23 164 185 38 164 185 40 164 185 42 164 185 43 171 186 24 171 187 21 172 187 22 170 187 29 168 187 35 165 187 44 171 188 19 173 190 19 168 189 44 174 190 21 174 190 22 170 192 37 176 192 20 170 192 38 171 193 33 171 193 38 177 193 21 176 194 19 174 194 26 172 193 47 172 193 48 178 195 20 179 195 21 179 197 19 180 197 20 180 197 21 176 197 38 181 199 19 177 199 46 183 201 20 179 200 50 184 202 19 185 202 21 184 203 18 180 201 50 183 204 21 181 203 37 184 204 27 185 205 18 181 204 45 187 205 19 187 205 21 183 206 27 187 208 18 189 208 20 189 210 17 186 208 51 191 210 20 190 211 17 190 211 19 187 209 53 191 213 17 190 211 43 193 213 19 193 214 17 194 216 16 192 215 38 195 216 20 196 217 25 196 218 18 196 217 28 196 219 17 198 220 18 199 221 17 200 222 23 201 222 28 201 224 17 200 225 16 203 223 33 203 225 20 202 226 16 202 223 51 204 224 38 204 224 41 203 227 16 204 226 26 203 226 47 204 229 16 206 227 34 203 227 53 206 230 21 207 228 39 208 228 43 207 231 26 207 228 60 209 229 48 209 229 51 210 229 52 209 232 33 210 232 39 209 231 58 211 233 46 212 234 52 213 233 63 213 234 56 214 235 59 214 237 41 215 235 62 215 235 64 215 238 49 217 238 55 217 240 46 218 239 61 219 242 53 220 242 59 222 245 56 223 245 62 224 248 57 224 248 58 224 248 64 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@C@@@C @@G @@G @@G0@@O0@_??8O??8O??0C?? A?>@@?<@@?<@@?>@A?>@A>>@A8_@A0F@@@@@@@@@') ; yourself); yourself] |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1063 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1064 |
"Modified: / 05-05-2011 / 12:45:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1065 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1066 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1067 |
!GenericToolbarIconLibrary class methodsFor:'image specs-16x16'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1068 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1069 |
bug16x16Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1070 |
"This resource specification was automatically generated |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1071 |
by the ImageEditor of ST/X." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1072 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1073 |
"Do not manually edit this!! If it is corrupted, |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1074 |
the ImageEditor may not be able to read the specification." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1075 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1076 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1077 |
self bug16x16Icon inspect |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1078 |
ImageEditor openOnClass:self andSelector:#bug16x16Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1079 |
Icon flushCachedIcons |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1080 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1081 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1082 |
<resource: #image> |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1083 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1084 |
^Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1085 |
constantNamed:'GenericToolbarIconLibrary class bug16x16Icon' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1086 |
ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1087 |
???????????????????????????????????????????????????3R/??????????????????O"_???????????????????7=?#J1???????????=???=IBP$ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1088 |
?_????????????7=W5=_W5?=O/7???????>L?PLC@0LC?_????????7=/4S[7S 8TY/=?VC?????L#L.>JI3I+A%H#[?????GA3_]U*/M3_;BPRLD_????7= |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1089 |
?_B@M>DE-04>?U/??????2_=HEXYQ7:R<Q_???????4>G2$%Q9QEL?5_??????????<=?\;M??????????????????=-H????????0@a') ; colorMapFromArray:#[205 205 205 227 35 35 106 106 106 98 98 98 135 135 135 163 34 34 101 5 5 124 124 124 48 2 2 227 11 11 173 173 173 218 54 54 241 241 241 235 19 19 225 225 225 219 18 18 245 58 58 214 214 214 249 46 46 90 90 90 254 61 61 36 36 36 176 176 176 233 233 233 114 114 114 255 78 78 212 33 33 230 57 57 61 61 61 94 94 94 76 76 76 19 19 19 255 57 57 161 161 161 83 83 83 217 217 217 249 249 249 255 65 65 139 2 2 27 27 27 169 169 169 253 53 53 210 28 28 251 251 251 154 154 154 117 117 117 195 1 1 245 245 245 145 145 145 218 5 5 230 230 230 69 2 2 181 181 181 11 11 11 141 141 141 249 61 61 205 21 21 165 165 165 157 157 157 241 28 28 223 223 223 109 109 109 2 2 2 245 45 45 146 0 0 69 69 69 137 137 137 140 40 40 188 1 1 206 24 24 219 33 33 255 76 76 249 49 49 249 56 56 236 236 236 121 121 121 248 53 53 171 1 1 111 40 40 237 41 41 178 21 21 205 16 16 129 129 129 163 1 1 155 18 18 85 4 4 243 68 68 73 73 73 45 45 45 202 51 51 241 40 40 86 86 86 114 1 1 210 4 4 246 41 41 148 148 148 189 189 189 209 209 209 210 17 17 158 28 28 213 5 5 205 1 1 53 53 53 217 9 9 69 40 40 187 10 10 255 74 74 218 28 28 146 11 11 65 65 65 232 37 37 101 101 101 196 26 26 245 53 53 188 26 26 213 10 10 184 184 184 206 5 5 249 65 65 172 21 21 206 34 34 195 195 195 237 32 32 131 12 12 233 29 29 179 36 36 241 37 37 139 13 13 245 49 49 180 1 1 168 37 37 198 198 198 202 202 202 228 21 21 206 10 10 206 29 29 229 30 30 255 80 80 188 20 20 245 37 37 57 57 57 252 50 50 87 42 42 172 10 10 209 13 13 155 4 4 164 11 11 242 44 44 255 70 70 225 25 25 222 14 14 237 24 24 240 49 49 205 13 13 202 44 44 201 0 0 225 17 17 186 42 42 255 72 72 122 1 1 40 40 40 157 10 10 209 8 8 222 8 8 195 41 41 223 21 21 180 11 11 255 68 68 162 28 28 194 11 11 232 25 25 131 1 1 241 32 32 246 246 246 49 49 49 224 44 44 208 2 2 227 227 227 239 239 239 239 46 46 162 20 20 245 33 33 219 219 219 238 29 29 237 37 37 171 29 29 36 46 46 250 68 68 147 16 16 182 26 26 187 187 187 24 1 1 185 32 32 229 24 24 232 33 33 150 150 150 122 12 12 229 17 17 204 27 27 242 52 52 213 2 2 200 15 15 191 191 191 217 43 43 217 12 12 115 10 10 140 16 16 200 28 28 202 6 6 215 13 13 182 41 41 57 46 46 40 46 46 233 40 40 252 70 70 173 40 40 226 28 28 46 54 54 202 22 22 203 18 18 245 72 72 191 17 17 200 37 37 10 0 0 50 52 52 252 74 74 252 72 72 247 38 38 160 40 40 231 14 14 252 68 68 200 10 10 15 15 15 211 47 47 254 254 254 253 76 76 23 23 23 237 69 69 7 7 7 144 7 7 196 8 7 32 32 32 59 59 59 90 93 93 67 67 67 70 28 28 50 56 56 232 15 16 208 4 4 237 35 35 220 12 11 232 20 20 223 62 62 0 0 0 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L@@0@C8AO C?0O<C?>G?0??#?>C?0_?@O@@L@b') ; yourself); yourself] |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1090 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1091 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1092 |
!GenericToolbarIconLibrary class methodsFor:'image specs-24x24'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1093 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1094 |
bug24x24Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1095 |
"This resource specification was automatically generated |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1096 |
by the ImageEditor of ST/X." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1097 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1098 |
"Do not manually edit this!! If it is corrupted, |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1099 |
the ImageEditor may not be able to read the specification." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1100 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1101 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1102 |
self bug24x24Icon inspect |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1103 |
ImageEditor openOnClass:self andSelector:#bug24x24Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1104 |
Icon flushCachedIcons |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1105 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1106 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1107 |
<resource: #image> |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1108 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1109 |
^Icon |
14946 | 1110 |
constantNamed:'GenericToolbarIconLibrary bug24x24Icon' |
1111 |
ifAbsentPut:[(Depth8Image new) width:24; height:24; bits:(ByteArray fromPackedString:' |
|
1112 |
??????????????????????????????????????????????????<@???????????????????????1??????<@<???????????????????????<4+????3???? |
|
1113 |
????????????????????O"_???> ??????????????????????????5/[3;.?????????????????????????V<$?#K=,_????????????????7???=/[2P$ |
|
1114 |
IBP$?_?????=????????MV?=???=L&<2L&<2?_7?XQW.??????????=/?_7=XVE!!XVE!!W?7=O#[?????????????[?4''@0L8NC C@?7=???????????????? |
|
1115 |
?_6[NC 8NC 8NI/=?????????????_7=/4R[6=48NC!!"TY-M?_7=XO???????3H0L29%>JK/\2Z",FUDH#YJ????????????L9-$3N>%%ZW/YL!!D???????? |
|
1116 |
????GA1W77W7V*<7M3\R>0%DAH0\D_???????SC=?_@M C_W8PTP-05MO/7=V???????@@@4MX>WRW7WFPVZ"?//?1XV??????????<XI?7]HEXYFT]Y_)K= |
|
1117 |
<Q_??????????3PXO!!?DJRU*Q9P%QSL5?U<@?????????3T5???=F$ EB@?L37?[3;=?????????6??????O_7D3,7=????@@A/??????????????????<( |
|
1118 |
JB#?????????????????????????????????????????????') ; colorMapFromArray:#[205 205 205 227 35 35 106 106 106 98 98 98 135 135 135 163 34 34 101 5 5 124 124 124 48 2 2 227 11 11 173 173 173 218 54 54 241 241 241 235 19 19 225 225 225 219 18 18 245 58 58 214 214 214 249 46 46 90 90 90 254 61 61 36 36 36 176 176 176 233 233 233 114 114 114 255 78 78 212 33 33 230 57 57 61 61 61 94 94 94 76 76 76 19 19 19 255 57 57 161 161 161 83 83 83 217 217 217 249 249 249 255 65 65 139 2 2 27 27 27 169 169 169 253 53 53 210 28 28 251 251 251 154 154 154 117 117 117 195 1 1 245 245 245 145 145 145 218 5 5 230 230 230 69 2 2 181 181 181 11 11 11 141 141 141 249 61 61 205 21 21 165 165 165 157 157 157 241 28 28 223 223 223 109 109 109 2 2 2 245 45 45 146 0 0 69 69 69 137 137 137 140 40 40 188 1 1 206 24 24 219 33 33 255 76 76 249 49 49 249 56 56 236 236 236 121 121 121 248 53 53 171 1 1 111 40 40 237 41 41 178 21 21 205 16 16 129 129 129 163 1 1 155 18 18 85 4 4 243 68 68 73 73 73 45 45 45 202 51 51 241 40 40 86 86 86 114 1 1 210 4 4 246 41 41 148 148 148 189 189 189 209 209 209 210 17 17 158 28 28 213 5 5 205 1 1 53 53 53 217 9 9 69 40 40 187 10 10 255 74 74 218 28 28 146 11 11 65 65 65 232 37 37 101 101 101 196 26 26 245 53 53 188 26 26 213 10 10 184 184 184 206 5 5 249 65 65 172 21 21 206 34 34 195 195 195 237 32 32 131 12 12 233 29 29 179 36 36 241 37 37 139 13 13 245 49 49 180 1 1 168 37 37 198 198 198 202 202 202 228 21 21 206 10 10 206 29 29 229 30 30 255 80 80 188 20 20 245 37 37 57 57 57 252 50 50 87 42 42 172 10 10 209 13 13 155 4 4 164 11 11 242 44 44 255 70 70 225 25 25 222 14 14 237 24 24 240 49 49 205 13 13 202 44 44 201 0 0 225 17 17 186 42 42 255 72 72 122 1 1 40 40 40 157 10 10 209 8 8 222 8 8 195 41 41 223 21 21 180 11 11 255 68 68 162 28 28 194 11 11 232 25 25 131 1 1 241 32 32 246 246 246 49 49 49 224 44 44 208 2 2 227 227 227 239 239 239 239 46 46 162 20 20 245 33 33 219 219 219 238 29 29 237 37 37 171 29 29 36 46 46 250 68 68 147 16 16 182 26 26 187 187 187 24 1 1 185 32 32 229 24 24 232 33 33 150 150 150 122 12 12 229 17 17 204 27 27 242 52 52 213 2 2 200 15 15 191 191 191 217 43 43 217 12 12 115 10 10 140 16 16 200 28 28 202 6 6 215 13 13 182 41 41 57 46 46 40 46 46 233 40 40 252 70 70 173 40 40 226 28 28 46 54 54 202 22 22 203 18 18 245 72 72 191 17 17 200 37 37 10 0 0 50 52 52 252 74 74 252 72 72 247 38 38 160 40 40 231 14 14 252 68 68 200 10 10 15 15 15 211 47 47 254 254 254 253 76 76 23 23 23 237 69 69 7 7 7 144 7 7 196 8 7 32 32 32 59 59 59 90 93 93 67 67 67 70 28 28 50 56 56 232 15 16 208 4 4 237 35 35 220 12 11 232 20 20 223 62 62 0 0 0 255 255 255 255 255 255]; mask:((ImageMask new) width:24; height:24; bits:(ByteArray fromPackedString:'@@@@@@@@@HD@@FH@@FH@@C8@@G<@BO<HGO>8A??0@??@@??@G??<C??8@??@G??<G??<A??XA??0C??0CO>8BG8H@A0@@@@@') ; yourself); yourself] |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1119 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1120 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1121 |
!GenericToolbarIconLibrary class methodsFor:'image specs-32x32'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1122 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1123 |
bug32x32Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1124 |
<resource: #image> |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1125 |
"This resource specification was automatically generated |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1126 |
by the ImageEditor of ST/X." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1127 |
"Do not manually edit this!! If it is corrupted, |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1128 |
the ImageEditor may not be able to read the specification." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1129 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1130 |
self bug3232Icon inspect |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1131 |
ImageEditor openOnClass:self andSelector:#bug3232Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1132 |
Icon flushCachedIcons" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1133 |
|
14946 | 1134 |
^ Icon constantNamed:'GenericToolbarIconLibrary class bug32x32Icon' |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1135 |
ifAbsentPut:[ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1136 |
(Depth8Image new) |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1137 |
width:32; |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1138 |
height:32; |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1139 |
photometric:(#palette); |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1140 |
bitsPerSample:(#( 8 )); |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1141 |
samplesPerPixel:((1)); |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1142 |
bits:(ByteArray |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1143 |
fromPackedString:' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1144 |
??????????????????????????????????????????????????????????????????>6@/?????????????????????????????1H_????????4-???????? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1145 |
???????????????????????=?_??????O!!???????????????????????????????3W3R/?????=I????????????????????????????????38''?????:C? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1146 |
??????????????????????????????????7.??<>;/???????????????????????????????????_7=?_7=????????????????????????????????[?7= |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1147 |
IO;>L/7=,_?????????????????????=?????6?=?RP$IBP$IO7=???????=????????????MX3=?????_42L#H2L#H2L/7=??=!!E^8Q????????????O.9K |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1148 |
?_7=@G%9^W%9^W%9JO7=O%K=O/???????????????_7=?_5_W5=_W5=_W5=_?_7=O/7??????????????????83=I0LC@0LC@0LC@0O=?SK????????????? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1149 |
?????????_6 PTEAPTEAPTEAPSW=M_??????????????JC(SI?7= S#WP49(ZF"NS$N$]UO=?QU/@6G???????<-?_7=?[=D&5G[7S 8NC!!"65F[S_7=?_4U |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1150 |
XO??????????L#C4L29%,O"";7M3I*K8,FUD?RH6R/????????????????<3&6Q''3N>%%YV%;6]$2DS=????????????????????(@#8(92*/KN3,4=T0YZ# |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1151 |
K/40?????????????0P\GE]X77W7*%*/M3\7M1K9>0%D?PRLGB\Q????????<_7=?S;=<@5> C_W8^DEDC>7CT7=O/7=<U/?????????B!!X4?3VO%59I_]\Y |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1152 |
FPVZSH/;;8O?E!!Y9????????????????I<SAD#^BFX&IFVMI86H3H/??????????????????FB4''?]5^HEXY"Q%GVR%>$/4^<Q_???????????????4X?S8_ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1153 |
1DX)IV)GQ9P%D$T3MS;=W27?????????????MST!!???=1A)HHBTTHC?FL37??1<>?_?????????????????????=A''KUO9M.]0# ?????1_????????????? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1154 |
??????????<=?\SN3,7=H???????????????????????????????????JFY-H??????????????????????????????????????????????????????????? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1155 |
?????????????????????????????????????????????0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1156 |
@@@@@@@@@@@@'); |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1157 |
colorMapFromArray:#[ 205 205 205 227 35 35 106 106 106 98 98 98 135 135 135 163 34 34 101 5 5 124 124 124 48 2 2 227 11 11 173 173 173 218 54 54 241 241 241 235 19 19 225 225 225 219 18 18 245 58 58 214 214 214 249 46 46 90 90 90 254 61 61 36 36 36 176 176 176 233 233 233 114 114 114 255 78 78 212 33 33 230 57 57 61 61 61 94 94 94 76 76 76 19 19 19 255 57 57 161 161 161 83 83 83 217 217 217 249 249 249 255 65 65 139 2 2 27 27 27 169 169 169 253 53 53 210 28 28 251 251 251 154 154 154 117 117 117 195 1 1 245 245 245 145 145 145 218 5 5 230 230 230 69 2 2 181 181 181 11 11 11 141 141 141 249 61 61 205 21 21 165 165 165 157 157 157 241 28 28 223 223 223 109 109 109 2 2 2 245 45 45 146 0 0 69 69 69 137 137 137 140 40 40 188 1 1 206 24 24 219 33 33 255 76 76 249 49 49 249 56 56 236 236 236 121 121 121 248 53 53 171 1 1 111 40 40 237 41 41 178 21 21 205 16 16 129 129 129 163 1 1 155 18 18 85 4 4 243 68 68 73 73 73 45 45 45 202 51 51 241 40 40 86 86 86 114 1 1 210 4 4 246 41 41 148 148 148 189 189 189 209 209 209 210 17 17 158 28 28 213 5 5 205 1 1 53 53 53 217 9 9 69 40 40 187 10 10 255 74 74 218 28 28 146 11 11 65 65 65 232 37 37 101 101 101 196 26 26 245 53 53 188 26 26 213 10 10 184 184 184 206 5 5 249 65 65 172 21 21 206 34 34 195 195 195 237 32 32 131 12 12 233 29 29 179 36 36 241 37 37 139 13 13 245 49 49 180 1 1 168 37 37 198 198 198 202 202 202 228 21 21 206 10 10 206 29 29 229 30 30 255 80 80 188 20 20 245 37 37 57 57 57 252 50 50 87 42 42 172 10 10 209 13 13 155 4 4 164 11 11 242 44 44 255 70 70 225 25 25 222 14 14 237 24 24 240 49 49 205 13 13 202 44 44 201 0 0 225 17 17 186 42 42 255 72 72 122 1 1 40 40 40 157 10 10 209 8 8 222 8 8 195 41 41 223 21 21 180 11 11 255 68 68 162 28 28 194 11 11 232 25 25 131 1 1 241 32 32 246 246 246 49 49 49 224 44 44 208 2 2 227 227 227 239 239 239 239 46 46 162 20 20 245 33 33 219 219 219 238 29 29 237 37 37 171 29 29 36 46 46 250 68 68 147 16 16 182 26 26 187 187 187 24 1 1 185 32 32 229 24 24 232 33 33 150 150 150 122 12 12 229 17 17 204 27 27 242 52 52 213 2 2 200 15 15 191 191 191 217 43 43 217 12 12 115 10 10 140 16 16 200 28 28 202 6 6 215 13 13 182 41 41 57 46 46 40 46 46 233 40 40 252 70 70 173 40 40 226 28 28 46 54 54 202 22 22 203 18 18 245 72 72 191 17 17 200 37 37 10 0 0 50 52 52 252 74 74 252 72 72 247 38 38 160 40 40 231 14 14 252 68 68 200 10 10 15 15 15 211 47 47 254 254 254 253 76 76 23 23 23 237 69 69 7 7 7 144 7 7 196 8 7 32 32 32 59 59 59 90 93 93 67 67 67 70 28 28 50 56 56 232 15 16 208 4 4 237 35 35 220 12 11 232 20 20 223 62 62 0 0 0 255 255 255 255 255 255 ]; |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1158 |
mask:((ImageMask new) |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1159 |
width:32; |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1160 |
height:32; |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1161 |
photometric:(#blackIs0); |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1162 |
bitsPerSample:(#[ 1 ]); |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1163 |
samplesPerPixel:((1)); |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1164 |
bits:(ByteArray |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1165 |
fromPackedString:' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1166 |
@@@@@@@@L@@@LC@@@A 0@@@\L@@@CB@@@@Y @@@G8@@@G? @AC?8H@8??O@G??? @???0@C??0@@??<@G???>A???? G??? @O??@@G??8@_???8G???>@;? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1167 |
?7@@??<@@???0@_??>@GO?3 @A?8P@@O<@@@@<@@@@@@@@@@@@@b'); |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1168 |
yourself); |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1169 |
yourself |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1170 |
] |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1171 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1172 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1173 |
!GenericToolbarIconLibrary class methodsFor:'image specs-16x16'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1174 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1175 |
lint16x16Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1176 |
"This resource specification was automatically generated |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1177 |
by the ImageEditor of ST/X." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1178 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1179 |
"Do not manually edit this!! If it is corrupted, |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1180 |
the ImageEditor may not be able to read the specification." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1181 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1182 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1183 |
self lint16x16Icon inspect |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1184 |
ImageEditor openOnClass:self andSelector:#lint16x16Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1185 |
Icon flushCachedIcons |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1186 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1187 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1188 |
<resource: #image> |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1189 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1190 |
^Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1191 |
constantNamed:'GenericToolbarIconLibrary class lint16x16Icon' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1192 |
ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1193 |
??????????????????????????????????????????????????<4[_??????????????????A4W??????????????????2<A()BG??????????<A??<A1_;> |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1194 |
@XS??????????3<)-;^76.Z5A0O???????<P@W!!8>-3J<0+??????0\JI1,;7^?57-[;''T????<JS0P"PN3'':-V>8L??????V5@''G57.1,!!#X-''R_O???1(R |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1195 |
@RMW:Y*KY6+7*RW??????3P*ZU[;.:#!!/:7???????<A@6AV2?S:9+>5??????????< BC &?????;?Z??????????<XU_?????X<P@a') ; colorMapFromArray:#[0 1 0 0 2 0 1 4 0 3 6 2 30 1 0 6 9 5 34 2 2 10 12 8 43 4 2 13 15 12 15 17 13 77 0 0 16 18 15 35 14 12 17 19 16 67 6 1 19 20 18 75 7 10 21 23 20 86 9 4 25 27 24 111 4 7 103 7 10 96 10 12 32 29 28 29 30 28 31 33 30 153 2 0 33 35 33 35 36 34 110 16 16 173 0 1 36 38 35 41 37 36 165 4 0 155 7 7 128 15 14 39 41 39 157 12 16 51 42 42 207 0 4 43 45 42 58 41 39 141 19 15 199 4 0 210 3 0 221 1 4 48 49 47 231 0 12 211 7 8 172 19 10 172 19 18 52 54 51 53 55 53 234 5 23 59 54 53 176 24 21 56 57 55 57 59 56 204 19 22 195 22 24 103 47 48 227 16 9 60 61 59 198 25 19 216 20 21 61 63 60 119 48 45 228 20 20 63 65 62 211 30 27 68 69 67 69 71 68 212 32 34 242 25 29 72 74 71 74 76 74 191 45 50 245 31 38 76 78 75 77 79 76 79 80 78 138 66 66 248 36 40 240 41 43 83 85 82 216 50 52 241 43 50 195 58 61 86 88 85 244 46 46 87 89 86 89 91 88 214 58 58 193 65 67 92 93 91 248 51 49 109 90 87 185 68 87 194 67 80 87 95 125 250 54 57 173 74 96 202 67 84 159 78 103 253 56 52 188 72 90 87 99 135 129 89 121 99 101 98 73 104 148 255 59 60 159 83 106 175 81 94 94 102 132 187 78 98 215 71 85 255 61 67 169 84 104 251 66 66 104 106 103 90 106 147 151 92 119 200 81 93 107 108 106 140 99 131 162 94 119 255 72 76 144 100 128 96 112 153 228 80 83 159 97 120 111 113 110 191 90 111 206 87 104 113 115 112 87 118 163 115 117 114 83 122 166 179 100 117 118 120 117 199 99 101 231 91 88 138 113 147 120 122 119 196 101 119 123 125 122 115 123 167 213 100 113 119 123 162 180 109 128 127 129 126 208 108 109 115 131 173 185 115 140 158 122 154 173 119 144 131 133 130 130 130 163 178 122 124 181 119 147 106 139 178 136 138 135 120 139 175 126 138 175 204 121 132 132 139 172 113 146 186 136 143 176 144 146 143 121 149 184 153 142 173 135 150 181 148 150 147 125 153 188 130 153 182 179 140 167 150 152 149 205 136 148 181 145 146 136 159 189 155 157 154 140 163 193 159 161 158 161 163 160 143 166 196 162 164 161 148 167 192 164 166 163 165 165 187 197 159 173 167 169 166 152 171 196 191 163 180 157 172 191 169 171 168 216 159 166 171 173 170 208 163 179 187 169 190 217 162 175 174 176 173 159 178 203 186 173 174 207 167 175 163 178 198 213 166 176 179 181 178 198 176 192 169 185 204 183 185 182 216 175 184 209 177 189 212 180 192 204 183 198 208 183 193 188 190 187 180 192 206 194 196 193 215 191 201 187 199 213 204 198 197 211 196 210 199 201 198 190 202 216 191 203 217 201 202 212 202 204 201 208 203 201 219 201 210 205 207 203 217 203 217 206 208 205 213 207 206 223 205 214 203 211 220 211 213 210 211 212 222 214 216 213 221 215 227 217 219 216 219 221 218 228 218 224 217 222 225 221 223 220 231 221 227 216 225 233 220 226 228 224 226 223 221 229 238 231 233 230 228 234 236 233 235 232 235 238 234 249 251 248 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L@@0@C8AO0C?0O>C?>O?0??#?>C?0O?@OC@LLb') ; yourself); yourself] |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1196 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1197 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1198 |
!GenericToolbarIconLibrary class methodsFor:'image specs-24x24'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1199 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1200 |
lint24x24Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1201 |
"This resource specification was automatically generated |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1202 |
by the ImageEditor of ST/X." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1203 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1204 |
"Do not manually edit this!! If it is corrupted, |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1205 |
the ImageEditor may not be able to read the specification." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1206 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1207 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1208 |
self lint24x24Icon inspect |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1209 |
ImageEditor openOnClass:self andSelector:#lint24x24Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1210 |
Icon flushCachedIcons |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1211 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1212 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1213 |
<resource: #image> |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1214 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1215 |
^Icon |
14946 | 1216 |
constantNamed:'GenericToolbarIconLibrary lint24x24Icon' |
1217 |
ifAbsentPut:[(Depth8Image new) width:24; height:24; bits:(ByteArray fromPackedString:' |
|
1218 |
??????????????????????????????????????????????????????????????????????????=_W?????>-@:7?????????????????????MF7???<4+_?? |
|
1219 |
????????????????????+TW???<L?????????????????????????2AG?4HY????????????????????????K65[()A-!!????????????????:7?????[\W> |
|
1220 |
?/;0[XS???<ZR???????JZ6-??=-0?3<?O3<F&7??0*-??????????<GO:5-6-+Z6-+,9+U-A:4@????????????+PE-^G!!<>-262/O1[_?????????????? |
|
1221 |
+V4PR4/I):+J+8+Q,_??????????+P(]I1,,N=7J;?W27-ZO>94NS4??????B @@[RH(PN2#9>+%5[:@8L>D????????????[Q<-S_BU6=/W3)Y:.]?????? |
|
1222 |
????@@AEI1<>W^:$1,"2X6I(6]IP_@C?????+QHN[RL0U>&6&(-1Y6)(=:$@@D??????N @@[QUDXKO;(HM6^7M,<G @@@AO????????MB(2ZUZX>;.&*NG: |
|
1223 |
/:6D??????????<)+V4SXEY?2?S<>.Y-/;V-?????????1&-??=-RU)/]8JMT&7?@K>5#O???????:7?????[RX+NBX&[_????>:/;T@?????????????65- |
|
1224 |
[V5-????????6OF5????????????????????????????@MK?') ; colorMapFromArray:#[0 1 0 0 2 0 1 4 0 3 6 2 30 1 0 6 9 5 34 2 2 10 12 8 43 4 2 13 15 12 15 17 13 77 0 0 16 18 15 35 14 12 17 19 16 67 6 1 19 20 18 75 7 10 21 23 20 86 9 4 25 27 24 111 4 7 103 7 10 96 10 12 32 29 28 29 30 28 31 33 30 153 2 0 33 35 33 35 36 34 110 16 16 173 0 1 36 38 35 41 37 36 165 4 0 155 7 7 128 15 14 39 41 39 157 12 16 51 42 42 207 0 4 43 45 42 58 41 39 141 19 15 199 4 0 210 3 0 221 1 4 48 49 47 231 0 12 211 7 8 172 19 10 172 19 18 52 54 51 53 55 53 234 5 23 59 54 53 176 24 21 56 57 55 57 59 56 204 19 22 195 22 24 103 47 48 227 16 9 60 61 59 198 25 19 216 20 21 61 63 60 119 48 45 228 20 20 63 65 62 211 30 27 68 69 67 69 71 68 212 32 34 242 25 29 72 74 71 74 76 74 191 45 50 245 31 38 76 78 75 77 79 76 79 80 78 138 66 66 248 36 40 240 41 43 83 85 82 216 50 52 241 43 50 195 58 61 86 88 85 244 46 46 87 89 86 89 91 88 214 58 58 193 65 67 92 93 91 248 51 49 109 90 87 185 68 87 194 67 80 87 95 125 250 54 57 173 74 96 202 67 84 159 78 103 253 56 52 188 72 90 87 99 135 129 89 121 99 101 98 73 104 148 255 59 60 159 83 106 175 81 94 94 102 132 187 78 98 215 71 85 255 61 67 169 84 104 251 66 66 104 106 103 90 106 147 151 92 119 200 81 93 107 108 106 140 99 131 162 94 119 255 72 76 144 100 128 96 112 153 228 80 83 159 97 120 111 113 110 191 90 111 206 87 104 113 115 112 87 118 163 115 117 114 83 122 166 179 100 117 118 120 117 199 99 101 231 91 88 138 113 147 120 122 119 196 101 119 123 125 122 115 123 167 213 100 113 119 123 162 180 109 128 127 129 126 208 108 109 115 131 173 185 115 140 158 122 154 173 119 144 131 133 130 130 130 163 178 122 124 181 119 147 106 139 178 136 138 135 120 139 175 126 138 175 204 121 132 132 139 172 113 146 186 136 143 176 144 146 143 121 149 184 153 142 173 135 150 181 148 150 147 125 153 188 130 153 182 179 140 167 150 152 149 205 136 148 181 145 146 136 159 189 155 157 154 140 163 193 159 161 158 161 163 160 143 166 196 162 164 161 148 167 192 164 166 163 165 165 187 197 159 173 167 169 166 152 171 196 191 163 180 157 172 191 169 171 168 216 159 166 171 173 170 208 163 179 187 169 190 217 162 175 174 176 173 159 178 203 186 173 174 207 167 175 163 178 198 213 166 176 179 181 178 198 176 192 169 185 204 183 185 182 216 175 184 209 177 189 212 180 192 204 183 198 208 183 193 188 190 187 180 192 206 194 196 193 215 191 201 187 199 213 204 198 197 211 196 210 199 201 198 190 202 216 191 203 217 201 202 212 202 204 201 208 203 201 219 201 210 205 207 203 217 203 217 206 208 205 213 207 206 223 205 214 203 211 220 211 213 210 211 212 222 214 216 213 221 215 227 217 219 216 219 221 218 228 218 224 217 222 225 221 223 220 231 221 227 216 225 233 220 226 228 224 226 223 221 229 238 231 233 230 228 234 236 233 235 232 235 238 234 249 251 248 255 255 255]; mask:((ImageMask new) width:24; height:24; bits:(ByteArray fromPackedString:'@@@@@@@@@LN@@FL@@FH@@CX@@G<@BG>LGO>XA??0@?? @?? G??>D??8@??0A??<G??2D??1@??8A??8CO>\BG<N@C8G@@@B') ; yourself); yourself] |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1225 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1226 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1227 |
!GenericToolbarIconLibrary class methodsFor:'image specs-32x32'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1228 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1229 |
lint32x32Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1230 |
"This resource specification was automatically generated |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1231 |
by the ImageEditor of ST/X." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1232 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1233 |
"Do not manually edit this!! If it is corrupted, |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1234 |
the ImageEditor may not be able to read the specification." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1235 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1236 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1237 |
self lint32x32Icon inspect |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1238 |
ImageEditor openOnClass:self andSelector:#lint32x32Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1239 |
Icon flushCachedIcons |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1240 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1241 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1242 |
<resource: #image> |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1243 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1244 |
^Icon |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1245 |
constantNamed:'GenericToolbarIconLibrary class lint32x32Icon' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1246 |
ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1247 |
????????????????????????????????????????????????????????????????????!!O????????????????????????????=_JU???????2@4@??????? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1248 |
??????????????????????<AT_??????@Q*??????????????????????????????4H4[_????<4O????????????????????????????????0]E?????01K |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1249 |
?????????????????????????????????2AG??=BFX_?????????????????????????????????QQ$A@PDR?????????????????????????????????2<A |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1250 |
V96"$@(C!!?????????????????????<A??????<R@\W>?/;><CPA!!O????<Z????????????JUEK????K0GC?O3<?O3<>A(A????B$"G????????????@SQG |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1251 |
V0(ARNO#8>O#8>O_+PD9NS(%@P_?????????????A0\?JPFW-;^7-;_Z;OG&-Q5EA0MU????????????????QQ@AA718^G2?>-26+,+3<W0J???????????? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1252 |
????????@PDPR4-K2_^''*,+M+8+Q>+G??????????????4IHUV4)B19COVG:(\K9=.7"/XGY;E=HQZ''???????=\A0(]P"\[KC,;7\*+;?W2:-;V#8#;''P8% |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1253 |
S?????????<JS5D)ABH(LTC,(<_'':.W[5[:@^^CO!!@G???????????????<FG241S_BU4M/[5=ON%'')2.]???????????????????0P_K"9^=IOA5MOL1JU& |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1254 |
\FR47?????????????=[TDT:I1<>M%7.)KCF2KJTX6I(Z=''RTD-<????????EA(RC DAH3AJU>&6&9*K\WQ''Z&!!.=:$RMBW?????????N%%\C LUQD9 ,?.Y |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1255 |
(HM6!!''-3[LC0^E%_#O??????????????!!@=AS&UX9N.Y''G:Q!!W6,?]"L?????????????????4,4J#INZUZX9/.;)):(8_+0/:6D??????????????<)GPDC |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1256 |
D4Y U''>N2?S<?_+&[\N?-Z6I????????????FPD)??<GE$%Z[7U7 (6_T"_??;>?-Z6L????????????Q?????<AE31TXFAZRRPM?????;2<.J6R???????? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1257 |
??????????< BB,3NBXQM????????;*</=*L????????????????????NRDXUU???????????;#X<[W??????????????????????????????????????;WR |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1258 |
?????????????????????????????????????????????0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1259 |
@@@@@@@@@@@@') ; colorMapFromArray:#[0 1 0 0 2 0 1 4 0 3 6 2 30 1 0 6 9 5 34 2 2 10 12 8 43 4 2 13 15 12 15 17 13 77 0 0 16 18 15 35 14 12 17 19 16 67 6 1 19 20 18 75 7 10 21 23 20 86 9 4 25 27 24 111 4 7 103 7 10 96 10 12 32 29 28 29 30 28 31 33 30 153 2 0 33 35 33 35 36 34 110 16 16 173 0 1 36 38 35 41 37 36 165 4 0 155 7 7 128 15 14 39 41 39 157 12 16 51 42 42 207 0 4 43 45 42 58 41 39 141 19 15 199 4 0 210 3 0 221 1 4 48 49 47 231 0 12 211 7 8 172 19 10 172 19 18 52 54 51 53 55 53 234 5 23 59 54 53 176 24 21 56 57 55 57 59 56 204 19 22 195 22 24 103 47 48 227 16 9 60 61 59 198 25 19 216 20 21 61 63 60 119 48 45 228 20 20 63 65 62 211 30 27 68 69 67 69 71 68 212 32 34 242 25 29 72 74 71 74 76 74 191 45 50 245 31 38 76 78 75 77 79 76 79 80 78 138 66 66 248 36 40 240 41 43 83 85 82 216 50 52 241 43 50 195 58 61 86 88 85 244 46 46 87 89 86 89 91 88 214 58 58 193 65 67 92 93 91 248 51 49 109 90 87 185 68 87 194 67 80 87 95 125 250 54 57 173 74 96 202 67 84 159 78 103 253 56 52 188 72 90 87 99 135 129 89 121 99 101 98 73 104 148 255 59 60 159 83 106 175 81 94 94 102 132 187 78 98 215 71 85 255 61 67 169 84 104 251 66 66 104 106 103 90 106 147 151 92 119 200 81 93 107 108 106 140 99 131 162 94 119 255 72 76 144 100 128 96 112 153 228 80 83 159 97 120 111 113 110 191 90 111 206 87 104 113 115 112 87 118 163 115 117 114 83 122 166 179 100 117 118 120 117 199 99 101 231 91 88 138 113 147 120 122 119 196 101 119 123 125 122 115 123 167 213 100 113 119 123 162 180 109 128 127 129 126 208 108 109 115 131 173 185 115 140 158 122 154 173 119 144 131 133 130 130 130 163 178 122 124 181 119 147 106 139 178 136 138 135 120 139 175 126 138 175 204 121 132 132 139 172 113 146 186 136 143 176 144 146 143 121 149 184 153 142 173 135 150 181 148 150 147 125 153 188 130 153 182 179 140 167 150 152 149 205 136 148 181 145 146 136 159 189 155 157 154 140 163 193 159 161 158 161 163 160 143 166 196 162 164 161 148 167 192 164 166 163 165 165 187 197 159 173 167 169 166 152 171 196 191 163 180 157 172 191 169 171 168 216 159 166 171 173 170 208 163 179 187 169 190 217 162 175 174 176 173 159 178 203 186 173 174 207 167 175 163 178 198 213 166 176 179 181 178 198 176 192 169 185 204 183 185 182 216 175 184 209 177 189 212 180 192 204 183 198 208 183 193 188 190 187 180 192 206 194 196 193 215 191 201 187 199 213 204 198 197 211 196 210 199 201 198 190 202 216 191 203 217 201 202 212 202 204 201 208 203 201 219 201 210 205 207 203 217 203 217 206 208 205 213 207 206 223 205 214 203 211 220 211 213 210 211 212 222 214 216 213 221 215 227 217 219 216 219 221 218 228 218 224 217 222 225 221 223 220 231 221 227 216 225 233 220 226 228 224 226 223 221 229 238 231 233 230 228 234 236 233 235 232 235 238 234 249 251 248 255 255 255]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1260 |
@@@@@@@@D@@@NC @@A 8@@@\L@@@CC@@@@Y0@@@G8@@@C? @AA?<H@8??G@G???0@???8@G??8@@??>@C???>A???? O???0@O??0@C??<@O???8G???>@?? |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1261 |
?? @???@@_??8@O???@GO?38@!!?8_@@O<C8@@>@^@@@@C@@@@@@b') ; yourself); yourself] |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1262 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1263 |
|
13887 | 1264 |
!GenericToolbarIconLibrary class methodsFor:'image specs-16x16'! |
1265 |
||
1266 |
smalllintWarning16x16 |
|
1267 |
"This resource specification was automatically generated |
|
1268 |
by the ImageEditor of ST/X." |
|
1269 |
||
1270 |
"Do not manually edit this!! If it is corrupted, |
|
1271 |
the ImageEditor may not be able to read the specification." |
|
1272 |
||
1273 |
" |
|
1274 |
self smalllintWarning16x16 inspect |
|
1275 |
ImageEditor openOnClass:self andSelector:#smalllintWarning16x16 |
|
1276 |
Icon flushCachedIcons |
|
1277 |
" |
|
1278 |
||
1279 |
<resource: #image> |
|
1280 |
||
1281 |
^Icon |
|
1282 |
constantNamed:'GenericToolbarIconLibrary smalllintWarning16x16' |
|
1283 |
ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
1284 |
@@@@@@@@@@@@@@@@@@@@@@@@@@DA@PDA@@@@@@@@@@@@@@DB@0PC@ D@@@@@@@@@@@DBAPXFA TE@P@@@@@@@@@AA0XHA FA0D@@@@@@@@@@P$JB0,KA 0A |
|
1285 |
@PD@@@@@@@DIB 4NCP(IC1@Q@P@@@@@@D!!LT@QPSD!!@UD@D@@@@@@@DVE0DXE <YF!!$O@P@@@@@@@Q,\GPDPFQ(YD@D@@@@@@@D^@Q< HQ$"FRD @P@@@@@A |
|
1286 |
H2P%DA$&F"XYD@D@@@@@@R\(JR(+KB4,J2(A@@@@@@@A@PD.J"(*J"(.@@@@@@@@@@@@@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 248 248 240 184 96 239 168 56 239 168 64 240 192 96 255 232 176 239 176 56 255 232 168 240 184 56 255 240 176 255 240 200 239 184 56 255 248 240 255 248 224 239 192 136 224 160 88 239 200 160 255 216 136 240 200 64 255 240 184 255 248 208 255 224 128 255 208 96 255 200 88 255 216 128 80 40 0 191 168 120 207 208 240 176 168 120 128 168 208 80 104 136 224 176 120 239 192 96 208 152 56 128 160 184 176 176 184 95 112 136 239 192 120 176 192 200 79 96 120 207 200 208 207 128 48 255 224 144 240 216 136 176 144 80 224 200 160]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@_@C>@_<A?0G?0_? ?>C?<G?0_?!!?>G?8O?@G<@@@b') ; yourself); yourself] |
|
1287 |
! ! |
|
1288 |
||
1289 |
!GenericToolbarIconLibrary class methodsFor:'image specs-versions'! |
|
1290 |
||
1291 |
versionMerged24x24 |
|
1292 |
"This resource specification was automatically generated |
|
1293 |
by the ImageEditor of ST/X." |
|
1294 |
||
1295 |
"Do not manually edit this!! If it is corrupted, |
|
1296 |
the ImageEditor may not be able to read the specification." |
|
1297 |
||
1298 |
" |
|
1299 |
self versionMerged24x24 inspect |
|
1300 |
ImageEditor openOnClass:self andSelector:#versionMerged24x24 |
|
1301 |
Icon flushCachedIcons |
|
1302 |
" |
|
1303 |
||
1304 |
<resource: #image> |
|
1305 |
||
1306 |
^Icon |
|
1307 |
constantNamed:'GenericToolbarIconLibrary class versionMerged24x24' |
|
1308 |
ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
1309 |
@!!LNDADQE!!XVF!!0_H2D$H2@ H18"H!!8AO=SZ6]''\7^C"8.[&9.#*;N?2;_W6>]HXU^''.;.;.<OS4=OS4=?_8>O#;?O;=?>\RTMOM3L3K2<3M3<?Q5=/^8^W) |
|
1310 |
9.[1:=T]Q<N:.[&8.K?A/\GA1LSG1<+J5-#$7<8VR*:.,+N6-+&9.[2<0LC@0LC@0<#B4L$ON:J*****+:.+*;N1-[V5-;.;0LB=1+8VN*J\)JF!!)JR#*J"+ |
|
1311 |
*:6-,[V5-+&9/;@MNIBQ$)JY$)JY''):^(:N#*J"/)+J/-I4LNXNK#H.N!!)JT$)JR%).[&Y.&)*J&*YLTM6&H"H"H"H.N#(:N#9BP$IZV&*JZ&8(UMU5,\8E9 |
|
1312 |
V=2^XRH"8.K"8:O#9*V%''4UMT%HV6I1\WE1\W9/^XNC (NH"H.K#G@YM$EAP45_W&11[7E1^GM8\7M: (M3"VLULDMCRDMAP45[V6I"X&I"[F1,X''91_5 K |
|
1313 |
LDMQUEEMRDMCPUQTW6!!+]&I,[HE5[D0KLU)ST5M(W5)TTT5MTUEQUE)SW6-SYC4JL65ST5MST5MST5MSS$9NS$9HQD9DRC8JLVI1[FI"X&I WE1ST5M[ZF!!_ |
|
1314 |
UEQNS30GLFI,\V11\W!!,X&I"Y&I!!W%9^T5MSWS0HLH]:^&93[798[G9/\V1,X&I!!WFA\Y30EMIF,%9RK_G%9\&=/[6=1[&91[GV@]DHDJ9>6+)2P"8"A!!7=? |
|
1315 |
_7=?_7=?\7Q.^4@CA"X-I2\''I2</JR$)JR (JB (K"4,J"T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[28 1 19 26 0 23 36 0 35 57 0 48 55 1 50 58 0 51 61 0 54 57 3 52 56 0 54 63 0 57 64 0 58 63 0 62 67 3 66 66 0 68 69 5 67 70 6 68 70 0 72 71 0 73 57 15 60 65 17 63 72 9 70 79 0 77 70 0 74 72 0 75 61 25 59 81 2 79 74 13 71 74 1 77 76 4 79 70 15 72 66 23 68 78 7 81 75 19 76 81 12 83 61 25 67 75 21 77 78 23 79 91 5 94 114 6 111 122 0 119 124 0 121 130 0 123 118 0 120 110 25 104 119 0 122 119 17 114 120 0 123 125 20 115 129 2 127 135 0 131 137 0 134 139 0 136 125 26 118 138 1 141 137 22 130 142 9 143 138 16 142 139 31 136 142 22 145 145 26 147 147 16 155 154 0 166 159 22 161 128 73 126 148 48 147 186 0 187 155 40 156 187 0 189 196 0 193 188 0 190 188 0 191 156 31 162 189 0 192 180 0 187 157 32 163 198 0 197 164 20 172 191 4 193 200 0 200 182 3 189 156 57 155 193 9 194 202 0 202 203 0 204 196 13 195 152 66 152 194 0 199 205 0 206 164 41 168 206 0 207 197 17 195 195 0 201 207 0 208 188 16 192 196 0 202 198 20 195 207 0 209 196 0 203 197 0 204 167 45 171 199 23 196 198 0 205 208 0 211 192 23 194 200 26 196 189 0 201 199 2 206 201 29 196 203 7 208 202 31 197 192 5 203 200 0 210 173 52 176 206 13 209 201 0 211 195 11 204 199 33 198 214 18 211 204 36 198 201 0 212 208 17 210 202 0 213 197 15 205 190 33 195 203 0 214 184 47 187 210 21 211 202 39 200 208 41 201 211 24 212 200 22 207 202 25 208 214 28 214 204 28 209 198 1 216 207 47 203 207 31 211 200 45 202 185 65 187 208 33 212 198 32 208 209 35 213 210 38 214 212 40 215 213 42 216 207 55 208 202 40 211 193 73 194 214 44 217 205 42 213 216 46 218 213 28 223 206 44 214 208 47 215 220 49 221 214 62 214 221 51 222 192 87 193 210 50 217 206 83 201 215 64 215 211 51 218 224 55 224 213 53 219 217 67 217 227 58 226 218 68 218 215 56 221 218 58 223 213 80 212 220 71 220 219 60 224 229 62 229 220 61 225 231 64 230 223 74 222 201 96 202 222 63 226 224 75 223 225 76 224 218 85 217 224 65 228 226 78 224 224 67 229 218 77 222 228 80 226 229 82 227 226 70 231 230 83 228 223 81 226 211 105 211 225 92 223 233 85 230 226 93 224 224 84 228 231 75 235 227 95 225 234 87 232 219 94 223 230 98 228 228 89 232 217 106 222 234 102 232 225 100 229 226 101 230 228 104 232 213 116 219 229 105 233 231 107 235 224 114 229 199 149 203 242 102 244 216 137 220 205 135 215 237 113 241 234 128 234 238 114 242 223 126 229 226 134 228 236 130 236 225 128 231 229 131 234 240 134 239 233 117 242 230 133 236 239 128 243 236 143 238 238 145 239 238 123 247 243 133 247 238 146 240 215 161 223 241 148 243 250 144 249 235 156 239 225 155 235 237 158 241 229 163 235 249 142 255 242 161 245 247 149 252 238 154 246 246 170 245 249 151 254 249 153 255 238 170 243 230 176 238 245 161 253 247 163 255 236 181 244 245 166 255 243 172 253 245 190 253 243 184 254 246 193 255 238 193 253]; yourself] |
|
1316 |
! ! |
|
1317 |
||
8839 | 1318 |
!Image methodsFor:'inspecting'! |
1319 |
||
10807 | 1320 |
inspector2TabImage |
17100 | 1321 |
"an extra tab showing the image; |
1322 |
Q: is this needed? (the displayObject tab already shows this)" |
|
1323 |
||
16789
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1324 |
^ self newInspector2Tab |
10807 | 1325 |
label: 'Image'; |
1326 |
priority: 50; |
|
10839 | 1327 |
view: ((HVScrollableView for:ImageView) image: self; yourself) |
10807 | 1328 |
|
1329 |
"Created: / 11-10-2011 / 17:12:01 / cg" |
|
1330 |
! ! |
|
1331 |
||
1332 |
!Image methodsFor:'inspecting'! |
|
1333 |
||
17257
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1334 |
inspector2TabImageCreatorClass |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1335 |
<inspector2Tab> |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1336 |
|
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1337 |
|name className s ownerClass ownerSelector | |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1338 |
|
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1339 |
(name := Icon nameIfKnownIcon:self) isNil ifTrue:[^ nil]. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1340 |
|
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1341 |
s := name readStream. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1342 |
className := s upToSeparator. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1343 |
(ownerClass := Smalltalk classNamed: className) isNil ifTrue:[^ nil]. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1344 |
s skipSeparators. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1345 |
ownerSelector := s upToSeparator. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1346 |
ownerSelector = 'class' ifTrue:[ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1347 |
ownerClass := ownerClass theMetaclass. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1348 |
ownerSelector := ''. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1349 |
s skipSeparators. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1350 |
]. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1351 |
ownerSelector := ownerSelector , s upToEnd. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1352 |
ownerSelector knownAsSymbol ifFalse:[^ nil]. |
17267
417b4efdd40c
class: Tools::Inspector2Tab
Claus Gittinger <cg@exept.de>
parents:
17257
diff
changeset
|
1353 |
ownerSelector := ownerSelector asSymbol. |
17257
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1354 |
|
17267
417b4efdd40c
class: Tools::Inspector2Tab
Claus Gittinger <cg@exept.de>
parents:
17257
diff
changeset
|
1355 |
(ownerClass implements:ownerSelector) ifFalse:[ |
417b4efdd40c
class: Tools::Inspector2Tab
Claus Gittinger <cg@exept.de>
parents:
17257
diff
changeset
|
1356 |
ownerClass := ownerClass isMeta ifTrue:[ ownerClass theNonMetaclass] ifFalse:[ ownerClass theMetaclass ]. |
417b4efdd40c
class: Tools::Inspector2Tab
Claus Gittinger <cg@exept.de>
parents:
17257
diff
changeset
|
1357 |
(ownerClass implements:ownerSelector) ifFalse:[ |
417b4efdd40c
class: Tools::Inspector2Tab
Claus Gittinger <cg@exept.de>
parents:
17257
diff
changeset
|
1358 |
^ nil |
417b4efdd40c
class: Tools::Inspector2Tab
Claus Gittinger <cg@exept.de>
parents:
17257
diff
changeset
|
1359 |
]. |
417b4efdd40c
class: Tools::Inspector2Tab
Claus Gittinger <cg@exept.de>
parents:
17257
diff
changeset
|
1360 |
]. |
417b4efdd40c
class: Tools::Inspector2Tab
Claus Gittinger <cg@exept.de>
parents:
17257
diff
changeset
|
1361 |
|
17257
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1362 |
^ Tools::Inspector2Tab |
17267
417b4efdd40c
class: Tools::Inspector2Tab
Claus Gittinger <cg@exept.de>
parents:
17257
diff
changeset
|
1363 |
toBrowseClass:ownerClass selector:ownerSelector label:'Image Creator' |
17257
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1364 |
|
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1365 |
" |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1366 |
ToolbarIconLibrary systemBrowserIcon inspect |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1367 |
" |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1368 |
! ! |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1369 |
|
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1370 |
!Image methodsFor:'inspecting'! |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1371 |
|
10807 | 1372 |
inspector2Tabs |
17100 | 1373 |
|tabs| |
1374 |
||
1375 |
tabs := super inspector2Tabs. |
|
1376 |
tabs := tabs copyWithout:#inspector2TabDisplayObject. |
|
1377 |
^ tabs copyWith:#inspector2TabImage |
|
10807 | 1378 |
|
1379 |
"Created: / 11-10-2011 / 17:11:21 / cg" |
|
15285
292d95b373b7
Fixed #inspector2Tabs method: always call 'super inspector2Tabs'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15271
diff
changeset
|
1380 |
"Modified: / 13-02-2015 / 21:02:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10807 | 1381 |
! ! |
1382 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1383 |
!Image methodsFor:'misc ui support'! |
10807 | 1384 |
|
8843 | 1385 |
inspectorClass |
1386 |
"redefined to launch an ImageInspector |
|
1387 |
(instead of the default InspectorView)." |
|
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1388 |
|
8843 | 1389 |
(width notNil and:[height notNil]) ifTrue:[ |
1390 |
^ ImageInspectorView |
|
1391 |
]. |
|
1392 |
^ super inspectorClass |
|
1393 |
||
1394 |
"Modified: 10.6.1996 / 18:23:55 / cg" |
|
8839 | 1395 |
! ! |
1396 |
||
16822 | 1397 |
!Image methodsFor:'inspecting'! |
1398 |
||
17190
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1399 |
inspectorExtraAttributes |
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1400 |
|d name| |
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1401 |
|
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1402 |
d := super inspectorExtraAttributes. |
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1403 |
(name := Icon nameIfKnownIcon:self) notNil ifTrue:[ |
17257
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1404 |
d add:'-origin (comes from)' -> [ name ] |
17190
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1405 |
]. |
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1406 |
^ d |
17257
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1407 |
|
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1408 |
" |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1409 |
ToolbarIconLibrary systemBrowserIcon inspect |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1410 |
" |
17190
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1411 |
! ! |
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1412 |
|
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1413 |
!Image methodsFor:'inspecting'! |
5922dd39d1a6
extra name attribute in inspector.
Claus Gittinger <cg@exept.de>
parents:
17174
diff
changeset
|
1414 |
|
16822 | 1415 |
inspectorExtraMenuOperations |
1416 |
^ super inspectorExtraMenuOperations, |
|
1417 |
{ |
|
1418 |
{ 'Edit Image' . [ ImageEditor openOnImage:self ] } . |
|
1419 |
{ '-' . nil } . |
|
1420 |
{ 'Save As...' . [ |
|
1421 |
Dialog |
|
1422 |
ask:[ Dialog requestFileNameForSave:'Save image as?' default:'newImage.png' ] |
|
1423 |
ifNotNilOrEmptyDo:[:file | self saveOn: file ] |
|
1424 |
] } |
|
1425 |
} |
|
1426 |
! ! |
|
1427 |
||
17068
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1428 |
!ImmutableArray methodsFor:'inspecting'! |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1429 |
|
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1430 |
inspectorValueStringInListFor:anInspector |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1431 |
"returns a string to be shown in the inspector's list" |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1432 |
|
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1433 |
self size == 0 ifTrue:[ |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1434 |
^ '#() immutable' |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1435 |
]. |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1436 |
^ super inspectorValueStringInListFor:anInspector |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1437 |
! ! |
5fb10da2bf01
Array>>#inspectprValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
17061
diff
changeset
|
1438 |
|
8839 | 1439 |
!Integer methodsFor:'inspecting'! |
1440 |
||
8843 | 1441 |
inspectorExtraAttributes |
1442 |
"extra (pseudo instvar) entries to be shown in an inspector." |
|
1443 |
||
16050
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1444 |
|attr highBit| |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1445 |
|
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1446 |
attr := super inspectorExtraAttributes. |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1447 |
attr |
13639 | 1448 |
add:'-hexadecimal' -> [ self radixPrintStringRadix:16 ]; |
1449 |
add:'-octal' -> [ self radixPrintStringRadix:8 ]; |
|
16050
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1450 |
add:'-binary' -> [ self radixPrintStringRadix:2 ]. |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1451 |
|
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1452 |
highBit := self highBit. |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1453 |
(#(8 16 32 64) includes:highBit) ifTrue:[ |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1454 |
attr |
16131 | 1455 |
add:('-signed i%1' bindWith:highBit) |
16050
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1456 |
-> [ highBit == 8 ifTrue:[self signExtendedByteValue] |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1457 |
ifFalse:[ highBit == 16 ifTrue:[self signExtendedShortValue] |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1458 |
ifFalse:[ highBit == 32 ifTrue:[self signExtendedLongValue] |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1459 |
ifFalse:[ self signExtendedLongLongValue]]]]. |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1460 |
]. |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1461 |
^ attr |
8843 | 1462 |
|
1463 |
" |
|
1464 |
123 inspect |
|
16050
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1465 |
128 inspect |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1466 |
16r8000 inspect |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1467 |
16r80000000 inspect |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1468 |
16r8000000000000000 inspect |
e62e349957ba
inspector: show unsigned->signed conversion
Claus Gittinger <cg@exept.de>
parents:
15964
diff
changeset
|
1469 |
16rAFFEAFFEAFFEAFFE inspect |
8843 | 1470 |
" |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1471 |
|
8843 | 1472 |
"Created: / 18-09-2006 / 21:22:46 / cg" |
16131 | 1473 |
"Modified: / 26-02-2016 / 19:36:15 / cg" |
8843 | 1474 |
! ! |
1475 |
||
13983
cfa7eff70b22
better listentry for intervals
Claus Gittinger <cg@exept.de>
parents:
13887
diff
changeset
|
1476 |
!Interval methodsFor:'inspecting'! |
cfa7eff70b22
better listentry for intervals
Claus Gittinger <cg@exept.de>
parents:
13887
diff
changeset
|
1477 |
|
cfa7eff70b22
better listentry for intervals
Claus Gittinger <cg@exept.de>
parents:
13887
diff
changeset
|
1478 |
inspectorValueStringInListFor:anInspector |
cfa7eff70b22
better listentry for intervals
Claus Gittinger <cg@exept.de>
parents:
13887
diff
changeset
|
1479 |
"returns a string to be shown in the inspector's list" |
cfa7eff70b22
better listentry for intervals
Claus Gittinger <cg@exept.de>
parents:
13887
diff
changeset
|
1480 |
|
cfa7eff70b22
better listentry for intervals
Claus Gittinger <cg@exept.de>
parents:
13887
diff
changeset
|
1481 |
^ self printString |
cfa7eff70b22
better listentry for intervals
Claus Gittinger <cg@exept.de>
parents:
13887
diff
changeset
|
1482 |
! ! |
cfa7eff70b22
better listentry for intervals
Claus Gittinger <cg@exept.de>
parents:
13887
diff
changeset
|
1483 |
|
11897 | 1484 |
!Iterator methodsFor:'inspecting'! |
1485 |
||
1486 |
inspectorValueStringInListFor:anInspector |
|
1487 |
"returns a string to be shown in the inspector's list. |
|
1488 |
Redefined to avoid calling the iterator" |
|
1489 |
||
1490 |
^ self classNameWithArticle |
|
1491 |
! ! |
|
1492 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1493 |
!LibraryDefinition class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1494 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1495 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
1496 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
1497 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1498 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1499 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1500 |
self theNonMetaclass isLibraryDefinition ifTrue:[^ #libraryDefinitionClassIcon ]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1501 |
^ super iconInBrowserSymbol |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1502 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1503 |
"/ (c == LibraryDefinition) ifTrue:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1504 |
"/ aClass ~~ LibraryDefinition ifTrue:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1505 |
"/ ^ self packageIconSmall |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1506 |
"/ ]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1507 |
"/ ]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1508 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1509 |
|
11450 | 1510 |
!LimitedPrecisionReal methodsFor:'inspecting'! |
1511 |
||
1512 |
inspectorExtraAttributes |
|
1513 |
"extra (pseudo instvar) entries to be shown in an inspector." |
|
1514 |
||
13639 | 1515 |
^ super inspectorExtraAttributes |
16098 | 1516 |
add:'-binary' -> |
1517 |
[ |
|
1518 |
String |
|
1519 |
streamContents:[:s | |
|
1520 |
self byteSize to:1 by:-1 do:[:i | |
|
1521 |
(((self basicAt:i) printStringRadix:2) paddedTo:8 with:$0) |
|
1522 |
printOn:s. |
|
1523 |
s space. |
|
1524 |
] |
|
1525 |
] |
|
1526 |
]; |
|
11450 | 1527 |
add:'-hex' -> |
1528 |
[ |
|
1529 |
String |
|
1530 |
streamContents:[:s | |
|
1531 |
self byteSize to:1 by:-1 do:[:i | |
|
1532 |
(((self basicAt:i) printStringRadix:16) paddedTo:2 with:$0) |
|
1533 |
printOn:s |
|
1534 |
] |
|
1535 |
] |
|
1536 |
]; |
|
1537 |
yourself |
|
1538 |
||
1539 |
"Created: / 20-03-2012 / 22:34:46 / cg" |
|
1540 |
! ! |
|
1541 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1542 |
!MenuView methodsFor:'accessing-behavior'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1543 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1544 |
shortKeys |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1545 |
^ shortKeys |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1546 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1547 |
"Created: / 18-10-2008 / 19:16:59 / Jan Vrany <vranyj1@fel.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1548 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1549 |
|
8839 | 1550 |
!Method methodsFor:'inspecting'! |
7735 | 1551 |
|
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1552 |
inspectorExtraAttributes |
8677 | 1553 |
"extra (pseudo instvar) entries to be shown in an inspector." |
1554 |
||
13639 | 1555 |
^ super inspectorExtraAttributes |
1556 |
add:'-code' -> [ String streamContents:[:s | self decompileTo:s] ]; |
|
1557 |
add:'-source' -> [ self source ]; |
|
1558 |
yourself |
|
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1559 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1560 |
" |
8843 | 1561 |
(Method compiledMethodAt:#inspectorExtraAttributes) inspect |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1562 |
" |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1563 |
|
8843 | 1564 |
"Created: / 18-09-2006 / 21:34:01 / cg" |
1565 |
"Modified: / 06-10-2006 / 13:57:33 / cg" |
|
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1566 |
! ! |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1567 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1568 |
!Method methodsFor:'printing & storing'! |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1569 |
|
8843 | 1570 |
printStringForBrowserWithSelector:selector inClass:aClass |
1571 |
"return a printString to represent myself to the user in a browser. |
|
1572 |
Defined here to allow for browsers to deal with nonStandard pseudoMethods" |
|
1573 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1574 |
|s privInfo moreInfo p info n cls ns currentChangeSet isInChangeSet mthdPackage |
12931 | 1575 |
userPreferences shownSelector suppressPackage timeRounded shadowsOrNot overAllCount| |
8843 | 1576 |
|
1577 |
moreInfo := ''. |
|
1578 |
privInfo := ''. |
|
1579 |
userPreferences := UserPreferences current. |
|
1580 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1581 |
ns := self nameSpace. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1582 |
(ns notNil and:[ns isNameSpace]) ifTrue:[ |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1583 |
moreInfo := moreInfo , |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1584 |
((' < %1 >' bindWith: ns name) asText emphasisAllAdd: |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1585 |
userPreferences emphasisForNamespacedCode) |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1586 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1587 |
]. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1588 |
|
8843 | 1589 |
self isWrapped ifTrue:[ |
8970 | 1590 |
(MessageTracer isCounting:self) ifTrue:[ |
12931 | 1591 |
(MessageTracer isCountingByReceiverClass:self) ifTrue:[ |
1592 |
overAllCount := (MessageTracer executionCountOfMethod:self). |
|
1593 |
moreInfo := moreInfo , (' (cnt: %1' bindWith:overAllCount printString allBold). |
|
1594 |
overAllCount ~~ 0 ifTrue:[ |
|
1595 |
(MessageTracer executionCountsByReceiverClassOfMethod:self) keysAndValuesDo:[:cls :cnt | |
|
1596 |
|clsName percentage| |
|
1597 |
||
1598 |
clsName := cls name. |
|
1599 |
percentage := ((cnt / overAllCount) * 100) rounded. |
|
1600 |
moreInfo := moreInfo , ('; %1->%2%%' bindWith:clsName with:percentage). |
|
1601 |
]. |
|
1602 |
]. |
|
1603 |
moreInfo := moreInfo , ')'. |
|
8970 | 1604 |
] ifFalse:[ |
12931 | 1605 |
(MessageTracer isCountingMemoryUsage:self) ifTrue:[ |
1606 |
moreInfo := moreInfo , (' (mem: %1 bytes avg)' bindWith:(MessageTracer memoryUsageOfMethod:self) printString allBold). |
|
1607 |
] ifFalse:[ |
|
1608 |
moreInfo := moreInfo , (' (cnt: %1)' bindWith:(MessageTracer executionCountOfMethod:self) printString allBold). |
|
1609 |
] |
|
1610 |
]. |
|
8970 | 1611 |
] ifFalse:[ |
1612 |
(MessageTracer isTiming:self) ifTrue:[ |
|
1613 |
info := MessageTracer executionTimesOfMethod:self. |
|
1614 |
((n := info count) == 0) ifTrue:[ |
|
1615 |
moreInfo := moreInfo , (' (cnt: %1)' bindWith:n) |
|
1616 |
] ifFalse:[ |
|
1617 |
timeRounded := [:millis | |
|
1618 |
|rnd| |
|
1619 |
rnd := (millis > 100) |
|
1620 |
ifTrue:[ 1 ] |
|
1621 |
ifFalse:[ |
|
1622 |
(millis > 10) |
|
1623 |
ifTrue:[ 0.1 ] |
|
1624 |
ifFalse:[ |
|
1625 |
(millis > 1) |
|
1626 |
ifTrue:[ 0.01 ] |
|
1627 |
ifFalse:[ 0.001 ]]]. |
|
1628 |
millis roundTo:rnd |
|
1629 |
]. |
|
8843 | 1630 |
|
8970 | 1631 |
(n == 1 or:[ info avgTimeRounded = info minTimeRounded ]) ifTrue:[ |
1632 |
moreInfo := moreInfo , |
|
1633 |
(' (t: %1ms cnt: %2)' |
|
1634 |
bindWith:((timeRounded value:info avgTimeRounded) printString allBold) |
|
1635 |
with:n) |
|
1636 |
] ifFalse:[ |
|
1637 |
moreInfo := moreInfo , |
|
1638 |
(' (avg: %1ms min: %2 max: %3 cnt: %4)' |
|
1639 |
bindWith:((timeRounded value:info avgTimeRounded) printString allBold) |
|
1640 |
with:((timeRounded value:info minTimeRounded) printString) |
|
1641 |
with:((timeRounded value:info maxTimeRounded) printString) |
|
1642 |
with:n) |
|
1643 |
]. |
|
1644 |
]. |
|
1645 |
] ifFalse:[ |
|
1646 |
moreInfo := ' !!' |
|
1647 |
] |
|
1648 |
]. |
|
7703 | 1649 |
]. |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1650 |
p := self privacy. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1651 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1652 |
p ~~ #public ifTrue:[ |
9050
b9df3c89888d
comment/format in: #colorizeAllWith:on:
Claus Gittinger <cg@exept.de>
parents:
8970
diff
changeset
|
1653 |
privInfo := (' (* ' , p , ' *)') allItalic. |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1654 |
]. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1655 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1656 |
"/ self isInvalid ifTrue:[ |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1657 |
"/ moreInfo := ' (** not executable **)'. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1658 |
"/ ]. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1659 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1660 |
(self isLazyMethod not and:[self isUnloaded]) ifTrue:[ |
8970 | 1661 |
moreInfo := ' (** unloaded **)' |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1662 |
]. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1663 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1664 |
privInfo size ~~ 0 ifTrue:[ |
8970 | 1665 |
moreInfo := privInfo , ' ' , moreInfo |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1666 |
]. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1667 |
|
7703 | 1668 |
s := shownSelector := (self selectorPrintStringInBrowserFor:selector class:aClass). |
1669 |
||
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1670 |
(cls := aClass) isNil ifTrue:[ |
8970 | 1671 |
cls := self containingClass |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1672 |
]. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1673 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1674 |
currentChangeSet := ChangeSet current. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1675 |
isInChangeSet := currentChangeSet includesChangeForClass:cls selector:selector. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1676 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1677 |
isInChangeSet ifTrue:[ |
8970 | 1678 |
s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode) |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1679 |
]. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1680 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1681 |
(cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[ |
8970 | 1682 |
suppressPackage := false. |
1683 |
mthdPackage = PackageId noProjectID ifTrue:[ |
|
13067
36e28077276f
method printing for browser
Claus Gittinger <cg@exept.de>
parents:
12931
diff
changeset
|
1684 |
mthdPackage := '?'. |
8970 | 1685 |
"/ suppressPackage := true |
1686 |
]. |
|
1687 |
suppressPackage ifFalse:[ |
|
12661 | 1688 |
shadowsOrNot := (self isShadowingExtension) |
1689 |
ifTrue:[' shadowed' ] |
|
12543 | 1690 |
ifFalse:[ '' ]. |
13067
36e28077276f
method printing for browser
Claus Gittinger <cg@exept.de>
parents:
12931
diff
changeset
|
1691 |
p := ' [' , (((mthdPackage ? '?'), shadowsOrNot allBold),' ') allItalic , '] '. |
8970 | 1692 |
p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage). |
1693 |
s := s , ' ' , p |
|
1694 |
]. |
|
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1695 |
]. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1696 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1697 |
moreInfo size == 0 ifTrue:[^ s]. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1698 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1699 |
s := shownSelector , moreInfo. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1700 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1701 |
self isInvalid ifTrue:[ |
8970 | 1702 |
s := s asText emphasizeAllWith:(userPreferences emphasisForObsoleteCode). |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1703 |
]. |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1704 |
^ s |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1705 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1706 |
"Modified: / 23-01-1998 / 13:15:15 / stefan" |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1707 |
"Created: / 05-02-2000 / 22:55:56 / cg" |
7703 | 1708 |
"Modified: / 05-03-2007 / 16:18:53 / cg" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1709 |
"Modified: / 20-07-2010 / 15:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1710 |
! ! |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1711 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1712 |
!Method methodsFor:'printing & storing'! |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1713 |
|
8843 | 1714 |
selectorPrintStringInBrowserFor:selector |
1715 |
^ selector |
|
7735 | 1716 |
! ! |
1717 |
||
8843 | 1718 |
!Method methodsFor:'printing & storing'! |
7703 | 1719 |
|
8843 | 1720 |
selectorPrintStringInBrowserFor:selector class:aClass |
15345 | 1721 |
|selPart idx| |
1722 |
||
1723 |
(selector isSymbol and:[selector isNameSpaceSelector]) ifFalse:[^ selector]. |
|
1724 |
||
1725 |
idx := selector indexOf:$: startingAt:3. |
|
1726 |
" |
|
1727 |
nsPart := selector copyFrom:2 to:idx-1. |
|
1728 |
ns := Smalltalk at:nsPart asSymbol. |
|
1729 |
" |
|
1730 |
selPart := selector copyFrom:idx+2. |
|
1731 |
^ selPart ", ' {',nsPart,'}'." |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1732 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1733 |
"Modified: / 20-07-2010 / 10:33:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1734 |
! ! |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1735 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1736 |
!MethodDictionary methodsFor:'misc ui support'! |
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1737 |
|
8843 | 1738 |
inspectorClass |
1739 |
"redefined to use DictionaryInspector |
|
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1740 |
(instead of the default Inspector)." |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1741 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1742 |
^ DictionaryInspectorView |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1743 |
|
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1744 |
"Created: 12.6.1996 / 12:29:13 / stefan" |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1745 |
! ! |
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
1746 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1747 |
!MultiImage methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1748 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1749 |
inspectorClass |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1750 |
"redefined to launch an ImageInspector |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1751 |
(instead of the default InspectorView)." |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1752 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1753 |
(self width notNil and:[self height notNil]) ifTrue:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1754 |
^ ImageInspectorView |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1755 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1756 |
^ super inspectorClass |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1757 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1758 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1759 |
!NameSpace class methodsFor:'misc ui support'! |
8843 | 1760 |
|
1761 |
inspectorClass |
|
1762 |
"{ Pragma: +optSpace }" |
|
1763 |
||
1764 |
"redefined to launch a DictionaryInspector |
|
1765 |
(instead of the default Inspector)." |
|
1766 |
||
1767 |
^ DictionaryInspectorView |
|
1768 |
||
1769 |
||
1770 |
! ! |
|
1771 |
||
16837
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1772 |
!NonPositionableExternalStream methodsFor:'inspecting'! |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1773 |
|
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1774 |
inspectorExtraMenuOperations |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1775 |
"extra operation-menu entries to be shown in an inspector. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1776 |
Answers a collection of pairs contining aString and action aBlock. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1777 |
aString is the label of the menu item. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1778 |
aBlock is evaluated when the menu item is selected. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1779 |
To be redefined in objects which think that it makes sense to offer |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1780 |
often used operations in an inspector. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1781 |
See SerialPort as an example." |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1782 |
|
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1783 |
|superItems| |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1784 |
|
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1785 |
superItems := super inspectorExtraMenuOperations. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1786 |
(self == Stdin or:[self == Stdout or:[self == Stderr]]) ifTrue:[ |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1787 |
^ superItems |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1788 |
]. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1789 |
^ superItems , |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1790 |
{ |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1791 |
{ 'Close Stream' . [self close] } |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1792 |
}. |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1793 |
! ! |
338852b221c5
class: NonPositionableExternalStream
Claus Gittinger <cg@exept.de>
parents:
16822
diff
changeset
|
1794 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1795 |
!Notification class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1796 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1797 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
1798 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
1799 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1800 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1801 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1802 |
^ #notificationClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1803 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1804 |
|
10702
90cc3aeccac5
inspector2: for consistency: the object view is always the first tab
Claus Gittinger <cg@exept.de>
parents:
10700
diff
changeset
|
1805 |
!Object methodsFor:'inspecting'! |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1806 |
|
15177
28ce238b8a47
Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15149
diff
changeset
|
1807 |
inspector2TabClass |
28ce238b8a47
Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15149
diff
changeset
|
1808 |
<inspector2Tab> |
28ce238b8a47
Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15149
diff
changeset
|
1809 |
|
17257
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1810 |
^ Tools::Inspector2Tab toBrowseClass:self class theNonMetaclass selector:nil label:'Class' |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1811 |
|
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1812 |
"/ |makeView| |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1813 |
"/ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1814 |
"/ makeView := [ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1815 |
"/ |spec view browser navigationState cls canvas| |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1816 |
"/ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1817 |
"/ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1818 |
"/ view isNil ifTrue:[ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1819 |
"/ "/ spec := #singleClassBrowserSpec. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1820 |
"/ spec := #multipleClassBrowserSpec. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1821 |
"/ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1822 |
"/ browser := Tools::NewSystemBrowser new |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1823 |
"/ isEmbeddedBrowser:true; |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1824 |
"/ createBuilder. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1825 |
"/ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1826 |
"/ navigationState := browser navigationState. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1827 |
"/ navigationState canvasType:spec. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1828 |
"/ browser browserCanvasType:spec. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1829 |
"/ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1830 |
"/ canvas := browser browserCanvas value. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1831 |
"/ canvas builder:(browser builder). |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1832 |
"/ navigationState canvas:canvas. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1833 |
"/ "/ browser switchToClassHierarchyView. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1834 |
"/ "/ browser showInheritedMethods. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1835 |
"/ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1836 |
"/ cls := self class theNonMetaclass. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1837 |
"/ browser classListGenerator value:(cls withAllSuperclasses). |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1838 |
"/ browser sortByNameAndInheritance value:true. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1839 |
"/ browser |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1840 |
"/ selectClass:cls; |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1841 |
"/ selectProtocol: (Tools::BrowserList nameListEntryForALL). |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1842 |
"/ view := ApplicationSubView new client: browser spec: spec. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1843 |
"/ navigationState classListApplication addOwnerClasses value:false. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1844 |
"/ ]. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1845 |
"/ view |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1846 |
"/ ]. |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1847 |
"/ |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1848 |
"/ ^ Tools::Inspector2Tab new |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1849 |
"/ priority: 0; |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1850 |
"/ label:'Class'; |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1851 |
"/ viewHolder: makeView; |
4f93c9ff29e5
image inspector shows new tab
Claus Gittinger <cg@exept.de>
parents:
17190
diff
changeset
|
1852 |
"/ yourself |
15177
28ce238b8a47
Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15149
diff
changeset
|
1853 |
|
28ce238b8a47
Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15149
diff
changeset
|
1854 |
"Created: / 03-02-2015 / 11:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
28ce238b8a47
Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15149
diff
changeset
|
1855 |
! ! |
28ce238b8a47
Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15149
diff
changeset
|
1856 |
|
28ce238b8a47
Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15149
diff
changeset
|
1857 |
!Object methodsFor:'inspecting'! |
28ce238b8a47
Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15149
diff
changeset
|
1858 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1859 |
inspector2TabCommon |
10164 | 1860 |
"a tab, showing the old inspector" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1861 |
|
10164 | 1862 |
^ self inspector2TabForInspectorClass |
1863 |
||
1864 |
"Created: / 24-05-2011 / 14:56:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1865 |
"Modified: / 05-07-2011 / 14:06:28 / cg" |
|
1866 |
! ! |
|
1867 |
||
10702
90cc3aeccac5
inspector2: for consistency: the object view is always the first tab
Claus Gittinger <cg@exept.de>
parents:
10700
diff
changeset
|
1868 |
!Object methodsFor:'inspecting'! |
10164 | 1869 |
|
16789
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1870 |
inspector2TabDisplayObject |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1871 |
^ self newInspector2Tab |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1872 |
label: 'DisplayObject'; |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1873 |
priority: 50; |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1874 |
view: ((HVScrollableView for:DisplayObjectView) model: self; yourself) |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1875 |
|
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1876 |
"Created: / 11-10-2011 / 17:12:01 / cg" |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1877 |
! ! |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1878 |
|
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1879 |
!Object methodsFor:'inspecting'! |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1880 |
|
10164 | 1881 |
inspector2TabForBasicInspect |
1882 |
"a tab, showing the old basic inspector" |
|
1883 |
||
1884 |
^ Tools::Inspector2Tab new |
|
17100 | 1885 |
priority: 90; |
10164 | 1886 |
label:'Basic'; |
11400
a9ad41342a52
inspector2TabForBasicInspect
Claus Gittinger <cg@exept.de>
parents:
11399
diff
changeset
|
1887 |
view: (InspectorView new inspect:self); |
10164 | 1888 |
yourself |
1889 |
||
1890 |
"Created: / 05-07-2011 / 13:59:59 / cg" |
|
1891 |
! ! |
|
1892 |
||
10702
90cc3aeccac5
inspector2: for consistency: the object view is always the first tab
Claus Gittinger <cg@exept.de>
parents:
10700
diff
changeset
|
1893 |
!Object methodsFor:'inspecting'! |
10164 | 1894 |
|
1895 |
inspector2TabForInspectorClass |
|
1896 |
"a tab, showing the old inspector" |
|
1897 |
||
1898 |
^ Tools::Inspector2Tab new |
|
10702
90cc3aeccac5
inspector2: for consistency: the object view is always the first tab
Claus Gittinger <cg@exept.de>
parents:
10700
diff
changeset
|
1899 |
priority: 100; |
10316 | 1900 |
label:(self inspector2TabLabel); |
10164 | 1901 |
view: (self inspectorClass new inspect:self); |
1902 |
yourself |
|
1903 |
||
1904 |
"Created: / 05-07-2011 / 14:06:16 / cg" |
|
1905 |
! ! |
|
1906 |
||
10702
90cc3aeccac5
inspector2: for consistency: the object view is always the first tab
Claus Gittinger <cg@exept.de>
parents:
10700
diff
changeset
|
1907 |
!Object methodsFor:'inspecting'! |
10316 | 1908 |
|
1909 |
inspector2TabLabel |
|
1910 |
"label of the main tab" |
|
1911 |
||
1912 |
^ 'Object' |
|
1913 |
||
1914 |
"Created: / 14-07-2011 / 11:56:23 / cg" |
|
1915 |
! ! |
|
1916 |
||
10313 | 1917 |
!Object methodsFor:'inspecting'! |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1918 |
|
10164 | 1919 |
inspector2Tabs |
15183
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1920 |
| tabs | |
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1921 |
|
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1922 |
tabs := self inspectorClass ~~ Inspector |
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1923 |
ifTrue:[#( inspector2TabCommon inspector2TabForBasicInspect )] |
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1924 |
ifFalse:[#( inspector2TabCommon )]. |
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1925 |
|
17171
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
1926 |
(self isString not |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
1927 |
and:[ (self class whichClassIncludesSelector:#displayOn:x:y:) ~~ Object |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
1928 |
or:[(self class whichClassIncludesSelector:#displayOn:x:y:opaque:) ~~ Object |
e74741ba46ba
no displayObject tab for strings.
Claus Gittinger <cg@exept.de>
parents:
17145
diff
changeset
|
1929 |
or:[(self class whichClassIncludesSelector:#displayOpaqueOn:x:y:) ~~ Object]]]) ifTrue:[ |
16789
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1930 |
tabs := tabs copyWith:#inspector2TabDisplayObject. |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1931 |
]. |
a3f528d8797d
DisplayView extension in Inspector2
Stefan Vogel <sv@exept.de>
parents:
16722
diff
changeset
|
1932 |
|
15183
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1933 |
"/ Workaround for stc bug |
15185
a6fe90f74c11
Oops, fixed stupid bug in Object>>inspector2Tabs workaround.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15183
diff
changeset
|
1934 |
((self class lookupMethodFor: #inspector2TabClass) annotationAt: #inspector2Tab) isNil ifTrue:[ |
15183
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1935 |
tabs := tabs copyWith:#inspector2TabClass |
10164 | 1936 |
]. |
15183
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1937 |
^ tabs |
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1938 |
|
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1939 |
" |
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1940 |
1 inspect |
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1941 |
self inspect |
0ae565404b9a
Workaround for stc bug.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15177
diff
changeset
|
1942 |
" |
10164 | 1943 |
|
1944 |
"Created: / 05-07-2011 / 13:39:24 / cg" |
|
15185
a6fe90f74c11
Oops, fixed stupid bug in Object>>inspector2Tabs workaround.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15183
diff
changeset
|
1945 |
"Modified: / 04-02-2015 / 15:12:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1946 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1947 |
|
15691
e39ed47363ff
category of inspectorExtraAttributes
Claus Gittinger <cg@exept.de>
parents:
15616
diff
changeset
|
1948 |
!Object methodsFor:'inspecting'! |
8843 | 1949 |
|
1950 |
inspectorExtraAttributes |
|
1951 |
"extra (pseudo instvar) entries to be shown in an inspector. |
|
1952 |
Answers a dictionary of aString -> aBlock. |
|
1953 |
aString is name of extra attribute and MUST start with minus ($-). |
|
1954 |
aBlock returns the object representing extra attribute." |
|
1955 |
||
13639 | 1956 |
^ Dictionary new. |
8843 | 1957 |
|
1958 |
" Try to uncomment following and inspect any object " |
|
1959 |
||
13639 | 1960 |
"/ ^ Dictionary new |
1961 |
"/ add:'-now' -> ['Now: ' , Time now printString]; |
|
8843 | 1962 |
"/ yourself |
1963 |
||
1964 |
"Created: / 16-08-2005 / 20:43:33 / janfrog" |
|
1965 |
"Modified: / 02-09-2005 / 19:00:01 / janfrog" |
|
1966 |
"Modified: / 04-10-2006 / 14:33:34 / cg" |
|
1967 |
! ! |
|
1968 |
||
11773 | 1969 |
!Object methodsFor:'inspecting'! |
1970 |
||
1971 |
inspectorValueStringInListFor:anInspector |
|
13423 | 1972 |
"returns a string to be shown in the inspector's list. |
1973 |
Only to be redefined where it is guaranteed, that the returned string is short." |
|
11773 | 1974 |
|
1975 |
^ self classNameWithArticle |
|
1976 |
||
1977 |
"Created: / 13-06-2012 / 12:50:26 / cg" |
|
1978 |
! ! |
|
1979 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1980 |
!Object methodsFor:'testing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1981 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1982 |
isTestCaseLike |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1983 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1984 |
^false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1985 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1986 |
"Created: / 28-02-2011 / 21:30:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1987 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1988 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1989 |
!Object methodsFor:'debugging'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1990 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1991 |
newInspector2Tab |
15587
75291f910f79
class: YAXO::XeXMLNodeAbstract
Claus Gittinger <cg@exept.de>
parents:
15555
diff
changeset
|
1992 |
"return an extra tab to be used inside an inspector" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1993 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1994 |
"Use Smalltalk>>at: to trick the dependency detector" |
17145 | 1995 |
^ (Smalltalk at: #'Tools::Inspector2Tab') new. |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1996 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
1997 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
1998 |
!OrderedCollection methodsFor:'misc ui support'! |
8843 | 1999 |
|
2000 |
inspectorClass |
|
2001 |
"redefined to launch an OrderedCollectionInspector |
|
2002 |
(instead of the default InspectorView)." |
|
2003 |
||
2004 |
^ OrderedCollectionInspectorView |
|
2005 |
||
2006 |
" |
|
2007 |
(OrderedCollection withAll:#(3 2 1)) inspect |
|
2008 |
(OrderedCollection withAll:#(3 2 1)) removeFirst; yourself; inspect |
|
2009 |
#(0 8 15 3 99 2) asSortedCollection inspect |
|
2010 |
" |
|
2011 |
! ! |
|
2012 |
||
13423 | 2013 |
!Point methodsFor:'inspecting'! |
2014 |
||
2015 |
inspectorValueStringInListFor:anInspector |
|
2016 |
"returns a string to be shown in the inspector's list" |
|
2017 |
||
2018 |
^ self printString |
|
2019 |
! ! |
|
2020 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2021 |
!PopUpMenu methodsFor:'converting'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2022 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2023 |
asMenu |
12780 | 2024 |
"convert myself into a newStyle Menu instance, from which a MenuPanel is created. |
2025 |
The old PopUpMenu and MenuView is going to be obsoleted (but still supported |
|
2026 |
for backward compatibility)" |
|
2027 |
||
11399 | 2028 |
| menu | |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2029 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2030 |
menu := Menu new receiver: menuView receiver. |
11399 | 2031 |
1 to: self numberOfItems do:[:i| |
12780 | 2032 |
| menuItem subMenu lbl checkHolder| |
2033 |
||
2034 |
lbl := (self labels at: i). |
|
2035 |
(lbl includesString:'\c') ifTrue:[ |
|
2036 |
lbl := lbl copyReplaceString:'\c' withString:''. |
|
15271 | 2037 |
checkHolder := ValueHolder with:(menuView checkToggleAt:i). |
12780 | 2038 |
]. |
11399 | 2039 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2040 |
menuItem := MenuItem new |
14601 | 2041 |
label: lbl |
2042 |
itemValue: (menuView selectors at: i) |
|
14626 | 2043 |
enabled: (menuView isEnabled: i). |
2044 |
menuItem shortcutKey: (menuView shortKeys at: i). |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2045 |
|
11399 | 2046 |
(subMenu := self subMenuAt: i) notNil ifTrue:[ |
2047 |
menuItem submenu: subMenu asMenu |
|
2048 |
]. |
|
12780 | 2049 |
checkHolder notNil ifTrue:[ |
2050 |
checkHolder onChangeEvaluate:[ |
|
2051 |
menuView receiver perform:(menuView selectors at: i) with:checkHolder value |
|
2052 |
]. |
|
2053 |
menuItem indication:checkHolder. |
|
12781 | 2054 |
menuItem hideMenuOnActivated:false. |
12780 | 2055 |
]. |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2056 |
menu addItem: menuItem. |
11399 | 2057 |
]. |
2058 |
^ menu. |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2059 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2060 |
"Created: / 18-10-2008 / 19:01:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
11792 | 2061 |
"Modified: / 09-09-2012 / 13:10:25 / cg" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2062 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2063 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2064 |
!ProfileTree methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2065 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2066 |
method |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2067 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2068 |
class ifNil:[^nil]. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2069 |
^class >> selector |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2070 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2071 |
"Created: / 01-12-2007 / 22:50:16 / janfrog" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2072 |
"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2073 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2074 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2075 |
!ProfileTree methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2076 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2077 |
package |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2078 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2079 |
self method ifNil:[^nil]. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2080 |
^self method package |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2081 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2082 |
"Created: / 01-12-2007 / 22:50:28 / janfrog" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2083 |
"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2084 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2085 |
|
13887 | 2086 |
!ProgrammingLanguage methodsFor:'displaying'! |
2087 |
||
2088 |
displayString |
|
2089 |
^ self name |
|
2090 |
||
2091 |
"Created: / 26-10-2013 / 00:52:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2092 |
! ! |
|
2093 |
||
13504
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2094 |
!ProgrammingLanguage methodsFor:'accessing'! |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2095 |
|
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2096 |
toolbox |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2097 |
"Answer a toolbox for receiver. A toolbox is used by language-agnostic tools (such as |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2098 |
class browser) to perform language-specific tasks (search for implementors, |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2099 |
build implementor menu and so on. If nil is returned, no toolbox available" |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2100 |
|
14013
edf1f9887d03
Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13983
diff
changeset
|
2101 |
^ self toolboxClass new. |
13504
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2102 |
|
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2103 |
"Created: / 31-08-2013 / 10:15:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14013
edf1f9887d03
Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13983
diff
changeset
|
2104 |
"Modified: / 24-02-2014 / 16:32:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13504
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2105 |
! ! |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2106 |
|
16357 | 2107 |
!ProgrammingLanguage methodsFor:'accessing-classes'! |
13504
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2108 |
|
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2109 |
toolboxClass |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2110 |
"Answer a 'toolbox class'. A toolbox is used by language-agnostic tools (such as |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2111 |
class browser) to perform language-specific tasks (search for implementors, |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2112 |
build implementor menu and so on. If nil is returned, no toolbox available" |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2113 |
|
14013
edf1f9887d03
Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13983
diff
changeset
|
2114 |
^ Tools::GenericToolbox |
13504
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2115 |
|
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2116 |
"Created: / 31-08-2013 / 10:07:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14013
edf1f9887d03
Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13983
diff
changeset
|
2117 |
"Modified: / 24-02-2014 / 16:32:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13504
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2118 |
! ! |
2c37f59ad97b
Added ProgrammingLanguage>>toolbox(Class)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13423
diff
changeset
|
2119 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2120 |
!ProjectDefinition class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2121 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2122 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2123 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2124 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2125 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2126 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2127 |
self theNonMetaclass isApplicationDefinition ifTrue:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2128 |
self theNonMetaclass isGUIApplication ifTrue:[ |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2129 |
^ #guiApplicationDefinitionClassIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2130 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2131 |
^ #applicationDefinitionClassIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2132 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2133 |
^ super iconInBrowserSymbol |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2134 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2135 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2136 |
!Query class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2137 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2138 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2139 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2140 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2141 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2142 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2143 |
^ #queryClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2144 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2145 |
|
13423 | 2146 |
!Rectangle methodsFor:'inspecting'! |
2147 |
||
2148 |
inspectorValueStringInListFor:anInspector |
|
2149 |
"returns a string to be shown in the inspector's list" |
|
2150 |
||
2151 |
^ self origin printString,'->',self corner printString |
|
2152 |
! ! |
|
2153 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2154 |
!RunArray methodsFor:'misc ui support'! |
8843 | 2155 |
|
2156 |
inspectorClass |
|
2157 |
"Re-reimplemented so that we don't get an ordered collection inspector |
|
2158 |
which would get very confused when confronted with a runArray." |
|
2159 |
||
2160 |
^ InspectorView |
|
2161 |
||
2162 |
"Modified: / 30.10.1997 / 14:28:20 / cg" |
|
2163 |
! ! |
|
2164 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2165 |
!SelectionInListModelView methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2166 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2167 |
textStartLeft |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2168 |
^ textStartLeft |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2169 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2170 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2171 |
!SelectionInListModelView methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2172 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2173 |
textStartLeft:something |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2174 |
textStartLeft := something. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2175 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2176 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2177 |
!Set methodsFor:'misc ui support'! |
8843 | 2178 |
|
2179 |
inspectorClass |
|
2180 |
"redefined to use SetInspector |
|
2181 |
(instead of the default Inspector)." |
|
2182 |
||
2183 |
^ SetInspectorView |
|
2184 |
! ! |
|
2185 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2186 |
!SharedPool class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2187 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2188 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2189 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2190 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2191 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2192 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2193 |
self == SharedPool ifTrue:[^ super iconInBrowserSymbol]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2194 |
^ #sharedPoolBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2195 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2196 |
"Created: / 14-10-2010 / 12:04:32 / cg" |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2197 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2198 |
|
15964 | 2199 |
!SimpleView methodsFor:'inspecting'! |
2200 |
||
2201 |
inspectorExtraAttributes |
|
2202 |
^ super inspectorExtraAttributes |
|
17415 | 2203 |
add:'-windowGroup' -> [ self windowGroup ]; |
2204 |
add:'-sensor' -> [ self sensor ]; |
|
2205 |
add:'-parent' -> [ self container ]; |
|
16937 | 2206 |
add:'-hidden' -> [ self isHiddenOnRealize ]; |
16938 | 2207 |
add:'-enabled' -> [ self enabled ]; |
2208 |
||
15964 | 2209 |
yourself |
17415 | 2210 |
|
2211 |
"Modified: / 16-02-2017 / 18:34:31 / cg" |
|
15964 | 2212 |
! ! |
2213 |
||
10724 | 2214 |
!SimpleView methodsFor:'testing'! |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2215 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2216 |
isCodeView2 |
14917 | 2217 |
"codeview2 seems to require some extra hacks" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2218 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2219 |
^ false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2220 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2221 |
"Created: / 20-07-2010 / 15:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
9673 | 2222 |
! ! |
2223 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2224 |
!SimpleView class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2225 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2226 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2227 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2228 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2229 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2230 |
|
16184 | 2231 |
self isAbstract ifTrue:[ |
2232 |
^ #abstractWindowClassBrowserIcon |
|
2233 |
]. |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2234 |
^ #windowClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2235 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2236 |
|
15790 | 2237 |
!SmallInteger methodsFor:'inspecting'! |
2238 |
||
2239 |
inspectorExtraAttributes |
|
2240 |
"extra (pseudo instvar) entries to be shown in an inspector." |
|
2241 |
||
2242 |
|extra| |
|
2243 |
||
2244 |
extra := super inspectorExtraAttributes. |
|
2245 |
self < 0 ifTrue:[ |
|
2246 |
extra |
|
2247 |
add:'-hexadecimal (unsigned)' -> [ self asUnsignedInt radixPrintStringRadix:16 ]. |
|
2248 |
]. |
|
2249 |
^ extra |
|
2250 |
||
2251 |
" |
|
2252 |
123 inspect |
|
2253 |
-123 inspect |
|
2254 |
" |
|
2255 |
||
2256 |
"Created: / 18-09-2006 / 21:22:46 / cg" |
|
2257 |
"Modified: / 06-10-2006 / 13:57:28 / cg" |
|
2258 |
! ! |
|
2259 |
||
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2260 |
!Smalltalk class methodsFor:'misc ui support'! |
12623 | 2261 |
|
2262 |
inspectorClass |
|
2263 |
"redefined to use DictionaryInspector |
|
2264 |
(instead of the default Inspector)." |
|
2265 |
||
2266 |
^ DictionaryInspectorView |
|
2267 |
! ! |
|
2268 |
||
16359 | 2269 |
!SmalltalkLanguage methodsFor:'accessing-classes'! |
14698
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2270 |
|
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2271 |
compilerClassForInteractiveTools |
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2272 |
"Answer a compiler class suitable for usage in interactive tools. |
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2273 |
Such class may better integrate into the IDE and register for undo/redo |
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2274 |
and/or do more checks and so on. Defaults to #compilerClass" |
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2275 |
|
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2276 |
^ SmalltalkCodeGeneratorTool |
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2277 |
|
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2278 |
"Created: / 05-08-2014 / 16:01:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2279 |
! ! |
cad037e21687
For Smalltalk code, use SmalltalkCodeGenerator as an compiler for interactive tools.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14641
diff
changeset
|
2280 |
|
15798
bd3851a2a3c7
SocketAddress>>#inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
15790
diff
changeset
|
2281 |
!SocketAddress methodsFor:'printing & storing'! |
bd3851a2a3c7
SocketAddress>>#inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
15790
diff
changeset
|
2282 |
|
bd3851a2a3c7
SocketAddress>>#inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
15790
diff
changeset
|
2283 |
inspectorValueStringInListFor:anInspector |
bd3851a2a3c7
SocketAddress>>#inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
15790
diff
changeset
|
2284 |
"returns a string to be shown in the inspector's list" |
bd3851a2a3c7
SocketAddress>>#inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
15790
diff
changeset
|
2285 |
|
bd3851a2a3c7
SocketAddress>>#inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
15790
diff
changeset
|
2286 |
^ self printString |
bd3851a2a3c7
SocketAddress>>#inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
15790
diff
changeset
|
2287 |
! ! |
bd3851a2a3c7
SocketAddress>>#inspectorValueStringInListFor:
Stefan Vogel <sv@exept.de>
parents:
15790
diff
changeset
|
2288 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2289 |
!StandaloneStartup class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2290 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2291 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2292 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
2293 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2294 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2295 |
|
16234 | 2296 |
false "self isAbstract" ifFalse:[ |
2297 |
self isHeadless ifTrue:[ |
|
2298 |
^ #standaloneStartupHeadlessIcon |
|
2299 |
]. |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2300 |
^ #standaloneStartupIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2301 |
]. |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2302 |
^ super iconInBrowserSymbol |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2303 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
2304 |
|
10313 | 2305 |
!StringCollection methodsFor:'inspecting'! |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2306 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2307 |
inspector2TabText |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2308 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2309 |
^self newInspector2Tab |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2310 |
label: 'String'; |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2311 |
priority: 25; |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2312 |
view: ((ScrollableView for:TextView) contents: self asString; yourself) |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2313 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2314 |
"Created: / 17-02-2008 / 10:13:07 / janfrog" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2315 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2316 |
|
10313 | 2317 |
!StringCollection methodsFor:'inspecting'! |
10164 | 2318 |
|
2319 |
inspector2Tabs |
|
15285
292d95b373b7
Fixed #inspector2Tabs method: always call 'super inspector2Tabs'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15271
diff
changeset
|
2320 |
^ super inspector2Tabs , #( inspector2TabText ) |
10164 | 2321 |
|
2322 |
"Created: / 05-07-2011 / 13:40:43 / cg" |
|
15285
292d95b373b7
Fixed #inspector2Tabs method: always call 'super inspector2Tabs'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15271
diff
changeset
|
2323 |
"Modified: / 13-02-2015 / 21:03:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10164 | 2324 |
! ! |
2325 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2326 |
!Symbol methodsFor:'accessing'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2327 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2328 |
formattedCode |
14636 | 2329 |
"private helper for the CodeGenerator" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2330 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2331 |
^self |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2332 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2333 |
"Created: / 07-07-2009 / 20:03:21 / Jan Vrany <vranyj1@fel.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2334 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2335 |
|
11773 | 2336 |
!Symbol methodsFor:'inspecting'! |
2337 |
||
2338 |
inspectorValueStringInListFor:anInspector |
|
2339 |
"returns a string to be shown in the inspector's list" |
|
2340 |
||
2341 |
^ self storeString |
|
2342 |
! ! |
|
2343 |
||
10313 | 2344 |
!Text methodsFor:'inspecting'! |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2345 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2346 |
inspector2TabText |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2347 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2348 |
^self newInspector2Tab |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2349 |
label: 'Text'; |
10637
1114ddcf69f7
variable renamed in: #inspector2TabBytes
Claus Gittinger <cg@exept.de>
parents:
10527
diff
changeset
|
2350 |
priority: 50; |
1114ddcf69f7
variable renamed in: #inspector2TabBytes
Claus Gittinger <cg@exept.de>
parents:
10527
diff
changeset
|
2351 |
view: ((ScrollableView for:EditTextView) contents: self; yourself) |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2352 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2353 |
"Created: / 17-02-2008 / 09:03:36 / janfrog" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2354 |
"Modified: / 17-02-2008 / 10:28:33 / janfrog" |
10637
1114ddcf69f7
variable renamed in: #inspector2TabBytes
Claus Gittinger <cg@exept.de>
parents:
10527
diff
changeset
|
2355 |
"Modified: / 21-08-2011 / 08:02:46 / cg" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2356 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2357 |
|
7754 | 2358 |
!Text methodsFor:'inspecting'! |
2359 |
||
8843 | 2360 |
inspectorExtraAttributes |
2361 |
"extra (pseudo instvar) entries to be shown in an inspector." |
|
2362 |
||
13639 | 2363 |
^ super inspectorExtraAttributes |
2364 |
add:'-text' -> [ self ]; |
|
2365 |
yourself |
|
8843 | 2366 |
|
2367 |
" |
|
2368 |
'hello' allBold inspect |
|
2369 |
" |
|
2370 |
||
2371 |
"Created: / 18-09-2006 / 21:25:52 / cg" |
|
2372 |
"Modified: / 06-10-2006 / 13:57:38 / cg" |
|
7299
efa954fda5c1
inspector code now as extension
Claus Gittinger <cg@exept.de>
parents:
7298
diff
changeset
|
2373 |
! ! |
8918 | 2374 |
|
16653 | 2375 |
!Time methodsFor:'printing & storing'! |
2376 |
||
2377 |
inspectorValueStringInListFor:anInspector |
|
2378 |
"returns a string to be shown in the inspector's list" |
|
2379 |
||
2380 |
^ self printString |
|
2381 |
! ! |
|
2382 |
||
9691
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2383 |
!Timestamp methodsFor:'inspecting'! |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2384 |
|
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2385 |
inspectorExtraAttributes |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2386 |
"extra (pseudo instvar) entries to be shown in an inspector." |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2387 |
|
13639 | 2388 |
^ super inspectorExtraAttributes |
9691
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2389 |
add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self asDate dayOfWeekName , '"' ]; |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2390 |
add:'-dayInYear' -> [ self dayInYear ]; |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2391 |
add:'-daysInMonth' -> [ self asDate daysInMonth ]; |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2392 |
add:'-monthName' -> [ self asDate monthName ]; |
14816 | 2393 |
add:'-weekNr' -> [ self asDate weekInYear ]; |
9691
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2394 |
add:'-leapYear' -> [ self asDate isLeapYear ]; |
14817
056ec74bde0a
naming ISO vs. Iso - made all ISO stuff obsolete;
Claus Gittinger <cg@exept.de>
parents:
14816
diff
changeset
|
2395 |
add:'-iso8601(utc)' -> [ self asUtcTimestamp printStringIso8601 ]; |
9691
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2396 |
yourself |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2397 |
|
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2398 |
" |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2399 |
Timestamp now inspect |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2400 |
" |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2401 |
|
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2402 |
"Created: / 20-01-2011 / 12:19:05 / cg" |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2403 |
! ! |
312706640f5c
better date and timestamp inspecting
Claus Gittinger <cg@exept.de>
parents:
9673
diff
changeset
|
2404 |
|
12852 | 2405 |
!Timestamp methodsFor:'inspecting'! |
2406 |
||
2407 |
inspectorValueStringInListFor:anInspector |
|
2408 |
"returns a string to be shown in the inspector's list" |
|
2409 |
||
2410 |
^ self printString |
|
2411 |
! ! |
|
2412 |
||
2413 |
!UUID methodsFor:'inspecting'! |
|
2414 |
||
2415 |
inspectorValueStringInListFor:anInspector |
|
2416 |
"returns a string to be shown in the inspector's list" |
|
2417 |
||
2418 |
^ self printString |
|
2419 |
! ! |
|
2420 |
||
11773 | 2421 |
!UndefinedObject methodsFor:'inspecting'! |
2422 |
||
2423 |
inspectorValueStringInListFor:anInspector |
|
2424 |
"returns a string to be shown in the inspector's list" |
|
2425 |
||
2426 |
^ 'nil' |
|
2427 |
! ! |
|
2428 |
||
11283 | 2429 |
!UninterpretedBytes methodsFor:'inspecting'! |
11264 | 2430 |
|
2431 |
inspector2Tabs |
|
15285
292d95b373b7
Fixed #inspector2Tabs method: always call 'super inspector2Tabs'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15271
diff
changeset
|
2432 |
^ super inspector2Tabs , #( inspector2TabForHexDump ) |
11264 | 2433 |
|
11283 | 2434 |
"Created: / 27-02-2012 / 21:51:36 / cg" |
15285
292d95b373b7
Fixed #inspector2Tabs method: always call 'super inspector2Tabs'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15271
diff
changeset
|
2435 |
"Modified: / 13-02-2015 / 21:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11264 | 2436 |
! ! |
2437 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2438 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2439 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2440 |
alwaysOpenNewTabWhenCtrlClick |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2441 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2442 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2443 |
UserPreferences current alwaysOpenNewTabWhenCtrlClick |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2444 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2445 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2446 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2447 |
^ self at:#alwaysOpenNewTabWhenCtrlClick ifAbsent:false. |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2448 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2449 |
"Created: / 19-10-2008 / 08:00:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2450 |
"Modified: / 14-02-2010 / 19:37:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2451 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2452 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2453 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2454 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2455 |
alwaysOpenNewTabWhenCtrlClick: aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2456 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2457 |
self at:#alwaysOpenNewTabWhenCtrlClick put: aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2458 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2459 |
"Created: / 19-10-2008 / 08:01:45 / Jan Vrany <vranyj1@fel.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2460 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2461 |
|
13887 | 2462 |
!UserPreferences methodsFor:'accessing-pref''d tools'! |
2463 |
||
2464 |
changesBrowserClassName |
|
2465 |
||
2466 |
^ self |
|
2467 |
at: #changesBrowserClassName |
|
2468 |
ifAbsent:[self changesBrowserClass name]."/Backward comparibility |
|
2469 |
||
2470 |
"Created: / 03-04-2012 / 11:02:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2471 |
! ! |
|
2472 |
||
12788 | 2473 |
!UserPreferences methodsFor:'obsolete'! |
10525 | 2474 |
|
2475 |
codeView2AutoIndent |
|
12788 | 2476 |
<resource: #obsolete> |
10525 | 2477 |
|
2478 |
^self at:#codeView2AutoIndent ifAbsent: false |
|
2479 |
||
2480 |
" |
|
2481 |
UserPreferences current codeView2AutoIndent |
|
2482 |
UserPreferences current codeView2AutoIndent:true |
|
2483 |
UserPreferences current codeView2AutoIndent:false" |
|
2484 |
||
2485 |
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2486 |
"Created: / 07-08-2011 / 12:46:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2487 |
! ! |
|
2488 |
||
12788 | 2489 |
!UserPreferences methodsFor:'obsolete'! |
10525 | 2490 |
|
2491 |
codeView2AutoIndent: aBoolean |
|
12788 | 2492 |
<resource: #obsolete> |
10525 | 2493 |
|
2494 |
^self at:#codeView2AutoIndent put: aBoolean |
|
2495 |
||
2496 |
" |
|
2497 |
UserPreferences current codeView2AutoIndent |
|
2498 |
UserPreferences current codeView2AutoIndent:true |
|
2499 |
UserPreferences current codeView2AutoIndent:false" |
|
2500 |
||
2501 |
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2502 |
"Created: / 07-08-2011 / 12:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2503 |
! ! |
|
2504 |
||
10795
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2505 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2506 |
|
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2507 |
codeView2ShowAcceptCancel |
16565 | 2508 |
"this is a little confusing: the codeview2 has its own accept/cancel bar |
2509 |
(why reinvent the wheel?). |
|
2510 |
So if this is enabled, the outer accept/cancel bar will be suppressed, |
|
2511 |
if this is on" |
|
10795
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2512 |
^self at:#codeView2ShowAcceptCancel ifAbsent: false |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2513 |
|
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2514 |
" |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2515 |
UserPreferences current codeView2ShowAcceptCancel |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2516 |
UserPreferences current codeView2ShowAcceptCancel:true |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2517 |
UserPreferences current codeView2ShowAcceptCancel:false" |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2518 |
|
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2519 |
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2520 |
"Created: / 10-10-2011 / 16:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2521 |
! ! |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2522 |
|
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2523 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2524 |
|
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2525 |
codeView2ShowAcceptCancel: aBoolean |
16565 | 2526 |
"this is a little confusing: the codeview2 has its own accept/cancel bar |
2527 |
(why reinvent the wheel?). |
|
2528 |
So if this is enabled, the outer accept/cancel bar will be suppressed, |
|
2529 |
if this is on" |
|
2530 |
||
10795
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2531 |
^self at:#codeView2ShowAcceptCancel put: aBoolean |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2532 |
|
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2533 |
" |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2534 |
UserPreferences current codeView2ShowAcceptCancel |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2535 |
UserPreferences current codeView2ShowAcceptCancel:true |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2536 |
UserPreferences current codeView2ShowAcceptCancel:false" |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2537 |
|
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2538 |
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2539 |
"Created: / 10-10-2011 / 16:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2540 |
! ! |
6f44639ec301
Added user preference to control default accept/cancel bar visibility
vrany
parents:
10779
diff
changeset
|
2541 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2542 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2543 |
|
13887 | 2544 |
confirmRefactorings |
2545 |
"If set, each refactoring must be confirmed before accepted. |
|
2546 |
A programmer may select which changes to apply and which not |
|
2547 |
and/or alter the change. |
|
2548 |
||
2549 |
See RefactoryChange>>shouldBeConfirmed |
|
2550 |
" |
|
2551 |
||
2552 |
^ self at:#confirmRefactorings ifAbsent:[false]. |
|
2553 |
||
2554 |
" |
|
2555 |
UserPreferences current confirmRefactorings |
|
2556 |
UserPreferences current confirmRefactorings:true |
|
2557 |
UserPreferences current confirmRefactorings:false |
|
2558 |
" |
|
2559 |
||
2560 |
"Created: / 04-04-2012 / 14:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2561 |
! ! |
|
2562 |
||
2563 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
|
2564 |
||
2565 |
confirmRefactorings:aBoolean |
|
2566 |
"If set, each refactoring must be confirmed before accepted. |
|
2567 |
A programmer may select which changes to apply and which not |
|
2568 |
and/or alter the change. |
|
2569 |
||
2570 |
See RefactoryChange>>shouldBeConfirmed |
|
2571 |
" |
|
2572 |
||
2573 |
^ self at:#confirmRefactorings put:aBoolean |
|
2574 |
||
2575 |
" |
|
2576 |
UserPreferences current confirmRefactorings |
|
2577 |
UserPreferences current confirmRefactorings:true |
|
2578 |
UserPreferences current confirmRefactorings:false |
|
2579 |
" |
|
2580 |
||
2581 |
"Created: / 04-04-2012 / 14:02:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2582 |
! ! |
|
2583 |
||
2584 |
!UserPreferences methodsFor:'accessing-pref''d tools'! |
|
2585 |
||
2586 |
fileBrowserClass |
|
2587 |
| class className | |
|
2588 |
||
2589 |
className := self at: #fileBrowserClassName ifAbsent:[nil]. |
|
2590 |
className notNil ifTrue:[ |
|
2591 |
class := Smalltalk at: className asSymbol. |
|
2592 |
class notNil ifTrue:[ ^ class ]. |
|
2593 |
]. |
|
2594 |
||
2595 |
"/ Old code |
|
2596 |
self useNewFileBrowser ifTrue:[ |
|
2597 |
^ (FileBrowserV2 ? FileBrowser) |
|
2598 |
]. |
|
2599 |
^ FileBrowser |
|
2600 |
||
2601 |
"Modified: / 03-04-2012 / 10:59:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2602 |
! ! |
|
2603 |
||
2604 |
!UserPreferences methodsFor:'accessing-pref''d tools'! |
|
2605 |
||
2606 |
fileBrowserClass: aClass |
|
2607 |
||
2608 |
self at: #fileBrowserClassName put: aClass name. |
|
2609 |
||
2610 |
" |
|
2611 |
UserPreferences current fileBrowserClass |
|
2612 |
UserPreferences current fileBrowserClass: FileBrowser. |
|
2613 |
UserPreferences current fileBrowserClass: FileBrowserV2. |
|
2614 |
" |
|
2615 |
||
2616 |
"Created: / 03-04-2012 / 10:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2617 |
! ! |
|
2618 |
||
2619 |
!UserPreferences methodsFor:'accessing-pref''d tools'! |
|
2620 |
||
2621 |
fileBrowserClassName |
|
2622 |
||
2623 |
^ self |
|
2624 |
at: #fileBrowserClassName |
|
2625 |
ifAbsent:[self fileBrowserClass name]."/Backward comparibility |
|
2626 |
||
2627 |
"Created: / 03-04-2012 / 11:01:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2628 |
! ! |
|
2629 |
||
2630 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
|
2631 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2632 |
showBookmarkBar |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2633 |
"experimental." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2634 |
|
11989 | 2635 |
^ self at:#showBookmarkBar ifAbsent: false "true". |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2636 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2637 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2638 |
UserPreferences current showBookmarkBar |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2639 |
UserPreferences current showBookmarkBar:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2640 |
UserPreferences current showBookmarkBar:false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2641 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2642 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2643 |
"Created: / 18-05-2011 / 16:48:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2644 |
"Modified: / 03-06-2011 / 11:01:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2645 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2646 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2647 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2648 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2649 |
showBookmarkBar: aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2650 |
"experimental." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2651 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2652 |
^ self at:#showBookmarkBar put: aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2653 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2654 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2655 |
UserPreferences current showBookmarkBar |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2656 |
UserPreferences current showBookmarkBar:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2657 |
UserPreferences current showBookmarkBar:false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2658 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2659 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2660 |
"Created: / 18-05-2011 / 17:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2661 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2662 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2663 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2664 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2665 |
showEmbeddedTestRunnerInBrowser |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2666 |
"experimental." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2667 |
|
12051 | 2668 |
^ self at:#showEmbeddedTestRunnerInBrowser ifAbsent:true |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2669 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2670 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2671 |
UserPreferences current showEmbeddedTestRunnerInBrowser |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2672 |
UserPreferences current showEmbeddedTestRunnerInBrowser:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2673 |
UserPreferences current showEmbeddedTestRunnerInBrowser:false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2674 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2675 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2676 |
"Created: / 11-03-2010 / 10:11:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2677 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2678 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2679 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2680 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2681 |
showEmbeddedTestRunnerInBrowser:aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2682 |
"experimental." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2683 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2684 |
^ self at:#showEmbeddedTestRunnerInBrowser put:aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2685 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2686 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2687 |
UserPreferences current showEmbeddedTestRunnerInBrowser:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2688 |
UserPreferences current showEmbeddedTestRunnerInBrowser:false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2689 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2690 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2691 |
"Created: / 11-03-2010 / 10:11:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2692 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2693 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2694 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2695 |
|
10240 | 2696 |
showGlobalHistory |
11676 | 2697 |
"Whether to show global history in the browser" |
10240 | 2698 |
|
2699 |
^ self at:#showGlobalHistory ifAbsent: true. |
|
2700 |
||
2701 |
" |
|
2702 |
UserPreferences current showGlobalHistory |
|
2703 |
UserPreferences current showGlobalHistory:true |
|
2704 |
UserPreferences current showGlobalHistory:false |
|
2705 |
" |
|
2706 |
||
2707 |
"Created: / 07-07-2011 / 00:03:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
11676 | 2708 |
"Modified (comment): / 26-07-2012 / 16:35:54 / cg" |
10240 | 2709 |
! ! |
2710 |
||
2711 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
|
2712 |
||
2713 |
showGlobalHistory: aBoolean |
|
11676 | 2714 |
"Whether to show global history in the browser" |
10240 | 2715 |
|
2716 |
^ self at:#showGlobalHistory put: aBoolean |
|
2717 |
||
2718 |
" |
|
2719 |
UserPreferences current showGlobalHistory |
|
2720 |
UserPreferences current showGlobalHistory:true |
|
2721 |
UserPreferences current showGlobalHistory:false |
|
2722 |
" |
|
2723 |
||
2724 |
"Created: / 07-07-2011 / 00:02:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
11676 | 2725 |
"Modified (comment): / 26-07-2012 / 16:35:57 / cg" |
10240 | 2726 |
! ! |
2727 |
||
2728 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
|
2729 |
||
2730 |
showLocalHistory |
|
11676 | 2731 |
"Whether to show local (per tab) history in the browser" |
10240 | 2732 |
|
2733 |
^ self at:#showLocalHistory ifAbsent: true. |
|
2734 |
||
2735 |
" |
|
2736 |
UserPreferences current showLocalHistory |
|
2737 |
UserPreferences current showLocalHistory:true |
|
2738 |
UserPreferences current showLocalHistory:false |
|
2739 |
" |
|
2740 |
||
2741 |
"Created: / 07-07-2011 / 00:02:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
11676 | 2742 |
"Modified (comment): / 26-07-2012 / 16:35:31 / cg" |
10240 | 2743 |
! ! |
2744 |
||
2745 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
|
2746 |
||
2747 |
showLocalHistory: aBoolean |
|
11676 | 2748 |
"Whether to show local (per tab) history in the browser" |
10240 | 2749 |
|
2750 |
^ self at:#showLocalHistory put: aBoolean |
|
2751 |
||
2752 |
" |
|
2753 |
UserPreferences current showLocalHistory |
|
2754 |
UserPreferences current showLocalHistory:true |
|
2755 |
UserPreferences current showLocalHistory:false |
|
2756 |
" |
|
2757 |
||
2758 |
"Created: / 07-07-2011 / 00:02:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
11676 | 2759 |
"Modified (comment): / 26-07-2012 / 16:35:41 / cg" |
10240 | 2760 |
! ! |
2761 |
||
2762 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
|
2763 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2764 |
showMethodTemplate |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2765 |
"experimental." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2766 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2767 |
^ self at:#showMethodTemplate ifAbsent:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2768 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2769 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2770 |
UserPreferences current showMethodTemplate |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2771 |
UserPreferences current showMethodTemplate:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2772 |
UserPreferences current showMethodTemplate:false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2773 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2774 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2775 |
"Created: / 12-02-2010 / 12:06:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2776 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2777 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2778 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2779 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2780 |
showMethodTemplate:aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2781 |
"experimental." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2782 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2783 |
^ self at:#showMethodTemplate put:aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2784 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2785 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2786 |
UserPreferences current showMethodTemplate:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2787 |
UserPreferences current showMethodTemplate:false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2788 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2789 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2790 |
"Created: / 12-02-2010 / 12:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2791 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2792 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2793 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2794 |
|
10240 | 2795 |
sortAndIndentClassesByInheritance |
2796 |
||
2797 |
^ self at:#sortAndIndentClassesByInheritance ifAbsent: false |
|
2798 |
||
2799 |
" |
|
2800 |
UserPreferences current sortAndIndentClassesByInheritance |
|
2801 |
UserPreferences current sortAndIndentClassesByInheritance:true |
|
2802 |
UserPreferences current sortAndIndentClassesByInheritance:false |
|
2803 |
" |
|
2804 |
||
2805 |
"Created: / 06-07-2011 / 19:09:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2806 |
! ! |
|
2807 |
||
2808 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
|
2809 |
||
2810 |
sortAndIndentClassesByInheritance: aBoolean |
|
2811 |
||
2812 |
^ self at:#sortAndIndentClassesByInheritance put: aBoolean |
|
2813 |
||
2814 |
" |
|
2815 |
UserPreferences current sortAndIndentClassesByInheritance |
|
2816 |
UserPreferences current sortAndIndentClassesByInheritance:true |
|
2817 |
UserPreferences current sortAndIndentClassesByInheritance:false |
|
2818 |
" |
|
2819 |
||
2820 |
"Created: / 06-07-2011 / 19:09:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2821 |
! ! |
|
2822 |
||
10779 | 2823 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
2824 |
||
2825 |
sourceCodeManagementMenuLayout |
|
2826 |
||
2827 |
"Defines the layout of source code management menus in |
|
2828 |
NewSystemBrowser. Can be one of: |
|
2829 |
#old - old style as of 2011-10-06 |
|
2830 |
#compact - only one Repository menu, SCM specific menus underneath |
|
2831 |
#inline - Repository and then SCM specific menus inlined |
|
2832 |
" |
|
2833 |
||
14243
3714e667cd67
class: AbstractSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14071
diff
changeset
|
2834 |
^ self at:#sourceCodeManagementMenuLayout ifAbsent: #inline "/ #old |
10779 | 2835 |
|
2836 |
" |
|
2837 |
UserPreferences current sourceCodeManagementMenuLayout |
|
2838 |
UserPreferences current sourceCodeManagementMenuLayout: #inline |
|
2839 |
UserPreferences current sourceCodeManagementMenuLayout: #compact |
|
2840 |
UserPreferences current sourceCodeManagementMenuLayout: #old |
|
2841 |
" |
|
2842 |
||
2843 |
"Created: / 06-10-2011 / 18:42:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2844 |
! ! |
|
2845 |
||
2846 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
|
2847 |
||
2848 |
sourceCodeManagementMenuLayout: aSymbol |
|
2849 |
||
2850 |
"Defines the layout of source code management menus in |
|
2851 |
NewSystemBrowser. Can be one of: |
|
2852 |
#old - old style as of 2011-10-06 |
|
2853 |
#compact - only one Repository menu, SCM specific menus underneath |
|
2854 |
#inline - Repository and then SCM specific menus inlined |
|
2855 |
" |
|
2856 |
self assert: (#(old compact inline) includes: aSymbol). |
|
2857 |
||
2858 |
^ self at:#sourceCodeManagementMenuLayout put: aSymbol |
|
2859 |
||
2860 |
" |
|
2861 |
UserPreferences current sourceCodeManagementMenuLayout |
|
2862 |
UserPreferences current sourceCodeManagementMenuLayout: #inline |
|
2863 |
UserPreferences current sourceCodeManagementMenuLayout: #compact |
|
2864 |
UserPreferences current sourceCodeManagementMenuLayout: #old |
|
2865 |
" |
|
2866 |
||
2867 |
"Created: / 06-10-2011 / 18:44:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2868 |
! ! |
|
2869 |
||
10399 | 2870 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
2871 |
||
2872 |
useCodeView2In: appSymbol |
|
12356 | 2873 |
"no longer used - will vanish. |
2874 |
Now the use of the codeView2 is globally enabled/disabled by useCodeView2InTools" |
|
2875 |
||
2876 |
^self useCodeView2InTools "/ or:[self perform: ('useCodeView2In' , appSymbol) asSymbol]. |
|
10399 | 2877 |
|
2878 |
||
2879 |
" |
|
2880 |
UserPreferences current useCodeView2In: #Browser |
|
2881 |
UserPreferences current useCodeView2InBrowser:true |
|
2882 |
UserPreferences current useCodeView2InBrowser:false |
|
2883 |
||
2884 |
UserPreferences current useCodeView2InTools:true |
|
2885 |
UserPreferences current useCodeView2InTools:false |
|
2886 |
" |
|
2887 |
||
2888 |
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2889 |
"Created: / 26-07-2011 / 10:26:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2890 |
! ! |
|
2891 |
||
2892 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
|
2893 |
||
2894 |
useCodeView2InBrowser |
|
12356 | 2895 |
"no longer used - will vanish. |
2896 |
Now the use of the codeView2 is globally enabled/disabled by useCodeView2InTools" |
|
2897 |
||
2898 |
<resource: #obsolete> |
|
10399 | 2899 |
^self at:#useCodeView2InBrowser ifAbsent: false |
2900 |
||
2901 |
" |
|
2902 |
UserPreferences current useCodeView2InBrowser |
|
2903 |
UserPreferences current useCodeView2InBrowser:true |
|
2904 |
UserPreferences current useCodeView2InBrowser:false" |
|
2905 |
||
2906 |
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2907 |
"Created: / 26-07-2011 / 10:22:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2908 |
! ! |
|
2909 |
||
2910 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
|
2911 |
||
2912 |
useCodeView2InBrowser: aBoolean |
|
12356 | 2913 |
"no longer used - will vanish. |
2914 |
Now the use of the codeView2 is globally enabled/disabled by useCodeView2InTools" |
|
2915 |
||
2916 |
<resource: #obsolete> |
|
10399 | 2917 |
^self at:#useCodeView2InBrowser put: aBoolean |
2918 |
||
2919 |
" |
|
2920 |
UserPreferences current useCodeView2InBrowser |
|
2921 |
UserPreferences current useCodeView2InBrowser:true |
|
2922 |
UserPreferences current useCodeView2InBrowser:false" |
|
2923 |
||
2924 |
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2925 |
"Created: / 26-07-2011 / 10:21:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2926 |
! ! |
|
2927 |
||
2928 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
|
2929 |
||
2930 |
useCodeView2InDebugger |
|
12356 | 2931 |
"no longer used - will vanish. |
2932 |
Now the use of the codeView2 is globally enabled/disabled by useCodeView2InTools" |
|
2933 |
||
2934 |
<resource: #obsolete> |
|
10399 | 2935 |
^self at:#useCodeView2InDebugger ifAbsent: false |
2936 |
||
2937 |
" |
|
2938 |
UserPreferences current useCodeView2InDebugger |
|
2939 |
UserPreferences current useCodeView2InDebugger:true |
|
2940 |
UserPreferences current useCodeView2InDebugger:false |
|
2941 |
" |
|
2942 |
||
2943 |
"Created: / 26-07-2011 / 10:22:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2944 |
! ! |
|
2945 |
||
2946 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
|
2947 |
||
2948 |
useCodeView2InDebugger: aBoolean |
|
12356 | 2949 |
"no longer used - will vanish. |
2950 |
Now the use of the codeView2 is globally enabled/disabled by useCodeView2InTools" |
|
2951 |
||
2952 |
<resource: #obsolete> |
|
10399 | 2953 |
^self at:#useCodeView2InDebugger put: aBoolean |
2954 |
||
2955 |
" |
|
2956 |
UserPreferences current useCodeView2InDebugger |
|
2957 |
UserPreferences current useCodeView2InDebugger:true |
|
2958 |
UserPreferences current useCodeView2InDebugger:false" |
|
2959 |
||
2960 |
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2961 |
"Created: / 26-07-2011 / 10:22:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2962 |
! ! |
|
2963 |
||
2964 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
|
10240 | 2965 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2966 |
useCodeView2InTools |
11989 | 2967 |
^self at:#useCodeView2InTools ifAbsent:true "false" |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2968 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2969 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2970 |
UserPreferences current useCodeView2InTools |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2971 |
UserPreferences current useCodeView2InTools:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2972 |
UserPreferences current useCodeView2InTools:false" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2973 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2974 |
"Created: / 12-02-2010 / 12:13:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2975 |
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2976 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2977 |
|
10399 | 2978 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2979 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2980 |
useCodeView2InTools:aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2981 |
^self at:#useCodeView2InTools put:aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2982 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2983 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2984 |
UserPreferences current useCodeView2InBrowser:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2985 |
UserPreferences current useCodeView2InBrowser:false" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2986 |
"Created: / 12-02-2010 / 12:14:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2987 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
2988 |
|
10399 | 2989 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
2990 |
||
2991 |
useCodeView2InWorkspace |
|
12356 | 2992 |
"no longer used - will vanish. |
2993 |
Now the use of the codeView2 is globally enabled/disabled by useCodeView2InTools" |
|
2994 |
||
2995 |
<resource: #obsolete> |
|
10399 | 2996 |
^self at:#useCodeView2InWorkspace ifAbsent: false |
2997 |
||
2998 |
" |
|
2999 |
UserPreferences current useCodeView2InWorkspace |
|
3000 |
UserPreferences current useCodeView2InWorkspace:true |
|
3001 |
UserPreferences current useCodeView2InWorkspace:false |
|
3002 |
" |
|
3003 |
||
3004 |
"Created: / 26-07-2011 / 10:23:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
3005 |
! ! |
|
3006 |
||
3007 |
!UserPreferences methodsFor:'accessing-prefs-code view'! |
|
3008 |
||
3009 |
useCodeView2InWorkspace: aBoolean |
|
12356 | 3010 |
"no longer used - will vanish. |
3011 |
Now the use of the codeView2 is globally enabled/disabled by useCodeView2InTools" |
|
3012 |
||
3013 |
<resource: #obsolete> |
|
10399 | 3014 |
^self at:#useCodeView2InWorkspace put: aBoolean |
3015 |
||
3016 |
" |
|
3017 |
UserPreferences current useCodeView2InWorkspace |
|
3018 |
UserPreferences current useCodeView2InWorkspace:true |
|
3019 |
UserPreferences current useCodeView2InWorkspace:false |
|
3020 |
" |
|
3021 |
||
3022 |
"Created: / 26-07-2011 / 10:22:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
3023 |
! ! |
|
3024 |
||
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3025 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3026 |
|
10417
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3027 |
useInPlaceSearchInBrowserLists |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3028 |
|
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3029 |
^ self at:#useInPlaceSearchInBrowserLists ifAbsent: false |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3030 |
|
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3031 |
" |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3032 |
UserPreferences current useInPlaceSearchInBrowserLists |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3033 |
UserPreferences current useInPlaceSearchInBrowserLists:true |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3034 |
UserPreferences current useInPlaceSearchInBrowserLists:false |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3035 |
" |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3036 |
|
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3037 |
"Created: / 28-07-2011 / 09:34:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3038 |
! ! |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3039 |
|
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3040 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3041 |
|
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3042 |
useInPlaceSearchInBrowserLists: aBoolean |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3043 |
|
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3044 |
^ self at:#useInPlaceSearchInBrowserLists put: aBoolean |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3045 |
|
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3046 |
" |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3047 |
UserPreferences current useInPlaceSearchInBrowserLists |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3048 |
UserPreferences current useInPlaceSearchInBrowserLists:true |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3049 |
UserPreferences current useInPlaceSearchInBrowserLists:false |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3050 |
" |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3051 |
|
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3052 |
"Created: / 28-07-2011 / 09:35:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3053 |
! ! |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3054 |
|
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3055 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
f785ac3d937b
Added preference for in-line search in browser lists
vrany
parents:
10399
diff
changeset
|
3056 |
|
10051
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3057 |
webBrowserLikeLayout |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3058 |
"experimental." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3059 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3060 |
^ self at:#webBrowserLikeLayout ifAbsent: false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3061 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3062 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3063 |
UserPreferences current webBrowserLikeLayout |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3064 |
UserPreferences current webBrowserLikeLayout:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3065 |
UserPreferences current webBrowserLikeLayout:false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3066 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3067 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3068 |
"Created: / 07-06-2011 / 14:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3069 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3070 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3071 |
!UserPreferences methodsFor:'accessing-prefs-browser'! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3072 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3073 |
webBrowserLikeLayout: aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3074 |
"experimental." |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3075 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3076 |
^ self at:#webBrowserLikeLayout put: aBoolean |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3077 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3078 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3079 |
UserPreferences current webBrowserLikeLayout |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3080 |
UserPreferences current webBrowserLikeLayout:true |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3081 |
UserPreferences current webBrowserLikeLayout:false |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3082 |
" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3083 |
|
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3084 |
"Created: / 07-06-2011 / 14:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3085 |
! ! |
5b7e30460ea4
support non-class based code completion
Claus Gittinger <cg@exept.de>
parents:
9691
diff
changeset
|
3086 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
3087 |
!Warning class methodsFor:'misc ui support'! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
3088 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
3089 |
iconInBrowserSymbol |
16117
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
3090 |
"the browser will use this as index into the toolbariconlibrary" |
21ab45dc4c31
comment/format in: #iconInBrowserSymbol
Claus Gittinger <cg@exept.de>
parents:
16098
diff
changeset
|
3091 |
|
15541
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
3092 |
<resource: #programImage> |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
3093 |
|
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
3094 |
^ #warningClassBrowserIcon |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
3095 |
! ! |
982ce96f4910
some ui support methods are extensions
Claus Gittinger <cg@exept.de>
parents:
15461
diff
changeset
|
3096 |
|
8919 | 3097 |
!stx_libtool class methodsFor:'documentation'! |
3098 |
||
16684 | 3099 |
extensionsVersion_CVS |
3100 |
^ '$Header$' |
|
12543 | 3101 |
! ! |
16704 | 3102 |