--- a/ImageEditView.st Sun Nov 02 18:26:31 1997 +0100
+++ b/ImageEditView.st Sun Nov 02 18:36:44 1997 +0100
@@ -56,10 +56,13 @@
openOn:aFileName
"startup an image editor on an image read from a file"
- |editView|
+ |editView fn dir|
editView := super openOn:aFileName.
- editView pathName:aFileName asFilename pathName.
+ dir := (fn := aFileName asFilename) directory.
+ dir exists ifTrue:[
+ editView pathName:(fn pathName).
+ ].
^ editView
@@ -68,7 +71,7 @@
ImageEditView openOn:'bitmaps/xpmBitmaps/BOOK.xpm'
"
- "Modified: 10.4.1997 / 17:31:17 / cg"
+ "Modified: / 31.10.1997 / 16:19:23 / cg"
! !
!ImageEditView methodsFor:'accessing'!
@@ -860,5 +863,5 @@
!ImageEditView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.45 1997-07-31 11:49:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.46 1997-11-02 17:35:59 cg Exp $'
! !
--- a/ImageView.st Sun Nov 02 18:26:31 1997 +0100
+++ b/ImageView.st Sun Nov 02 18:36:44 1997 +0100
@@ -80,7 +80,7 @@
].
imageView := self openOnImage:img.
- imageView topView label:aFileName iconLabel:aFileName asFilename baseName.
+ imageView topView label:aFileName iconLabel:(aFileName asFilename baseName).
^ imageView
@@ -89,7 +89,7 @@
ImageView openOn:'bitmaps/xpmBitmaps/BOOK.xpm'
"
- "Modified: 10.4.1997 / 17:29:11 / cg"
+ "Modified: / 31.10.1997 / 16:17:52 / cg"
!
openOnImage:anImage
@@ -117,11 +117,11 @@
(true "(OperatingSystem getSystemType = 'iris')"
and:[StyleSheet name == #iris]) ifTrue:[
- iconView := self new.
+ iconView := ImageView new.
"for now; should somehow get access to preferred iconview extent ..."
icnW := 86.
- icnH := 68.
+ icnH := 68.
((anImage width <= icnW) and:[anImage height <= icnH]) ifTrue:[
iconView extent:(anImage width @ anImage height).
@@ -164,7 +164,7 @@
ImageView openOnImage:(Image fromFile:'bitmaps/SBrowser.xbm')
"
- "Modified: 10.4.1997 / 17:30:02 / cg"
+ "Modified: / 31.10.1997 / 16:37:36 / cg"
! !
!ImageView methodsFor:'accessing'!
@@ -290,5 +290,5 @@
!ImageView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.31 1997-06-24 08:01:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.32 1997-11-02 17:36:44 cg Exp $'
! !
--- a/ImgEditV.st Sun Nov 02 18:26:31 1997 +0100
+++ b/ImgEditV.st Sun Nov 02 18:36:44 1997 +0100
@@ -56,10 +56,13 @@
openOn:aFileName
"startup an image editor on an image read from a file"
- |editView|
+ |editView fn dir|
editView := super openOn:aFileName.
- editView pathName:aFileName asFilename pathName.
+ dir := (fn := aFileName asFilename) directory.
+ dir exists ifTrue:[
+ editView pathName:(fn pathName).
+ ].
^ editView
@@ -68,7 +71,7 @@
ImageEditView openOn:'bitmaps/xpmBitmaps/BOOK.xpm'
"
- "Modified: 10.4.1997 / 17:31:17 / cg"
+ "Modified: / 31.10.1997 / 16:19:23 / cg"
! !
!ImageEditView methodsFor:'accessing'!
@@ -860,5 +863,5 @@
!ImageEditView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ImgEditV.st,v 1.45 1997-07-31 11:49:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ImgEditV.st,v 1.46 1997-11-02 17:35:59 cg Exp $'
! !