#FEATURE by cg draft
authorClaus Gittinger <cg@exept.de>
Thu, 18 Jul 2019 12:28:46 +0200
changeset 3692 b8a662f98f30
parent 3691 362d9b0f6b47
child 3693 1b69c8dcdfe0
#FEATURE by cg class: Tools::ViewTreeInspectorApplication added: #submenuPresentation: changed: #submenuVisibility: class: Tools::ViewTreeInspectorApplication class changed: #middleButtonMenu
Tools__ViewTreeApplication.st
--- 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'!