UIPainter.st
changeset 2218 01fdf3323d89
parent 2217 b54632779619
child 2219 dc5bf7573298
equal deleted inserted replaced
2217:b54632779619 2218:01fdf3323d89
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 "{ Package: 'stx:libtool2' }"
    12 "{ Package: 'stx:libtool2' }"
    13 
    13 
    14 ResourceSpecEditor subclass:#UIPainter
    14 ResourceSpecEditor subclass:#UIPainter
    15         instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
    15 	instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
    16                 helpTool painterView painter'
    16 		helpTool painterView painter'
    17         classVariableNames:'SelectionPanelClass UseViewScroller'
    17 	classVariableNames:'SelectionPanelClass UseViewScroller'
    18         poolDictionaries:''
    18 	poolDictionaries:''
    19         category:'Interface-UIPainter'
    19 	category:'Interface-UIPainter'
    20 !
    20 !
    21 
    21 
    22 SelectionInTreeView subclass:#TreeView
    22 SelectionInTreeView subclass:#TreeView
    23         instanceVariableNames:'lastDrawnMaster cvsEventsDisabled windowSpec windowSpecClass'
    23 	instanceVariableNames:'lastDrawnMaster cvsEventsDisabled windowSpec windowSpecClass'
    24         classVariableNames:''
    24 	classVariableNames:''
    25         poolDictionaries:''
    25 	poolDictionaries:''
    26         privateIn:UIPainter
    26 	privateIn:UIPainter
    27 !
    27 !
    28 
    28 
    29 !UIPainter class methodsFor:'documentation'!
    29 !UIPainter class methodsFor:'documentation'!
    30 
    30 
    31 copyright
    31 copyright
    90 
    90 
    91 defaultNameOfCanvas
    91 defaultNameOfCanvas
    92     "returns the default name of the application"
    92     "returns the default name of the application"
    93 
    93 
    94     ^ 'NewApplication'
    94     ^ 'NewApplication'
       
    95 !
       
    96 
       
    97 selectionPanelClass
       
    98     ^ SelectionPanelClass
    95 !
    99 !
    96 
   100 
    97 selectionPanelClass:something
   101 selectionPanelClass:something
    98     "set the class used as selection panel.
   102     "set the class used as selection panel.
    99      this is UISelectionPanel as default"
   103      this is UISelectionPanel as default"
  3693     ] fork.
  3697     ] fork.
  3694     "Modified: / 13.7.1999 / 21:26:52 / cg"
  3698     "Modified: / 13.7.1999 / 21:26:52 / cg"
  3695 !
  3699 !
  3696 
  3700 
  3697 selectionPanelClass
  3701 selectionPanelClass
  3698     ^ UISelectionPanel
  3702     ^ SelectionPanelClass
  3699 !
  3703 !
  3700 
  3704 
  3701 setupCanvasAndSelectionPanel
  3705 setupCanvasAndSelectionPanel
  3702     |topView galleryWindow icon|
  3706     |topView galleryWindow icon|
  3703 
  3707