"{ Package: 'stx:libtool' }"!

!AbstractSyntaxHighlighter class methodsFor:'api highlighting'!

formatExpression:aString in:aClass elementsInto: elements

    ^self formatExpression:aString in:aClass

    "Created: / 25-07-2010 / 08:57:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AbstractSyntaxHighlighter class methodsFor:'api highlighting'!

formatMethod:aString in:aClass using:preferencesOrNil elementsInto: elements

    ^self formatMethod:aString in:aClass using:preferencesOrNil

    "Created: / 25-07-2010 / 08:58:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Breakpoint methodsFor:'accessing'!

icon

    ^description icon

    "Created: / 11-07-2011 / 18:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BreakpointDescription methodsFor:'accessing'!

icon

    "do not use abbreviations like bpnt or brp or similar;

     when I do not know the exact name, I tend to search for implementors/senders

     of '*break*' or '*disabled*'.

     I will not find anything useful and have to single step if methods are named

     cryptically."

    condition isNil ifTrue:[

        state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointRedEnabled16x16].

        state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointRedDisabled16x16].

    ] ifFalse:[

        state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointBlueEnabled16x16].

        state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointBlueDisabled16x16].

    ].

    ^nil

    "Created: / 28-06-2011 / 08:29:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 06-07-2011 / 14:40:46 / cg"

! !

!ByteArray methodsFor:'inspecting'!

