"

 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.

"

"{ Package: 'stx:libwidg2' }"

View subclass:#ImageView

	instanceVariableNames:'image magnifiedImage adjust imageChannel tileMode tileOffset'

	classVariableNames:'DoNotMagnifyQuery'

	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:

    or:

    or:

    i.e.

    adjust:     

    [author:]

    [see also:]

"

! !

!ImageView class methodsFor:'initialization'!

initialize

    DoNotMagnifyQuery := QuerySignal new defaultAnswer:false.

! !

!ImageView class methodsFor:'queries-plugin'!

aspectSelectors

    ^ #( imageChannel )

    "Created: / 11.2.2000 / 00:37:33 / cg"

! !

!ImageView class methodsFor:'startup'!

openOn:aFileName

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

    |fn imageView img e|

    fn := aFileName asFilename.

    img := Image fromFile:fn.

    img isNil ifTrue:[

    ].

    imageView := self openOnImage:img.

    imageView topView label:fn pathName iconLabel:(fn baseName).

    ^ imageView

    "

     ImageView openOn:'bitmaps/gifImages/garfield.gif'

    "

    "Modified: / 31.10.1997 / 16:17:52 / cg"

!

openOnImage:anImage

    "startup an image viewer on an image"

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

    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

    "

     ImageView openOnImage:(Image fromFile:'bitmaps/gifImages/garfield.gif')

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

    "

    "Modified: / 18.12.1997 / 11:46:19 / cg"

! !

!ImageView methodsFor:'accessing'!

adjust:layoutSymbol

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

     currently, only support #topLeft, #center, #fitBig, #fitSmall and #fit:

    "

    adjust ~= layoutSymbol ifTrue:[

    ].

!

image

    "return the image"

    ^ image

!

image:anImage

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

    self image:anImage scroll:true

!

image:anImage scroll:doScroll

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

    self setImage:anImage scroll:doScroll

!

setImage:anImage

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

    |oldSize newSize|

    oldSize := image ifNil:[0@0] ifNotNil:[image extent].

    image := anImage.

    magnifiedImage := nil.

    self generateMagnifiedImage.

    newSize := image ifNil:[0@0] ifNotNil:[(magnifiedImage ? image) extent].

    self scrollToTopLeft.

    oldSize ~= newSize ifTrue:[

    ].

    shown ifTrue:[

    ].

    self changed:#image.

    "Modified: / 10.2.2000 / 23:25:51 / cg"

!

setImage:anImage scroll:doScroll

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

    |oldSize newSize|

    oldSize := image ifNil:[0@0] ifNotNil:[image extent].

    image := anImage.

    magnifiedImage := nil.

    self generateMagnifiedImage.

    newSize := image ifNil:[0@0] ifNotNil:[(magnifiedImage ? image) extent].

    doScroll ifTrue:[

    ].

    oldSize ~= newSize ifTrue:[

    ].

    shown ifTrue:[

    ].

    self changed:#image.

    "Modified: / 10.2.2000 / 23:25:51 / cg"

!

tileMode:aBoolean tileOffset:aPoint

    tileMode := aBoolean.

    tileOffset := aPoint

! !

!ImageView methodsFor:'accessing-channels'!

imageChannel

    imageChannel isNil ifTrue:[

    ].

    ^ imageChannel

    "Created: / 11.2.2000 / 00:34:44 / cg"

!

imageChannel:aValueHolder

    imageChannel notNil ifTrue:[

    ].

    imageChannel := aValueHolder.

    imageChannel notNil ifTrue:[

    ].

    "Created: / 11.2.2000 / 00:34:33 / cg"

! !

!ImageView methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    something == imageChannel ifTrue:[

    ].

    super update:something with:aParameter from:changedObject

    "Created: / 11.2.2000 / 00:37:02 / cg"

! !

!ImageView methodsFor:'drawing'!

generateMagnifiedImage

    |doFit innerWidth innerHeight imgWidth imgHeight|

    magnifiedImage notNil ifTrue:[

    ].

    image isNil ifTrue:[

    ].

    doFit := false.

    innerWidth := self innerWidth.

    innerHeight := self innerHeight.

    imgWidth := image width.

    imgHeight := image height.

    tileMode ~~ true ifTrue:[

    ].

    doFit ifTrue:[

"/        self contentsChanged.

    ] ifFalse:[

    ].

!

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

    |xI yI depth shownImage imgWidth imgHeight right bott|

    image notNil ifTrue:[

    ]

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

    "Modified: / 12.8.1998 / 14:02:28 / cg"

! !

!ImageView methodsFor:'event handling'!

sizeChanged:how

    magnifiedImage notNil ifTrue:[

    ].

    super sizeChanged:how

! !

!ImageView methodsFor:'initialization & release'!

destroy