karl

should I publish this code in MorphicExtras?

Stef

> Try this changeset
> Karl
> 'From Squeak3.9alpha of 4 July 2005 [latest update: #6702] on 5  
> November 2005 at 2:47:45 pm'!
>
> !PasteUpMorph methodsFor: '*MorphicExtras-world state' stamp: 'kfr  
> 10/16/2005 00:44'!
> restoreFlapsDisplay
>     "Restore the display of flaps"
>
>     (Flaps sharedFlapsAllowed and: [Project current flapsSuppressed  
> not]) ifTrue:
>         [Flaps globalFlapTabs do:
>             [:aFlapTab | aFlapTab adaptToWorld]].
>     self localFlapTabs do:
>             [:aFlapTab | aFlapTab adaptToWorld].
>     self assureFlapTabsFitOnScreen.
>     self bringTopmostsToFront! !
>
>
> !Project methodsFor: 'flaps support' stamp: 'kfr 11/5/2005 14:43'!
> suppressFlapsString
> ^ (self flapsSuppressed
>         ifTrue: ['<no>']
>         ifFalse: ['<yes>']), 'show shared tabs (F)' translated! !
>
> !Project methodsFor: 'flaps support' stamp: 'kfr 11/4/2005 23:08'!
> toggleFlapsSuppressed
> "
> Project toggleFlapsSuppressed
> "
>
>     ^self flapsSuppressed: self flapsSuppressed not.! !
>
>
>