inspectorExtraAttributes

    "extra (pseudo instvar) entries to be shown in an inspector."

    ^ Dictionary new

        declareAllNewFrom:(super inspectorExtraAttributes ? #());

        add:'-hexstring' -> [ self hexPrintString "WithSeparator:Character space" ];

        add:'-hexadecimal' ->

            [

                String

                    streamContents:[:s |

                        self class isWords ifTrue:[

                            self asWordArray printOn:s base:16 showRadix:true

                        ] ifFalse:[

                            self class isLongs ifTrue:[

                                self asLongIntegerArray printOn:s base:16 showRadix:true

                            ] ifFalse:[

                                self asByteArray printOn:s base:16 showRadix:true

                            ]

                        ]

                    ]

            ];

        yourself

    "Created: / 18-09-2006 / 21:29:59 / cg"

    "Modified: / 06-10-2006 / 13:57:20 / cg"

! !

!Change methodsFor:'private'!

flattenOnto: aCollection 

	aCollection add: self

! !

!Change methodsFor:'private'!

flattenedChanges

	| changes |

	changes := OrderedCollection new.

	self flattenOnto: changes.

	^changes

! !

!Change methodsFor:'accessing'!

removed

    ^(self objectAttributeAt: #removed) ? false

    "Created: / 24-10-2009 / 21:10:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Change methodsFor:'accessing'!

removed: aBoolean

    ^self objectAttributeAt: #removed put: aBoolean

    "Created: / 24-10-2009 / 21:11:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSet methodsFor:'utilities'!

condenseChangesForRemoved

    "remove all changes which has been removed (marked for removal

     by aChange removed: true)"

    |changesToRemove|

    changesToRemove := self select:[:aChange | 

        aChange isCompositeChange ifTrue:

            [aChange condenseChangesForRemoved].        

        aChange removed

    ].

    self condenseChanges:changesToRemove

    "Created: / 05-11-2001 / 14:21:17 / cg"

    "Modified: / 12-10-2006 / 16:51:27 / cg"

! !

!ChangeSet methodsFor:'private'!

flattenOnto: aCollection 

    self do:[:change|change flattenOnto: aCollection]

! !

!ChangeSet methodsFor:'private'!

flattenedChanges

	| changes |

	changes := OrderedCollection new.

	self flattenOnto: changes.

	^changes

! !

!ChangeSet methodsFor:'debugging support'!

inspector2TabBrowser

    ^self newInspector2Tab

        label: 'Changes';    

        priority: 75;

! !

!ChangeSet methodsFor:'inspecting'!

inspector2Tabs

    ^ #( inspector2TabCommon inspector2TabBrowser )

    "Created: / 05-07-2011 / 13:40:19 / cg"

! !

!Character methodsFor:'inspecting'!

inspectorExtraAttributes

    "extra (pseudo instvar) entries to be shown in an inspector."

    ^ Dictionary new

	declareAllNewFrom:(super inspectorExtraAttributes ? #());

	add:'-hexValue' -> [ self codePoint radixPrintStringRadix:16 ];

	add:'-string' -> [ self stringSpecies with:self ];

	add:'-utf8String' -> [ self utf8Encoded ];

	add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ];

	yourself

    "

     $a inspect

    "

    "Created: / 22-10-2006 / 03:52:20 / cg"

! !

!CharacterArray methodsFor:'inspecting'!

inspector2TabText

    ^self newInspector2Tab

        label: 'String';

        priority: 75;

        view: ((ScrollableView for:TextView) contents: self; yourself)

    "Created: / 17-02-2008 / 10:10:50 / janfrog"

! !

!CharacterArray methodsFor:'inspecting'!

inspector2Tabs

    ^ #( inspector2TabCommon inspector2TabText inspector2TabBytes )

    "Created: / 05-07-2011 / 13:40:27 / cg"

! !

!CharacterArray methodsFor:'inspecting'!

inspectorExtraAttributes

    "extra (pseudo instvar) entries to be shown in an inspector."

    |d|

    d := Dictionary new

	declareAllNewFrom:(super inspectorExtraAttributes ? #());

	add:'-utf8String' -> [ self utf8Encoded ];

	add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ];

	yourself.

    HTMLUtilities notNil ifTrue:[

	d add:'-html' -> [ HTMLUtilities escapeCharacterEntities:self ].

    ].

    ^ d

    "

     'aou' inspect

    "

    "Created: / 22-10-2006 / 03:52:20 / cg"

! !

!Collection methodsFor:'inspecting'!

inspectorExtraAttributes

    "extra (pseudo instvar) entries to be shown in an inspector."

    ^ Dictionary new

	declareAllNewFrom:(super inspectorExtraAttributes ? #());

	add:('-size' -> [ self size ]);

	yourself

    "

     'hello' inspect

    "

    "Created: / 06-10-2006 / 13:56:52 / cg"

    "Modified: / 06-10-2006 / 17:43:45 / cg"

! !

!Color methodsFor:'inspecting'!

inspectorClass

    "return the class of an appropriate inspector.

     ST/X has a specialized ColorInspectorView for that"

    ^ ColorInspectorView

    "Modified: 23.4.1996 / 13:39:50 / cg"

! !

!Color methodsFor:'inspecting'!

inspectorExtraAttributes

    "extra (pseudo instvar) entries to be shown in an inspector."

    ^ Dictionary new

	declareAllNewFrom:(super inspectorExtraAttributes ? #());

	add:'-rgb' -> [ self rgbValue hexPrintString ];

	add:'-html' -> [ self htmlPrintString ];

	yourself

    "

     Color red inspect

    "

! !

!CompositeChange methodsFor:'utilities'!

condenseChangesForRemoved

    self changes condenseChangesForRemoved

! !

!CompositeChange methodsFor:'private'!

flattenOnto: aCollection

    changes do:[:change|change flattenOnto: aCollection]

! !

!CompositeChange methodsFor:'accessing'!

removed

    ^changes allSatisfy: [:e|e removed]

! !

!CompositeChange methodsFor:'accessing'!

removed: aBoolean

    changes do:[:e|e removed: aBoolean]

! !

!Date methodsFor:'inspecting'!

inspectorExtraAttributes

    "extra (pseudo instvar) entries to be shown in an inspector."

    ^ Dictionary new

        declareAllNewFrom:(super inspectorExtraAttributes ? #());

        add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self dayOfWeekName , '"' ];

        add:'-dayInYear' -> [ self dayInYear ];

        add:'-daysInMonth' -> [ self daysInMonth ];

        add:'-monthName' -> [ self monthName ];

        add:'-leapYear' -> [ self isLeapYear ];

        yourself

    "

     Date today inspect

    "

    "Created: / 20-01-2011 / 12:19:05 / cg"

! !

!Dictionary methodsFor:'inspecting'!

inspector2TabLabel

    ^ 'Dictionary'

    "Created: / 14-07-2011 / 11:57:18 / cg"

! !

!Dictionary methodsFor:'inspecting'!

inspectorClass

    "redefined to use DictionaryInspector

     (instead of the default Inspector)."

    ^ DictionaryInspectorView

! !

!EditTextView methodsFor:'accessing-dimensions'!

absoluteXOfPosition:positionInText 

    |accumulatedX container|

    accumulatedX := 0.

    container := self.

    [ container notNil ] whileTrue:[

        accumulatedX := accumulatedX + container origin x.

        container := container isTopView ifFalse:[

                    container container

                ] ifTrue:[ nil ].

    ].

    ^ (self xOfPosition:positionInText) + accumulatedX

    "Created: / 16-02-2010 / 10:05:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!EditTextView methodsFor:'accessing-dimensions'!

absoluteYOfCursor

    | accumulatedY container |

    accumulatedY := 0.

    container := self.

    [ container notNil ] whileTrue:[

        accumulatedY := accumulatedY + container origin y.

        container := container isTopView 

            ifFalse:[container container]

            ifTrue:[nil].

    ].

    ^(self yOfCursor) + accumulatedY

    "Created: / 27-05-2005 / 07:45:53 / janfrog"

    "Modified: / 27-05-2005 / 23:03:40 / janfrog"

! !

!EditTextView methodsFor:'accessing-dimensions'!

xOfPosition: positionInText

    | line col |

    line := self lineOfCharacterPosition: positionInText.

    col  := positionInText - (self characterPositionOfLine:line col:1) + 1.

    ^

        (self xOfCol:col inVisibleLine:(self listLineToVisibleLine: line))

            - viewOrigin x.

    "Created: / 16-02-2010 / 10:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!EditTextView methodsFor:'accessing-dimensions'!

yOfCursor

    ^self yOfVisibleLine:cursorVisibleLine.

    "Created: / 27-05-2005 / 07:43:41 / janfrog"

! !

!EditTextView methodsFor:'accessing-dimensions'!

yOfPosition: positionInText

    | line |

    line := self lineOfCharacterPosition: positionInText.

    ^self yOfVisibleLine:(self listLineToVisibleLine: line)

    "Created: / 16-02-2010 / 10:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ExecutableFunction methodsFor:'printing & storing'!

printStringForBrowserWithSelector:selector

    "return a printString to represent myself to the user in a browser."

    ^ self printStringForBrowserWithSelector:selector inClass:nil

! !

!Form methodsFor:'inspecting'!

inspectorClass

    "redefined to launch an ImageInspector

     (instead of the default InspectorView)."

    ^ ImageInspectorView

! !

!GenericToolbarIconLibrary class methodsFor:'image specs-22x22'!

bookmarks22x22

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self bookmarks22x22 inspect

     ImageEditor openOnClass:self andSelector:#bookmarks22x22

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'GenericToolbarIconLibrary class bookmarks22x22'

        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

????????????????????????????????????????????????????????????????????????LT;??????????????????????????6BAD/??????????????

?????????16L''"+???????????????????????<7''95Y????????????????????????YI2[_!!C?????????????????????GXZZ&Y\0????????????I$YF

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

SF9,Z6]#WU!!SQBW??????????????1YWXU9ZTT5IP2K???????????????<)V5IOR$\>NS (????????????????M$-HP#,3KB\ZE07?????????????GST<

MB4$GATNB0(]?????????????142J18[@O<RC0XCD?????????????<!!H1$G?????1@T@ $H????????????G2@D?????????14L????????????????????

?????????????????????????????????????????????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]

    "Modified: / 05-05-2011 / 12:45:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GenericToolbarIconLibrary class methodsFor:'image specs-16x16'!

bug16x16Icon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self bug16x16Icon inspect

     ImageEditor openOnClass:self andSelector:#bug16x16Icon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'GenericToolbarIconLibrary class bug16x16Icon'

        ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

???????????????????????????????????????????????????3R/??????????????????O"_???????????????????7=?#J1???????????=???=IBP$

?_????????????7=W5=_W5?=O/7???????>L?PLC@0LC?_????????7=/4S[7S 8TY/=?VC?????L#L.>JI3I+A%H#[?????GA3_]U*/M3_;BPRLD_????7=

?_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]

! !

!GenericToolbarIconLibrary class methodsFor:'image specs-24x24'!