MultiImage.st
changeset 3454 4938f4baa0ef
parent 3324 b3c333344810
child 4052 3e893a2cc401
equal deleted inserted replaced
3453:5591424bb4d2 3454:4938f4baa0ef
     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 "{ Package: 'stx:libview2' }"
    12 "{ Package: 'stx:libview2' }"
       
    13 
       
    14 "{ NameSpace: Smalltalk }"
    13 
    15 
    14 Object subclass:#MultiImage
    16 Object subclass:#MultiImage
    15 	instanceVariableNames:'images'
    17 	instanceVariableNames:'images'
    16 	classVariableNames:''
    18 	classVariableNames:''
    17 	poolDictionaries:''
    19 	poolDictionaries:''
    85 clearMaskedPixels
    87 clearMaskedPixels
    86     images := images do:[:eachImage | eachImage clearMaskedPixels].
    88     images := images do:[:eachImage | eachImage clearMaskedPixels].
    87     ^ self
    89     ^ self
    88 !
    90 !
    89 
    91 
    90 inspectorClass
       
    91     "redefined to launch an ImageInspector
       
    92      (instead of the default InspectorView)."
       
    93 
       
    94     (self width notNil and:[self height notNil]) ifTrue:[
       
    95         ^ ImageInspectorView
       
    96     ].
       
    97     ^ super inspectorClass
       
    98 !
       
    99 
       
   100 onDevice:device
    92 onDevice:device
   101     images := images collect:[:eachImage | (eachImage onDevice:device) ? eachImage].
    93     images := images collect:[:eachImage | (eachImage onDevice:device) ? eachImage].
   102     ^ self
    94     ^ self
   103 ! !
    95 ! !
       
    96 
   104 
    97 
   105 !MultiImage methodsFor:'queries'!
    98 !MultiImage methodsFor:'queries'!
   106 
    99 
   107 ascentOn:aGC
   100 ascentOn:aGC
   108     "I will not draw myself above the baseline"
   101     "I will not draw myself above the baseline"
   131 ! !
   124 ! !
   132 
   125 
   133 !MultiImage class methodsFor:'documentation'!
   126 !MultiImage class methodsFor:'documentation'!
   134 
   127 
   135 version
   128 version
   136     ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.9 2014-04-08 17:21:49 stefan Exp $'
   129     ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.10 2015-03-26 10:07:18 cg Exp $'
   137 ! !
   130 ! !
   138 
   131