"
 COPYRIGHT (c) 1995 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.
"

'From Smalltalk/X, Version:2.10.5 on 28-jun-1995 at 6:45:45 am'!

FileSelectionBox subclass:#ImageSelectionBox
	 instanceVariableNames:'previewField preview info'
	 classVariableNames:''
	 poolDictionaries:''
	 category:'Views-DialogBoxes'
!

!ImageSelectionBox class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 1995 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
"
    Like a fileSelectionBox, but adds a little preview field.
    Nice.
"
! !

!ImageSelectionBox methodsFor:'user actions'!

selectionChanged
    "selections in list show the image"

    super selectionChanged.
    self showPreview
!

showPreview
    "show the image as thumbNail"

    |fileNameString fileName image|

    previewField label:nil.
    info label:nil.

    preview value ifFalse:[
	^ self
    ].

    "
     show the image in the previewLabel
    "
    fileNameString := self contents.
    (fileNameString notNil and:[fileNameString notEmpty]) ifTrue:[
	fileName := fileNameString asFilename.    
	(fileName exists 
	and:[fileName isDirectory not
	and:[fileName isReadable]]) ifTrue:[

	    self topView withWaitCursorDo:[
		image := Image fromFile:fileNameString.
		image notNil ifTrue:[
		    info label:'Size: ' ,
			       (image width printString , ' x ' , image height printString),
			       ' Depth: ' , image depth printString.

		    (image width <= 64 and:[image height <= 64]) ifFalse:[
			image := image magnifiedPreservingRatioTo:64@64.
		    ].
		    "
		     for the thumbNail picture,
		     we can temporarily switch to a rough dither.
		     (this speeds up the thing quite a bit
		    "
		    (image depth > 2 
		    and:[Color fixColors isNil]) ifTrue:[
			"temporarily go to a 3x3x2 colormap ..."
			Object errorSignal handle:[:ex |
			    'very low resolution colors' infoPrintNL.
			    Object errorSignal handle:[:ex |
				'cannot allocate dither colors' infoPrintNL.
				ex return
			    ] do:[
				Color getColorsRed:2 green:2 blue:2.
			    ]
			] do:[
			    Color getColorsRed:5 green:5 blue:3.
			].
			previewField label:image.
			Color releaseDitherColors.
		    ] ifFalse:[
			previewField label:image.
		    ]
		]
	    ]
	]
    ]
! !

!ImageSelectionBox methodsFor:'initialization'!

initialize
    |v check lw lh prefY frame previewSize|

    previewSize := 64@64.

    super initialize.

    label := 'Image dialog'.
    labelField label:(resources string:'select an image file:').

    prefY := buttonPanel preferredExtent y.

    check := CheckBox label:(resources string:'preview') in:self.
    check model:(preview := false asValue).
    preview onChangeSend:#showPreview to:self.
    info := Label label:'' in:self.
    info adjust:#left.

    lh := check preferredExtent y.
    lw := check preferredExtent x.

    check
	origin:(0.0 @ 1.0)       
	corner:(0.0 @ 1.0).
    check
	topInset:(prefY + ViewSpacing + previewSize y) negated;
	bottomInset:(prefY + ViewSpacing + (previewSize y - check preferredExtent y)); 
	rightInset:(ViewSpacing + lw) negated.

    info
	origin:(0.0 @ 1.0)       
	corner:(1.0 @ 1.0).
    info
	topInset:(prefY + ViewSpacing + info preferredExtent y + ViewSpacing) negated;
	bottomInset:(prefY + ViewSpacing); 
	leftInset:ViewSpacing;
	rightInset:(ViewSpacing + previewSize x + ViewSpacing) negated.

    StyleSheet is3D ifTrue:[
	v := View in:self.
	previewField := Label origin:0.0@0.0 corner:1.0@1.0 in:v.
	previewField allInset:ViewSpacing//2.
	frame := v.
	previewField level:-1.
	frame level:1.
    ] ifFalse:[
	previewField := frame := Label in:self.
    ].
    frame
	origin:(1.0 @ 1.0)       
	corner:(1.0 @ 1.0).
    frame
	topInset:(prefY + ViewSpacing + previewSize y + (frame borderWidth * 2)) negated;
	bottomInset:(prefY + frame borderWidth + ViewSpacing); 
	leftInset:(ViewSpacing + previewSize x + ViewSpacing) negated;
	rightInset:ViewSpacing.
    previewField sizeFixed:true.

    selectionList superView
	bottomInset:(prefY + ViewSpacing + previewSize y + (frame borderWidth * 2) + ViewSpacing).
! !