"{ 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;

        "JV@2011-08-06: Cannot do 'UserPreferences current changeSetBrowserClass'

         here since ChangeSetBrowser has no #on: and it is not an application model.

         Thus, enforce Tools::ChangeSetBrowser2 here..."

        application: ((Tools::ChangeSetBrowser2 on: self) beOneColumn; yourself)

    "Modified: / 25-07-2011 / 12:22:07 / sr"

    "Modified: / 06-08-2011 / 21:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!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'!

inspector2TabBytes

    ^self newInspector2Tab

        label: 'Bytes';

        priority: 25;

        view: ((ScrollableView for:TextView) contents: 

                (self asByteArray hexPrintStringWithSeparator:Character space); yourself)

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

    "Created: / 20-07-2011 / 16:36:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!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."