hg/stx-libtool: comparison DebugView.st

equal deleted inserted replaced

-:dc5e958a20dc
+:cf319f2e56d0
 setLabelFor:aMessage in:aProcess
 |l lines processNameOrNil pidOrNil osPidString|
 lines := aMessage asStringCollection.
 lines size > 1 ifTrue:[
-	l := lines first
+l := lines first
 ] ifFalse:[
-	l := aMessage.
+l := aMessage.
 ].
 l := l , ' ('.
 Error handle:[:ex |
-	l := l , '???'
+l := l , '???'
 ] do:[
-	processNameOrNil := aProcess name.
+processNameOrNil := aProcess name.
-	processNameOrNil notNil ifTrue:[
+processNameOrNil notNil ifTrue:[
-	    l := l , (processNameOrNil contractTo:20) , ''.
+l := l , (processNameOrNil contractTo:20) , ''.
-	].
+].
-	pidOrNil := aProcess id printString.
+pidOrNil := aProcess id printString.
-	l := l , '[' , pidOrNil , ']'.
+l := l , '[' , pidOrNil , ']'.
 ].
 l := l , ')'.
 self label:l.
 ((ShowThreadID == true) and:[OperatingSystem isMSDOSlike]) ifTrue:[
-	osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'.
+osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'.
 ].
 exceptionInfoLabel notNil ifTrue:[
-	exceptionInfoLabel
+exceptionInfoLabel
-	    label:(resources
+label:(resources
-		    string:'%1 in process %2 [%3]%4'
+string:'%1 in process %2 [%3]%4'
-		    with:(lines first colorizeAllWith:Color red)
+with:(lines first withColor:#red)
-		    with:(processNameOrNil ? '')
+with:(processNameOrNil ? '')
-		    with:(pidOrNil ? '')
+with:(pidOrNil ? '')
-		    with:(osPidString ? ''))
+with:(osPidString ? ''))
 ].
 "Modified: / 06-07-2006 / 12:43:19 / cg"
 ! !
 !DebugView methodsFor:'private-context handling'!
 contextListEntryFor:aContext
 ^ Error
-	handle:[:ex | '???' ]
+handle:[:ex | '???' ]
-	do:[
+do:[
-	    |s|
+|s|
-	    aContext selector == #doIt ifTrue:[
+aContext selector == #doIt ifTrue:[
-		aContext receiver isNil ifTrue:[
+aContext receiver isNil ifTrue:[
-		    s := 'doIt' allBold
+s := 'doIt' allBold
-		]
+]
-	    ].
+].
-	    s := Text streamContents:[:s | aContext printOn:s ].
+s := Text streamContents:[:s | aContext printOn:s ].
-	    RememberedCallChain notNil ifTrue:[
+RememberedCallChain notNil ifTrue:[
-		(RememberedCallChain includesIdentical:aContext) ifTrue:[
+(RememberedCallChain includesIdentical:aContext) ifTrue:[
-		    s := s colorizeAllWith:(Color red).
+s := s withColor:#red.
-		].
+].
-	    ].
+].
-	    s
+s
-	].
+].
 "Created: / 21-05-2007 / 13:30:24 / cg"
 !
 is:aHomeContext inCallingChainOf:aContext
 ]
 ].
 "/                code ~= (codeView contents) ifTrue:[
 cannotAcceptDueToOutdatedClass ifTrue:[
-codeView setContents:(('Obsolete code (outdated due to class change). Use Browser.' colorizeAllWith:Color red),Character cr,Character cr,code asString).
+codeView setContents:(('Obsolete code (outdated due to class change). Use Browser.' withColor:Color red),Character cr,Character cr,code asString).
 ] ifFalse:[
 codeView setContents:code.
 ].
 "/                ].
 ].
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'!
 printConditionOn:aStream
 ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-	aStream nextPutAll:(' if called from %1 >> %2'
+aStream nextPutAll:(' if called from %1  %2'
-				bindWith:ignoredSendingClassAndSelectors first first
+bindWith:ignoredSendingClassAndSelectors first first
-				with:ignoredSendingClassAndSelectors first second).
+with:ignoredSendingClassAndSelectors first second).
-	^ self.
+^ self.
 ].
 ignoredProcesses notEmptyOrNil ifTrue:[
-	aStream nextPutAll:(' in %1 processes (%2)'
+aStream nextPutAll:(' in %1 processes (%2)'
-				bindWith:ignoredProcesses size
+bindWith:ignoredProcesses size
-				with:((ignoredProcesses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
+with:((ignoredProcesses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
-	^ self.
+^ self.
 ].
 ignoredReceiverClasses notNil ifTrue:[
-	aStream nextPutAll:(' for %1 classes (%2)'
+aStream nextPutAll:(' for %1 classes (%2)'
-			    bindWith:ignoredReceiverClasses size
+bindWith:ignoredReceiverClasses size
-			    with:((ignoredReceiverClasses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
+with:((ignoredReceiverClasses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
-	^ self.
+^ self.
 ].
 ignoreUntilShiftKeyPressed == true ifTrue:[
-	aStream nextPutAll:' until shiftKey pressed'.
+aStream nextPutAll:' until shiftKey pressed'.
-	^ self.
+^ self.
 ].
 ignoreEndTime notNil ifTrue:[
-	aStream nextPutAll:' until '.
+aStream nextPutAll:' until '.
-	ignoreEndTime printOn:aStream.
+ignoreEndTime printOn:aStream.
-	^ self.
+^ self.
 ].
 (ignoreCount notNil) ifTrue:[
-	(ignoreCount > 0) ifTrue:[
+(ignoreCount > 0) ifTrue:[
-	    aStream nextPutAll:' for '.
+aStream nextPutAll:' for '.
-	    ignoreCount printOn:aStream.
+ignoreCount printOn:aStream.
-	    ^ self.
+^ self.
-	].
+].
-	(ignoreCount < 0) ifTrue:[
+(ignoreCount < 0) ifTrue:[
-	    aStream nextPutAll:' forEver'.
+aStream nextPutAll:' forEver'.
-	    ^ self.
+^ self.
-	].
+].
-	aStream nextPutAll:' no longer'.
+aStream nextPutAll:' no longer'.
 ].
 ! !
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'queries'!

branch	jv
changeset 16571	cf319f2e56d0
parent 16445	6bc184e74f9c
parent 16535	71fe67678cae
child 16596	f111c3082dd1