[ANN] 6696 out

karl karl.ramberg at chello.se
Sat Nov 5 16:50:03 UTC 2005


stéphane ducasse wrote:

> 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.! !
>>
>>
>>
>
>
>
>
Sure, and you can then close issue #2124 on mantis :-)

Karl




More information about the Squeak-dev mailing list