UIPainter.st
changeset 3111 618a32168c9c
parent 3108 325b4bd1ee46
child 3113 7b82f9dd4e1b
equal deleted inserted replaced
3110:35a4010e8790 3111:618a32168c9c
    16 		helpTool painterView painter lastPort lastPage'
    16 		helpTool painterView painter lastPort lastPage'
    17 	classVariableNames:'SelectionPanelClass UseViewScroller LastPort LastPage
    17 	classVariableNames:'SelectionPanelClass UseViewScroller LastPort LastPage
    18 		DefaultEditToolBarVisible DefaultToolBarVisible'
    18 		DefaultEditToolBarVisible DefaultToolBarVisible'
    19 	poolDictionaries:''
    19 	poolDictionaries:''
    20 	category:'Interface-UIPainter'
    20 	category:'Interface-UIPainter'
       
    21 !
       
    22 
       
    23 Query subclass:#ApplicationClassQuery
       
    24 	instanceVariableNames:''
       
    25 	classVariableNames:''
       
    26 	poolDictionaries:''
       
    27 	privateIn:UIPainter
    21 !
    28 !
    22 
    29 
    23 SelectionInTreeView subclass:#TreeView
    30 SelectionInTreeView subclass:#TreeView
    24 	instanceVariableNames:'lastDrawnMaster canvasEventsDisabled windowSpec windowSpecClass
    31 	instanceVariableNames:'lastDrawnMaster canvasEventsDisabled windowSpec windowSpecClass
    25 		painter'
    32 		painter'
  2908         nil
  2915         nil
  2909         nil
  2916         nil
  2910       )
  2917       )
  2911 ! !
  2918 ! !
  2912 
  2919 
       
  2920 !UIPainter class methodsFor:'private class access'!
       
  2921 
       
  2922 applicationClassQuery
       
  2923     ^ ApplicationClassQuery
       
  2924 ! !
       
  2925 
  2913 !UIPainter methodsFor:'aspects'!
  2926 !UIPainter methodsFor:'aspects'!
  2914 
  2927 
  2915 alignToGridHolder
  2928 alignToGridHolder
  2916     |holder|
  2929     |holder|
  2917 
  2930 
  4017 
  4030 
  4018              self isLayoutToolSelected ifTrue:[tool := layoutTool ]
  4031              self isLayoutToolSelected ifTrue:[tool := layoutTool ]
  4019     ifFalse:[self isHelpToolSelected   ifTrue:[tool := helpTool   ]
  4032     ifFalse:[self isHelpToolSelected   ifTrue:[tool := helpTool   ]
  4020     ifFalse:[
  4033     ifFalse:[
  4021         tool := specTool.
  4034         tool := specTool.
  4022         tool notNil ifTrue:[ 
  4035         tool notNil ifTrue:[
  4023             "/ the spectool needs to know, in which nameSpace the application class is located, to find out
  4036             ApplicationClassQuery answer:specClass do:[
  4024             "/ how to resolve short majorKeys...
  4037                     "/ the spectool needs to know, in which nameSpace the application class is located, to find out
  4025             UISpecification uiMajorKeyBindingNameSpaceQuery 
  4038                     "/ how to resolve short majorKeys...
  4026                 answer:(specClass notNil ifTrue:[specClass nameSpace] ifFalse:Smalltalk)
  4039                     UISpecification uiMajorKeyBindingNameSpaceQuery 
  4027                 do:[
  4040                         answer:(specClass notNil ifTrue:[specClass nameSpace] ifFalse:Smalltalk)
  4028                     specTool selection:tabSelection 
  4041                         do:[
       
  4042                             specTool selection:tabSelection 
       
  4043                         ].
  4029                 ].
  4044                 ].
  4030         ].
  4045         ].
  4031     ]].
  4046     ]].
  4032 
  4047 
  4033     (Array with:helpTool with:layoutTool with:specTool) do:[:aTool|
  4048     (Array with:helpTool with:layoutTool with:specTool) do:[:aTool|
  6053     self painter wrapSelectionInto:newSpec.
  6068     self painter wrapSelectionInto:newSpec.
  6054 
  6069 
  6055     "Modified: / 05-09-2012 / 19:24:40 / cg"
  6070     "Modified: / 05-09-2012 / 19:24:40 / cg"
  6056 ! !
  6071 ! !
  6057 
  6072 
       
  6073 !UIPainter::ApplicationClassQuery class methodsFor:'documentation'!
       
  6074 
       
  6075 documentation
       
  6076     "This Query answers the application class, that is currently being edited"
       
  6077 ! !
       
  6078 
  6058 !UIPainter::TreeView class methodsFor:'documentation'!
  6079 !UIPainter::TreeView class methodsFor:'documentation'!
  6059 
  6080 
  6060 documentation
  6081 documentation
  6061 "
  6082 "
  6062     selection in tree view; only used by the UIPainter
  6083     selection in tree view; only used by the UIPainter