[BUG][FIX] Global Flaps Fix
Hernan Tylim
htylim at yahoo.com.ar
Wed Dec 29 02:24:26 UTC 2004
Tried on the latest 3.8 gamma and 3.9 alpha. Here is my fix for dealing
with the global flaps disappearance. BTW, in 3.8 the font used for the
thumbnail labels doesn't render well in small font sizes.
This fix is also registered on Mantis.
'From Squeak3.9alpha of ''2 November 2004'' [latest update: #6536] on 28
December 2004 at 10:50:53 pm'!
"Change Set: GlobalFlapsFix-hpt
Date: 28 December 2004
Author: Hernan Tylim
This is a .cs with only a postscript that will reinstate the global
flaps on Squeak 3.8 (and 3.9).
I must say that I don't know if how I am doing it is the right way to do
it, but I figured that if after all this months nobody else tried to fix
this problem then I should make an attempt to it.
"
-------------- next part --------------
'From Squeak3.9alpha of ''2 November 2004'' [latest update: #6536] on 28 December 2004 at 10:50:53 pm'!
"Change Set: GlobalFlapsFix-hpt
Date: 28 December 2004
Author: Hernan Tylim
This is a .cs with only a postscript that will reinstate the global flaps on Squeak 3.8 (and 3.9).
I must say that I don't know if how I am doing it is the right way to do it, but I figured that if after all this months nobody else tried to fix this problem then I should make an attempt to it.
"!
"Postscript:
I basically took what the Flaps>>enableGlobalFlaps do.
First I remove the Supplies flap or I a duplicate of it will be created."
| w h |
Flaps removeFlapTab: (Flaps globalFlapTab: #Supplies) keepInList: false.
Flaps initializeStandardFlaps.
Smalltalk isMorphic ifTrue:
[ActiveWorld addGlobalFlaps.
Flaps doAutomaticLayoutOfFlapsIfAppropriate.
FlapTab allInstancesDo:
[:aTab | aTab computeEdgeFraction].
ActiveWorld reformulateUpdatingMenus].
{ Flaps globalFlapTab: #Tools. Flaps globalFlapTab: #Squeak }
do: [:aFlap |
w _ (aFlap referent submorphs detectMax: [:ea | ea width]) width.
aFlap referent width: (w + aFlap width)].
{ Flaps globalFlapTab: #Widgets. Flaps globalFlapTab: #Supplies }
do: [:aFlap |
h _ (aFlap referent submorphs detectMax: [:ea | ea height]) height.
aFlap referent height: (h + aFlap height)].
!
More information about the Squeak-dev
mailing list
|