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

!AbstractSyntaxHighlighter class methodsFor:'api highlighting'!

formatExpression:aString in:aClass elementsInto:elementsCollection

    ^self formatExpression:aString in:aClass

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

    "Modified (format): / 04-10-2011 / 19:47:20 / cg"

! !

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

! !

!ArrayedCollection methodsFor:'inspecting'!

inspector2TabForHexDump

    "a tab, showing a hex dump; defined here, so that both byteArrays and other bulk data

     containers can define it in their inspector2Tabs methods."

    |wrapper myByteSize v genDump baseAddress|

    myByteSize := self size * self class elementByteSize.

    wrapper := Plug new.

    wrapper respondTo:#size with:[ myByteSize ].

    wrapper respondTo:#at: with:[:byteIdx | self byteAt:byteIdx ].

    wrapper respondTo:#do: with:[:aBlock | 1 to:myByteSize 

                                            do:[:i |

                                                aBlock value:(self byteAt:i) 

                                            ].

                                ].

    baseAddress := 0.

    genDump := [

                    |dump|

                    v topView withWaitCursorDo:[

                        dump := AbstractFileBrowser 

                            contentsOfBytesAsHexDump:wrapper 

                            numberOfAddressDigits:(myByteSize hexPrintString size) 

                            addressStart:baseAddress.

                        v list:dump expandTabs:false scanForNonStrings:false includesNonStrings:false.

                    ].

               ].

    v := ScrollableView for:TextView. 

    genDump value.

    v scrolledView 

        menuHolder:

            [    

                |m| 

                m := v scrolledView editMenu.

                m addLabel:'-' selector:nil.

                m addLabel:'Change Base Address...' selector:#changeBase.

                m actionAt:#changeBase 

                    put:[ 

                        |s b|

                        s := Dialog request:'Base address (hex):' initialAnswer:(baseAddress printStringRadix:16).

                        s notEmptyOrNil ifTrue:[

                            b := Integer readFrom:s radix:16 onError:nil.

                            b notNil ifTrue:[

                                baseAddress := b. genDump value

                            ].

                        ].

                    ].

                m.

            ];

        menuMessage: #value.

    ^ Tools::Inspector2Tab new

            priority: 40;

            label:'Hexdump';

            view: v;

            yourself

    "Created: / 13-02-2012 / 15:08:42 / cg"

! !

!Autoload class methodsFor:'message catching'!

inspectorExtraAttributes

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

    ^ #()

! !

!Behavior methodsFor:'inspecting'!

inspectorExtraAttributes

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

    ^ super inspectorExtraAttributes

        add:(self isMeta

                ifFalse:[ '-meta' -> [ self theMetaclass ] ]

                ifTrue:[ '-nonMeta' -> [ self theNonMetaclass ] ]);

        yourself

! !

!Behavior methodsFor:'inspecting'!

inspectorValueStringInListFor:anInspector

    "returns a string to be shown in the inspector's list"

    |nm|

    (nm := self name) notEmptyOrNil ifTrue:[

        ^ nm

    ].

    ^ super inspectorValueStringInListFor:anInspector

! !

!Block methodsFor:'inspecting'!

inspectorExtraAttributes

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

    |d|

    d := super inspectorExtraAttributes.

    self homeMethod isNil ifTrue:[

        d

            add:'-code' -> 'no home method';

            add:'-source' -> 'no home method'.

    ] ifFalse:[

        d    

            add:'-code' -> [ String streamContents:[:s | self homeMethod decompileTo:s]];

            add:'-source' -> [ self homeMethod source].

    ].

    ^ d

    "Created: / 15-11-2011 / 14:24:10 / cg"

! !

!Boolean methodsFor:'inspecting'!

inspectorValueStringInListFor:anInspector

    "returns a string to be shown in the inspector's list"

    ^ self printString

! !

