Small Squeak 3.7 image
Lic. Edgar J. De Cleene
edgardec2001 at yahoo.com.ar
Tue Feb 15 11:29:25 UTC 2005
Pavel:
Here I send a first FIX to your image, is related to creating some Morphs.
Also I note what loading Morphs from normal Squeak do not bring Morphs in
yours image, I investigate on this.
Edgar
-------------- next part --------------
'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 15 February 2005 at 7:57:43 am'!
"Change Set: PasteUpMorphFix
Date: 15 February 2005
Author: Edgar J. De Cleene
You need this for creating some Morphs"!
!PasteUpMorph methodsFor: 'viewing' stamp: 'sw 10/18/2000 10:59'!
saveBoundsOfSubmorphs
"store the current xy-positions and extents of submorphs for future use"
submorphs do:
[:aSubmorph |
aSubmorph setProperty: #savedExtent toValue: aSubmorph extent.
aSubmorph setProperty: #savedPosition toValue: aSubmorph position]! !
!PasteUpMorph methodsFor: 'viewing' stamp: 'sw 10/23/2000 19:01'!
showingListView
"Answer whether the receiver is currently showing a list view"
^ self hasProperty: #showingListView
! !
!PasteUpMorph methodsFor: 'viewing' stamp: 'ar 11/8/2000 18:13'!
viewingNormally
"Answer whether the receiver is being viewed normally, viz not in list-view or auto-line-layout"
^ (self showingListView or: [self autoLineLayout == true]) not
! !
More information about the Squeak-dev
mailing list
|