UIPainterView.st
changeset 742 688fd0a0b0fd
parent 723 60e8ffac2f38
child 744 20cbba6d7e96
equal deleted inserted replaced
741:c94606aecebf 742:688fd0a0b0fd
     2  COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG
     2  COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG
     3               All Rights Reserved
     3               All Rights Reserved
     4 
     4 
     5  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
     6  only in accordance with the terms of that license and with the
     6  only in accordance with the terms of that license and with the
     7  inclusion of the above copyright notice.   This software may not
     7  inclusion of the above copyright notice. This software may not
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 
    12 
    13 UIObjectView subclass:#UIPainterView
    13 UIObjectView subclass:#UIPainterView
    14 	instanceVariableNames:'treeView listHolder superclassName className methodName
    14 	instanceVariableNames:'treeView listHolder superclassName className methodName
    15 		categoryName'
    15 		categoryName'
    16 	classVariableNames:'HandCursor RedefineMethods'
    16 	classVariableNames:'HandCursor RedefineAspectMethods'
    17 	poolDictionaries:''
    17 	poolDictionaries:''
    18 	category:'Interface-UIPainter'
    18 	category:'Interface-UIPainter'
    19 !
    19 !
    20 
    20 
    21 Object subclass:#ViewProperty
    21 Object subclass:#ViewProperty
    32  COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG
    32  COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG
    33               All Rights Reserved
    33               All Rights Reserved
    34 
    34 
    35  This software is furnished under a license and may be used
    35  This software is furnished under a license and may be used
    36  only in accordance with the terms of that license and with the
    36  only in accordance with the terms of that license and with the
    37  inclusion of the above copyright notice.   This software may not
    37  inclusion of the above copyright notice. This software may not
    38  be provided or otherwise made available to, or used by, any
    38  be provided or otherwise made available to, or used by, any
    39  other person.  No title to or ownership of the software is
    39  other person.  No title to or ownership of the software is
    40  hereby transferred.
    40  hereby transferred.
    41 "
    41 "
    42 !
    42 !
    56 "
    56 "
    57 ! !
    57 ! !
    58 
    58 
    59 !UIPainterView class methodsFor:'code generation mode'!
    59 !UIPainterView class methodsFor:'code generation mode'!
    60 
    60 
    61 redefineMethods
    61 redefineAspectMethods
    62     "redefine methods yes or no. If a method is defined in super class
    62     "redefine methods yes or no. If a method is defined in super class
    63      should the message be reinstalled ?
    63      should the message be reinstalled ?
    64     "
    64     "
    65     ^ RedefineMethods ? false
    65     ^ RedefineAspectMethods ? false
    66 
    66 
    67 !
    67 !
    68 
    68 
    69 redefineMethods:aBool
    69 redefineAspectMethods:aBoolean
    70     "redefine methods yes or no. If a method is defined in super class
    70     "redefine methods yes or no. If a method is defined in super class
    71      should the message be reinstalled ?
    71      should the message be reinstalled ?
    72     "
    72     "
    73     RedefineMethods := aBool
    73     RedefineAspectMethods := aBoolean
    74 
    74 
    75 
    75 
    76 ! !
    76 ! !
    77 
    77 
    78 !UIPainterView class methodsFor:'defaults'!
    78 !UIPainterView class methodsFor:'defaults'!
   863     code := '!!'
   863     code := '!!'
   864             , className , ' class methodsFor:' , category storeString
   864             , className , ' class methodsFor:' , category storeString
   865             , '!!' , '\\'
   865             , '!!' , '\\'
   866 
   866 
   867             , methodName , '\'
   867             , methodName , '\'
   868             , '    "this window spec was automatically generated by the ST/X UIPainter"\\'
   868             , ((ResourceSpecEditor codeGenerationCommentForClass: UIPainter) replChar:$!! withString:'!!!!')
   869             , '    "do not manually edit this - the painter/builder may not be able to\'
   869             , '\\    "\'
   870             , '     handle the specification if its corrupted."\\'
       
   871             , '    "\'
       
   872             , ('     UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\')
   870             , ('     UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\')
   873             , ('     ' , className , ' new openInterface:#' , methodName , '\')
   871             , ('     ' , className , ' new openInterface:#' , methodName , '\')
       
   872             ,(methodName = 'windowSpec' 
       
   873                 ifTrue:['     ' , className , ' open\'] ifFalse: [''])
   874             , '    "\'.
   874             , '    "\'.
   875 
   875 
   876     methodName = 'windowSpec' ifTrue:[
       
   877         code := code , '    "' , className , ' open"\'
       
   878     ].
       
   879     code := code 
   876     code := code 
   880             , '\'
   877             , '\'
   881             , '    <resource: #canvas>\\'
   878             , '    <resource: #canvas>\\'
   882             , '    ^\' 
   879             , '    ^\' 
   883             , '     ', specCode
   880             , '     ', specCode