hg/stx-libtool: comparison InspectorView.st

equal deleted inserted replaced

-:235b77901045
+:4714b9640528
 [author:]
 Claus Gittinger
 "
 ! !
 !InspectorView class methodsFor:'instance creation'!
 for:anObject
 "create and launch a new inspector for anObject.
 This protocol is a historic leftover - this method will vanish."
 openOn:anObject withEvalPane:withEvalPane withLabel:aLabel
 ^ self openOn:anObject
 ! !
 !InspectorView class methodsFor:'common label support'!
 commonLabelFor:anObject
 "return the windowLabel to use in my topView, when inspecting anObject.
 Identical objects are labelled with the same id, which makes it easy to
 ].
 ^ s
 "Created: / 15-07-2011 / 16:20:06 / cg"
 ! !
 !InspectorView class methodsFor:'defaults'!
 defaultExtent
 ^ (Screen current usableExtent // 3)
 LastExtent := anExtent
 "Created: / 23-10-2007 / 19:10:02 / cg"
 ! !
 !InspectorView class methodsFor:'image specs'!
 imageFor_arrays
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(MB@ MB @@@@@@@@@@@@:K#@0F2(\N @@@@@@@@@-H0$IBP$I
 A18-@@@@@@@@MC@GI@$$IBP9HP@@@@@@@B@[J3DIIB0^K3 @@@@@@@@ MRT5BRP^K1<8@@@@@@@@MB0,I $$K2\"JP@@@@@@@B49G#$IIA<]H#H@@@@@@@@@
 M#L3NBH"H#\@@@@@@@@@@@@-JS 8JSH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 98 255 0 75 198 0 25 74 0 57 156 0 34 99 0 92 206 16 60 132 16 31 74 0 79 206 0 128 131 142 88 231 0 70 189 0 38 90 0 148 198 123 57 115 16 92 239 0 103 255 8 76 189 0 154 198 123 85 214 0 53 132 0 106 255 0 138 255 49 107 156 74 44 115 0 119 206 66 85 222 0 142 206 99 68 139 33 33 90 0 57 148 0 135 206 99]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
 ! !
 !InspectorView class methodsFor:'queries-plugin'!
 aspectSelectors
 ^ #( inspectedObjectHolder )
 "Modified: / 10.2.2000 / 12:25:28 / cg"
 ! !
 !InspectorView methodsFor:'accessing'!
 allowFollow:aBoolean
 "enable/disable the follow menu item;
 workspace
 ^ workspace
 ! !
 !InspectorView methodsFor:'accessing-channels'!
 inspectedObjectHolder
 inspectedObjectHolder isNil ifTrue:[
 inspectedObjectHolder := ValueHolder new.
 inspectedObjectHolder addDependent:self.
 ].
 "Created: / 10.2.2000 / 13:34:53 / cg"
 ! !
 !InspectorView methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 "Invoked when one of my dependees sends a change notification."
 "Created: / 10.2.2000 / 13:46:38 / cg"
 "Modified: / 10.2.2000 / 13:48:18 / cg"
 ! !
 !InspectorView methodsFor:'drag & drop'!
 getDisplayObjects
 ^List with:self selection printString
 ^List with:(DropObject new:self selection).
 "Created: / 16-08-2005 / 21:49:23 / janfrog"
 "Modified: / 18-09-2006 / 21:11:31 / cg"
 ! !
 !InspectorView methodsFor:'event handling'!
 doubleClickOnLine:lineNr
 |objectToInspect app|
 isStandaloneInspector == true ifTrue:[
 LastExtent := self topView extent.
 ].
 ! !
 !InspectorView methodsFor:'initialization & release'!
 destroy
 (self topView objectAttributeAt:#rememberExtent) == true ifTrue:[
 object isString ifTrue:[
 self showSelection:1    "/ the self-line
 ]
 ].
 ! !
 !InspectorView methodsFor:'menu'!
 fieldMenu
 "return the menu for the field-list"
 ifFalse:[ #('Alphabetical'  #setSortOrderToAlphabetical  ) ] .
 } select:[:el | el notNil].
 "Created: / 20-07-2012 / 10:47:53 / cg"
 ! !
 !InspectorView methodsFor:'menu actions'!
 browse
 |cls|
 "Created: / 6.2.2000 / 13:46:37 / cg"
 "Modified: / 6.2.2000 / 13:47:37 / cg"
 ! !
 !InspectorView methodsFor:'presentation'!
 appendDisplayStringForElementsOf:val indent:lvl pad:padding to:aStream
 val doWithIndex:[:el :idx |
 |elValString|
 "return the value's displayString to be pasted into the workspace."
 |s|
 Error handle:[:ex |
+(ex signal == WriteError and:[s isStream]) ifTrue:[
+"hit the write limit set below"
+s writeLimit:nil.
+s nextPutAll:' ...'.
+^ s contents.
+].
 s := someValue classNameWithArticle.
 displayStringMessage == #displayString ifTrue:[
 s := s , ' "error in displayString: ' , ex description , '"'
 ] ifFalse:[
 s := s , ' "error in displayString (' , displayStringMessage , '): ' , ex description , '"'
 ^ ' <',valString,'>'
 "Created: / 13-06-2012 / 12:04:31 / cg"
 ! !
 !InspectorView methodsFor:'private'!
 baseInspectedObjectClass
 ^ Object
 list := l collect:[:i | i printString].
 ].
 ^ list
 keysAndValuesCollect:[:idx :nm |
-| val |
+|val|
 [
 val := self indexedValueAtIndex:idx.
 ] on:Error do:[
-val := '** ERROR **'
+val := ''
 ].
 "/            [
 "/                val := object at:idx.
 "/            ] on:Error do:[
 "/                [
 "Created: / 31-10-2001 / 09:17:45 / cg"
 "Modified: / 06-06-2012 / 11:57:54 / cg"
 ! !
 !InspectorView methodsFor:'queries'!
 canInspect:anObject
 ^ anObject inspectorClass == self class
 !
 suppressPseudoSlots
 ^ suppressPseudoSlots ? false
 ! !
 !InspectorView methodsFor:'selection'!
 selection:lineNr
 self showSelection:lineNr
 !
 ].
 ].
 "Modified: / 28-10-2012 / 11:03:04 / cg"
 ! !
 !InspectorView methodsFor:'user interaction'!
 doAccept:theText
 |sel newValue fieldNameList|
 ].
 "Created: / 16-11-2001 / 13:48:51 / cg"
 ! !
 !InspectorView methodsFor:'workspace protocol'!
 modified:aBoolean
 ^ workspace modified:aBoolean
 !
 saveAs:file doAppend:doAppend
 workspace saveAs:file doAppend:doAppend
 ! !
 !InspectorView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.295 2012/12/14 16:21:59 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.296 2013-01-15 16:33:23 stefan Exp $'
 !
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.295 2012/12/14 16:21:59 cg Exp �'
+^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.296 2013-01-15 16:33:23 stefan Exp $'
 !
 version_SVN
 ^ '$Id: InspectorView.st 8083 2013-01-14 11:48:37Z vranyj1 $'
 ! !

branch	jv
changeset 12401	4714b9640528
parent 12314	0cbf76168690
parent 12103	00db0ef29541
child 12406	1fbd331e4489