#FEATURE by cg
class: Tools::ViewTreeInspectorApplication
added: #submenuPresentation:
changed: #submenuVisibility:
class: Tools::ViewTreeInspectorApplication class
changed: #middleButtonMenu
--- a/Tools__ViewTreeApplication.st Wed Jul 17 10:31:58 2019 +0200
+++ b/Tools__ViewTreeApplication.st Thu Jul 18 12:28:46 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2007 by eXept Software AG
All Rights Reserved
@@ -742,6 +744,11 @@
keepLinkedMenu: true
)
(MenuItem
+ label: 'Presentation'
+ submenuChannel: submenuPresentation:
+ keepLinkedMenu: true
+ )
+ (MenuItem
label: 'Instance Variables'
submenuChannel: submenuInspector:
keepLinkedMenu: true
@@ -771,7 +778,7 @@
nil
)
- "Modified: / 15-07-2019 / 18:51:11 / Claus Gittinger"
+ "Modified: / 18-07-2019 / 12:22:06 / Claus Gittinger"
!
middleButtonMenuForMenuItems
@@ -1954,6 +1961,29 @@
"Created: / 16-08-2017 / 13:51:05 / cg"
!
+submenuPresentation:aMenu
+ "builds and returns the presentation submenu"
+
+ |view list|
+
+ view := self selectedView.
+ view isNil ifTrue:[^ nil].
+
+ list := OrderedCollection new.
+
+ list add:(MenuDesc title:'fgColor' value:(view foregroundColor)).
+ list add:(MenuDesc title:'bgColor' value:(view backgroundColor)).
+ list add:(MenuDesc title:'viewBG' value:(view viewBackground)).
+
+ list add:(MenuDesc separator).
+
+ list add:(MenuDesc title:'font' value:(view font printString)).
+
+ ^ MenuDesc buildFromList:list onGC:aMenu
+
+ "Created: / 18-07-2019 / 12:23:42 / Claus Gittinger"
+!
+
submenuVisibility:aMenu
"builds and returns the geometry submenu"
@@ -1964,9 +1994,9 @@
list := OrderedCollection new.
- list add:(MenuDesc title:'device' value:(view device printString)).
+ list add:(MenuDesc title:'device' value:(view device printString) action:[view device inspect]).
list add:(MenuDesc title:'drawableId' value:(view id)).
- list add:(MenuDesc title:'gcId' value:(view gcId)).
+ list add:(MenuDesc title:'gcId' value:(view gcId) action:[view graphicsContext inspect]).
list add:(MenuDesc separator).
@@ -1978,14 +2008,16 @@
list add:(MenuDesc title:'hiddenOnRealize' value:(view isHiddenOnRealize)).
(value := view visibilityChannel) isNil ifTrue:[
- list add:(MenuDesc title:'visibilityChannel' value:'------').
+ list add:(MenuDesc title:'visibilityChannel' value:'------').
] ifFalse:[
- list add:(MenuDesc title:'visibilityChannel'
- value:(value displayString)
- action:[view visibilityChannel inspect]).
+ list add:(MenuDesc title:'visibilityChannel'
+ value:(value displayString)
+ action:[view visibilityChannel inspect]).
].
^ MenuDesc buildFromList:list onGC:aMenu
+
+ "Modified: / 18-07-2019 / 12:25:39 / Claus Gittinger"
! !
!ViewTreeInspectorApplication methodsFor:'private'!