--- a/Tools__ViewTreeApplication.st Thu Dec 18 02:54:58 2008 +0100
+++ b/Tools__ViewTreeApplication.st Wed Jan 21 13:36:56 2009 +0100
@@ -5,7 +5,7 @@
ApplicationModel subclass:#ViewTreeApplication
instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
motionAction infoChannel testModeChannel process
- followFocusChannel'
+ followFocusChannel showNamesHolder'
classVariableNames:''
poolDictionaries:''
category:'A-Views-Support'
@@ -120,9 +120,9 @@
the UIPainter may not be able to read the specification."
"
- UIPainter new openOnClass:ViewTreeApplication andSelector:#windowSpec
- ViewTreeApplication new openInterface:#windowSpec
- ViewTreeApplication open
+ UIPainter new openOnClass:Tools::ViewTreeApplication andSelector:#windowSpec
+ Tools::ViewTreeApplication new openInterface:#windowSpec
+ Tools::ViewTreeApplication open
"
<resource: #canvas>
@@ -136,7 +136,7 @@
name: 'ViewTreeInspector'
min: (Point 10 10)
max: (Point 1024 9999)
- bounds: (Rectangle 0 0 325 654)
+ bounds: (Rectangle 0 0 381 654)
menu: menu
)
component:
@@ -421,8 +421,8 @@
the MenuEditor may not be able to read the specification."
"
- MenuEditor new openOnClass:ViewTreeApplication andSelector:#toolbarMenu
- (Menu new fromLiteralArrayEncoding:(ViewTreeApplication toolbarMenu)) startUp
+ MenuEditor new openOnClass:Tools::ViewTreeApplication andSelector:#toolbarMenu
+ (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeApplication toolbarMenu)) startUp
"
<resource: #menu>
@@ -446,6 +446,11 @@
translateLabel: true
indication: selectOnClickHolder
)
+ (MenuItem
+ label: 'Show Names'
+ translateLabel: true
+ indication: showNamesHolder
+ )
)
nil
nil
@@ -512,6 +517,13 @@
^ model selectOnClickHolder
!
+showNamesHolder
+ "boolean holder, which indicates whether application names or widget names
+ as additional text are shown for the items
+ "
+ ^ showNamesHolder
+!
+
testModeChannel
"boolean holder, which indicates whether running in test or edit mode (eat input events)
"
@@ -555,6 +567,11 @@
model testMode:(testModeChannel value).
^ self
].
+
+ aModel == showNamesHolder ifTrue:[
+ self listOfItems showWidgetNames:(aModel value).
+ ^ self
+ ].
super update:something with:someArgument from:aModel.
! !
@@ -789,6 +806,9 @@
testModeChannel := model testMode asValue.
testModeChannel addDependent:self.
+
+ showNamesHolder := false asValue.
+ showNamesHolder addDependent:self.
!
postBuildTree:aTree
@@ -796,6 +816,21 @@
treeView hasConstantHeight:true.
! !
+!ViewTreeApplication methodsFor:'menu actions'!
+
+doShowNames
+ "automatically generated by UIEditor ..."
+
+ "*** the code below performs no action"
+ "*** (except for some feedback on the Transcript)"
+ "*** Please change as required and accept in the browser."
+ "*** (and replace this comment by something more useful ;-)"
+
+ "action to be added ..."
+
+ Transcript showCR:self class name, ': action for #doShowNames ...'.
+! !
+
!ViewTreeApplication methodsFor:'menu queries'!
hasApplication