Mercurial Mercurial > hg > stx-libtool2 / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tools__ViewTreeApplication.st
changeset 3692 b8a662f98f30
parent 3689 d0440cfff708
child 3693 1b69c8dcdfe0
equal deleted inserted replaced
3691:362d9b0f6b47 3692:b8a662f98f30 
       
     1 "{ Encoding: utf8 }"
 
       
     2 
     1 "
 
     3 "
 
     2  COPYRIGHT (c) 2007 by eXept Software AG
 
     4  COPYRIGHT (c) 2007 by eXept Software AG
 
     3 	      All Rights Reserved
 
     5 	      All Rights Reserved
 
     4 
     6 
     5  This software is furnished under a license and may be used
 
     7  This software is furnished under a license and may be used
 
   740             label: 'Visibility'
 
   742             label: 'Visibility'
 
   741             submenuChannel: submenuVisibility:
 
   743             submenuChannel: submenuVisibility:
 
   742             keepLinkedMenu: true
 
   744             keepLinkedMenu: true
 
   743           )
 
   745           )
 
   744          (MenuItem
 
   746          (MenuItem
 
       
   747             label: 'Presentation'
 
       
   748             submenuChannel: submenuPresentation:
 
       
   749             keepLinkedMenu: true
 
       
   750           )
 
       
   751          (MenuItem
 
   745             label: 'Instance Variables'
 
   752             label: 'Instance Variables'
 
   746             submenuChannel: submenuInspector:
 
   753             submenuChannel: submenuInspector:
 
   747             keepLinkedMenu: true
 
   754             keepLinkedMenu: true
 
   748           )
 
   755           )
 
   749          (MenuItem
 
   756          (MenuItem
 
   769          )
 
   776          )
 
   770         nil
 
   777         nil
 
   771         nil
 
   778         nil
 
   772       )
 
   779       )
 
   773 
   780 
   774     "Modified: / 15-07-2019 / 18:51:11 / Claus Gittinger"
 
   781     "Modified: / 18-07-2019 / 12:22:06 / Claus Gittinger"
 
   775 !
 
   782 !
 
   776 
   783 
   777 middleButtonMenuForMenuItems
 
   784 middleButtonMenuForMenuItems
 
   778     "This resource specification was automatically generated
 
   785     "This resource specification was automatically generated
 
   779      by the MenuEditor of ST/X."
 
   786      by the MenuEditor of ST/X."
 
  1952     ^ MenuDesc buildFromList:list onGC:aMenu
 
  1959     ^ MenuDesc buildFromList:list onGC:aMenu
 
  1953 
  1960 
  1954     "Created: / 16-08-2017 / 13:51:05 / cg"
 
  1961     "Created: / 16-08-2017 / 13:51:05 / cg"
 
  1955 !
 
  1962 !
 
  1956 
  1963 
       
  1964 submenuPresentation:aMenu
 
       
  1965     "builds and returns the presentation submenu"
 
       
  1966 
       
  1967     |view list|
 
       
  1968 
       
  1969     view := self selectedView.
 
       
  1970     view isNil ifTrue:[^ nil].
 
       
  1971 
       
  1972     list := OrderedCollection new.
 
       
  1973 
       
  1974     list add:(MenuDesc title:'fgColor'     value:(view foregroundColor)).
 
       
  1975     list add:(MenuDesc title:'bgColor'     value:(view backgroundColor)).
 
       
  1976     list add:(MenuDesc title:'viewBG'      value:(view viewBackground)).
 
       
  1977 
       
  1978     list add:(MenuDesc separator).
 
       
  1979 
       
  1980     list add:(MenuDesc title:'font'        value:(view font printString)).
 
       
  1981 
       
  1982     ^ MenuDesc buildFromList:list onGC:aMenu
 
       
  1983 
       
  1984     "Created: / 18-07-2019 / 12:23:42 / Claus Gittinger"
 
       
  1985 !
 
       
  1986 
  1957 submenuVisibility:aMenu
 
  1987 submenuVisibility:aMenu
 
  1958     "builds and returns the geometry submenu"
 
  1988     "builds and returns the geometry submenu"
 
  1959 
  1989 
  1960     |view list value|
 
  1990     |view list value|
 
  1961 
  1991 
  1962     view := self selectedView.
 
  1992     view := self selectedView.
 
  1963     view isNil ifTrue:[^ nil].
 
  1993     view isNil ifTrue:[^ nil].
 
  1964 
  1994 
  1965     list := OrderedCollection new.
 
  1995     list := OrderedCollection new.
 
  1966 
  1996 
  1967     list add:(MenuDesc title:'device'     value:(view device printString)).
 
  1997     list add:(MenuDesc title:'device'     value:(view device printString) action:[view device inspect]).
 
  1968     list add:(MenuDesc title:'drawableId' value:(view id)).
 
  1998     list add:(MenuDesc title:'drawableId' value:(view id)).
 
  1969     list add:(MenuDesc title:'gcId'       value:(view gcId)).
 
  1999     list add:(MenuDesc title:'gcId'       value:(view gcId) action:[view graphicsContext inspect]).
 
  1970 
  2000 
  1971     list add:(MenuDesc separator).
 
  2001     list add:(MenuDesc separator).
 
  1972 
  2002 
  1973     list add:(MenuDesc title:'shown'    value:(view shown)).
 
  2003     list add:(MenuDesc title:'shown'    value:(view shown)).
 
  1974     list add:(MenuDesc title:'realized' value:(view realized)).
 
  2004     list add:(MenuDesc title:'realized' value:(view realized)).
 
  1976     list add:(MenuDesc separator).
 
  2006     list add:(MenuDesc separator).
 
  1977 
  2007 
  1978     list add:(MenuDesc title:'hiddenOnRealize' value:(view isHiddenOnRealize)).
 
  2008     list add:(MenuDesc title:'hiddenOnRealize' value:(view isHiddenOnRealize)).
 
  1979 
  2009 
  1980     (value := view visibilityChannel) isNil ifTrue:[
 
  2010     (value := view visibilityChannel) isNil ifTrue:[
 
  1981 	list add:(MenuDesc title:'visibilityChannel' value:'------').
 
  2011         list add:(MenuDesc title:'visibilityChannel' value:'------').
 
  1982     ] ifFalse:[
 
  2012     ] ifFalse:[
 
  1983 	list add:(MenuDesc title:'visibilityChannel'
 
  2013         list add:(MenuDesc title:'visibilityChannel'
 
  1984 			   value:(value displayString)
 
  2014                            value:(value displayString)
 
  1985 			  action:[view visibilityChannel inspect]).
 
  2015                           action:[view visibilityChannel inspect]).
 
  1986     ].
 
  2016     ].
 
  1987 
  2017 
  1988     ^ MenuDesc buildFromList:list onGC:aMenu
 
  2018     ^ MenuDesc buildFromList:list onGC:aMenu
 
       
  2019 
       
  2020     "Modified: / 18-07-2019 / 12:25:39 / Claus Gittinger"
 
  1989 ! !
 
  2021 ! !
 
  1990 
  2022 
  1991 !ViewTreeInspectorApplication methodsFor:'private'!
 
  2023 !ViewTreeInspectorApplication methodsFor:'private'!
 
  1992 
  2024 
  1993 aspectLabelFor:aModel inApplicationOf:aView
 
  2025 aspectLabelFor:aModel inApplicationOf:aView
hg/stx-libtool2