Smalltalk current createPackage: 'Helios-Inspector'! HLWidget subclass: #HLInspector instanceVariableNames: 'model variablesWidget displayWidget codeWidget label' package: 'Helios-Inspector'! !HLInspector methodsFor: 'accessing'! codeWidget ^ codeWidget ifNil: [ codeWidget := HLCodeWidget new model: model code; receiver: model inspectee; yourself ] ! displayWidget ^ displayWidget ifNil: [ displayWidget := HLInspectorDisplayWidget new model: self model; yourself ] ! inspectee ^ self model inspectee ! inspectee: anObject self model inspectee: anObject ! label ^ label ifNil: [ model inspectee printString ] ! model ^ model ifNil: [ self model: HLInspectorModel new. model ] ! model: aModel model := aModel. self codeWidget model: aModel code. self observeCodeWidget; observeVariablesWidget; observeModel ! tabLabel ^ self label ! variablesWidget ^ variablesWidget ifNil: [ variablesWidget := HLInspectorVariablesWidget new model: self model; yourself ] ! ! !HLInspector methodsFor: 'actions'! inspect: anObject self model inspect: anObject on: self. self refreshVariablesWidget; refreshDisplayWidget ! observeCodeWidget self codeWidget announcer on: HLDoItExecuted do: [ self onDoneIt ] ! observeModel self model announcer on: HLInstanceVariableSelected do: [ :ann | self onInstanceVariableSelected ] ! observeVariablesWidget self variablesWidget announcer on: HLRefreshRequested do: [ :ann | self onRefresh ]; on: HLDiveRequested do:[ self onDive ] ! open HLManager current addTab: (HLTab on: self labelled: self tabLabel) ! refresh self inspect: self inspectee ! refreshDisplayWidget self displayWidget refresh ! refreshVariablesWidget self variablesWidget refresh ! setLabel: aString label := aString ! setVariables: aDictionary self model variables: aDictionary ! ! !HLInspector methodsFor: 'reactions'! onDive self inspect: self model selectedInstVarObject ! onDoneIt self refresh ! onInspectIt ! onInstanceVariableSelected self codeWidget receiver: self model selectedInstVarObject. self refreshDisplayWidget ! onPrintIt ! onRefresh self refresh ! ! !HLInspector methodsFor: 'rendering'! renderContentOn: html html with: (HLContainer with: (HLHorizontalSplitter with: (HLVerticalSplitter with: self variablesWidget with: self displayWidget) with: self codeWidget)). self variablesWidget focus ! ! !HLInspector class methodsFor: 'accessing'! tabLabel ^ 'Inspector' ! tabPriority ^ 10 ! ! !HLInspector class methodsFor: 'testing'! canBeOpenAsTab ^ false ! ! HLNavigationListWidget subclass: #HLInspectorDisplayWidget instanceVariableNames: 'model' package: 'Helios-Inspector'! !HLInspectorDisplayWidget methodsFor: 'accessing'! model ^ model ! model: aModel model := aModel ! ! !HLInspectorDisplayWidget methodsFor: 'rendering'! renderContentOn: html html div with: self selectionDisplayString ! selectionDisplayString |selection| selection := model selection. ^ (model variables keys includes: selection) ifTrue:[(model instVarObjectAt: selection) printString] ifFalse:[''] ! ! Object subclass: #HLInspectorModel instanceVariableNames: 'announcer environment inspectee code variables selection' package: 'Helios-Inspector'! !HLInspectorModel methodsFor: 'accessing'! announcer ^ announcer ifNil: [announcer := Announcer new ] ! code "Answers the code model working for this workspace model" ^ code ifNil:[ code := HLCodeModel on: self environment ] ! environment ^ environment ifNil: [ HLManager current environment ] ! environment: anEnvironment environment := anEnvironment ! inspectee ^ inspectee ! inspectee: anObject inspectee := anObject ! selectedInstVarObject ^ self instVarObjectAt: self selection ! selection ^ selection ifNil:[ '' ] ! selection: anObject selection := anObject. self announcer announce: (HLInstanceVariableSelected on: selection) ! variables ^ variables ! variables: aCollection variables := aCollection ! ! !HLInspectorModel methodsFor: 'actions'! inspect: anObject on: anInspector inspectee := anObject. variables := #(). inspectee inspectOn: anInspector ! instVarObjectAt: anInstVarName ^ self variables at: anInstVarName ! selectedInstVar: anInstVarName self selection: anInstVarName ! subscribe: aWidget aWidget subscribeTo: self announcer ! ! !HLInspectorModel methodsFor: 'reactions'! onKeyDown: anEvent ! ! !HLInspectorModel class methodsFor: 'actions'! on: anEnvironment ^ self new environment: anEnvironment; yourself ! ! HLNavigationListWidget subclass: #HLInspectorVariablesWidget instanceVariableNames: 'announcer model list diveButton' package: 'Helios-Inspector'! !HLInspectorVariablesWidget methodsFor: 'accessing'! announcer ^ announcer ifNil:[ announcer := Announcer new ] ! label ^ self model inspectee class name ! model ^ model ! model: aModel model := aModel ! selection ^ model selection ! variables ^ model variables ! ! !HLInspectorVariablesWidget methodsFor: 'actions'! refresh self resetItems. super refresh ! resetItems items := nil ! ! !HLInspectorVariablesWidget methodsFor: 'defaults'! defaultItems ^ self model variables keys ! ! !HLInspectorVariablesWidget methodsFor: 'reactions'! selectItem: anObject super selectItem: anObject. self model selectedInstVar: anObject ! ! !HLInspectorVariablesWidget methodsFor: 'rendering'! renderButtonsOn: html html button class: 'btn'; with: 'Refresh'; onClick: [ self announcer announce: HLRefreshRequested new ]. diveButton := html button class: 'btn'; with: 'Dive'; onClick: [ self announcer announce: HLDiveRequested new ] ! renderContentOn: html self renderHeadOn: html. super renderContentOn: html ! renderHeadOn: html html div class: 'list-label'; with: self label ! !