!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 breakpointRedEnabled].

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

        state == #tracing ifTrue:[^ ToolbarIconLibrary tracepointBlue].

    ] ifFalse:[

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

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

    ].

    ^nil

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

    "Modified: / 27-01-2012 / 13:46:23 / cg"

! !

!ByteArray methodsFor:'inspecting'!

inspectorExtraAttributes

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

    |basePrinter|

    basePrinter := 

        [:arr :b |

            String

                streamContents:[:s |

                    arr class isWords ifTrue:[

                        arr asWordArray printOn:s base:b showRadix:true

                    ] ifFalse:[

                        arr class isLongs ifTrue:[

                            arr asLongIntegerArray printOn:s base:b showRadix:true

                        ] ifFalse:[

                            arr asByteArray printOn:s base:b showRadix:true

                        ]

                    ]

                ]

        ].

    ^ super inspectorExtraAttributes

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

        add:'-hexadecimal' -> [ basePrinter value:self value:16 ];

        add:'-binary' -> [ basePrinter value:self value:2 ];

        yourself

! !

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

! !

!Character methodsFor:'inspecting'!

inspectorExtraAttributes

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

    ^ 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"

! !

!Character methodsFor:'inspecting'!

inspectorValueStringInListFor:anInspector

    "returns a string to be shown in the inspector's list"

    (asciivalue <= 16r7f) ifTrue:[

        ^ self storeString,(' "16r%1 %2"' bindWith:(asciivalue hexPrintString) with:asciivalue)

    ].

    ^ self storeString,(' "%1"' bindWith:asciivalue)

! !

!CharacterArray methodsFor:'inspecting'!

inspector2TabBytes

    ^self newInspector2Tab

        label: 'Bytes';

        priority: 25;

        view: ((ScrollableView for:EditTextView) 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>"

    "Modified: / 21-08-2011 / 07:32:57 / cg"

! !

!CharacterArray methodsFor:'inspecting'!

inspector2TabHTML

    ^self newInspector2Tab

        label: 'HTML';

        priority: 35;

        view: ((ScrollableView for:HTMLDocumentView) setText: self; yourself)

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

    "Created: / 07-11-2011 / 12:35:15 / cg"

! !

!CharacterArray methodsFor:'inspecting'!

inspector2TabText

    ^self newInspector2Tab

        label: 'String';

        priority: 50;

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

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

    "Modified: / 21-08-2011 / 08:02:57 / cg"

! !

!CharacterArray methodsFor:'inspecting'!

inspector2Tabs

    HTMLDocumentView notNil ifTrue:[

        (self startsWith:'<!!DOCTYPE html') ifTrue:[

            ^ #( inspector2TabCommon inspector2TabText inspector2TabBytes inspector2TabHTML )

        ].

    ].

    ^ #( 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 := 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"

! !

!CharacterArray methodsFor:'inspecting'!

inspectorValueStringInListFor:anInspector

    "returns a string to be shown in the inspector's list"

    ^ self basicStoreString contractTo:30.

! !

!Class methodsFor:'misc'!

inspectorClass

    "redefined to launch a ClassInspector, which knows about classVariables

     (instead of the default InspectorView)."

    ClassInspectorView notNil ifTrue:[

        ^ ClassInspectorView

    ].

    ^ super inspectorClass

! !

!Collection methodsFor:'inspecting'!

inspectorValueStringInListFor:anInspector

    "returns a string to be shown in the inspector's list"

    |sz|

    (sz := self size) == 0 ifTrue:[

        ^ 'empty ' , self className

    ].

    ^ (super inspectorValueStringInListFor:anInspector),' size=',sz printString

! !

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

    ^ super inspectorExtraAttributes

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

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

        yourself

    "

     Color red inspect

    "

! !

!Color methodsFor:'inspecting'!

inspectorValueStringInListFor:anInspector

    "returns a string to be shown in the inspector's list"

    ^ self htmlPrintString

! !

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

    ^ 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

    "