"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

View subclass:#ImageView

	instanceVariableNames:'image adjust'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-Misc'

!

!ImageView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This View knows how to display an image (or form).

    You can display an image with:

        ImageView openOn:anImageFileName

    or:

        ImageView openOnImage:anImage

    or:

        ImageView new image:anImage

    i.e.

        ImageView openOn:'bitmaps/SBrowser.xbm'

        ImageView openOnImage:(Image fromFile:'bitmaps/SBrowser.xbm')

    [author:]

        Claus Gittinger

    [see also:]

        Image Form

"

! !

!ImageView class methodsFor:'startup'!

openOn:aFileName

    "startup an image viewer on an image read from a file"

    img := Image fromFile:aFileName.

    img isNil ifTrue:[

        aFileName asFilename exists ifTrue:[

            e := 'unknown/unsupported image format'

        ] ifFalse:[

            e := 'no such image'.

        ].

        self warn:e.

        ^ nil

    ].

    "

    "

!

openOnImage:anImage

    "startup an image viewer on an image"

    |top v imageView icnW icnH iconView magX magY mag lbl|

    anImage isImage ifTrue:[

    ] ifFalse:[

    ].

    top := StandardSystemView label:lbl.

    v := HVScrollableView for:self in:top.

    v origin:0@0 extent:1.0@1.0. 

    imageView := v scrolledView.

    anImage notNil ifTrue:[

"

"

" 

" 

" "

" "

    ].

    top open.

    iconView notNil ifTrue:[

    ].

    "

     ImageView openOnImage:(Image fromFile:'bitmaps/SBrowser.xbm')

    "

! !

!ImageView methodsFor:'accessing'!

adjust:layoutSymbol

    "set the adjust (how the image is displayed);

     currently, only support #topLeft and #center"

    adjust := layoutSymbol

!

image

    "return the image"

    ^ image

!

image:anImage

    "set the image - show a wait cursor, since image dithering may take a while"

    image := anImage.

    anImage notNil ifTrue:[

        self cursor:Cursor wait.

        shown ifTrue:[

            self clear.

            self invalidate

        ].

        self contentsChanged.

        self cursor:(Cursor normal).

    ].

    "

     ImageView new realize image:(Image fromFile:'bitmaps/claus.gif')

     |f|

     f := Image fromFile:'bitmaps/SBrowser.xbm'.

     f colorMap:(Array with:Color red with:Color yellow).

     ImageView new realize image:f

    "

    "Modified: 17.3.1997 / 12:13:30 / cg"

! !

!ImageView methodsFor:'drawing'!

redrawX:x y:y width:w height:h

    |xI yI depth ext|

    image notNil ifTrue:[

	image device ~~ device ifTrue:[

	    self withWaitCursorDo:[

		image := image on:device.

	    ]

	].

	((depth := image depth) == 1) ifTrue:[

	    self paint:(image colorFromValue:1)

		    on:(image colorFromValue:0).

	].

	adjust == #center ifTrue:[

	    ext := image extent.

	    xI := (width - (margin * 2) - (ext x)) // 2.

	    yI := (height - (margin * 2) - (ext y)) // 2.

	] ifFalse:[

	    xI := yI := margin

	].

	(depth ~~ 1

	and:[image mask notNil]) ifTrue:[

	    self clearRectangleX:x y:y width:w height:h.

	    self displayForm:image x:xI y:yI 

	] ifFalse:[

	    self displayOpaqueForm:image x:xI y:yI 

	]

    ]

    "Created: 11.7.1996 / 21:02:12 / cg"

    "Modified: 5.9.1996 / 11:55:19 / cg"

! !

!ImageView methodsFor:'queries'!

heightOfContents

    "return the images height - scrollbar needs this info"

    image isNil ifTrue:[^ 0].

    ^ image height

!

widthOfContents

    "return the images width - scrollbar needs this info"

    image isNil ifTrue:[^ 0].

    ^ image width

! !

!ImageView methodsFor:'release'!

destroy

    image := nil.

    super destroy.

! !

!ImageView class methodsFor:'documentation'!

version

! !