[Pharo-project] help to remove toolbuilder

Stéphane Ducasse stephane.ducasse at inria.fr
Mon Jun 6 03:05:18 EDT 2011


Yes I did that for the moment :)

Stef

On Jun 5, 2011, at 11:32 PM, Schwab,Wilhelm K wrote:

> Stef,
> 
> It looks like it goes into the following loop:
> 
> 	[aWidget world notNil] whileTrue: [
> 		aWidget outermostWorldMorph doOneCycle.
> 	].
> 
> where aWidget is the system window of interest.  You might simply add this code (make a backup first<g>), see if that goes well.  
> 
> Does that help?
> 
> Bill
> 
> 
> 
> ________________________________________
> From: pharo-project-bounces at lists.gforge.inria.fr [pharo-project-bounces at lists.gforge.inria.fr] On Behalf Of Stéphane Ducasse [stephane.ducasse at inria.fr]
> Sent: Sunday, June 05, 2011 3:17 PM
> To: Pharo-project open-source Smalltalk
> Subject: [Pharo-project] help to remove toolbuilder
> 
> Hi gary
> 
> 
> I could nearly remove toolBuilder if I could know what to do with
>        [ToolBuilder default runModal: aSystemWindow openAsIs] in
> 
> 
> openModal: aSystemWindow
>        "Open the given window locking the receiver until it is dismissed.
>        Answer the system window.
>        Restore the original keyboard focus when closed."
> 
>        |area mySysWin keyboardFocus|
>        keyboardFocus := self activeHand keyboardFocus.
>        mySysWin := self isSystemWindow ifTrue: [self] ifFalse: [self ownerThatIsA: SystemWindow].
>        mySysWin ifNil: [mySysWin := self].
>        mySysWin modalLockTo: aSystemWindow.
>        area := RealEstateAgent maximumUsableArea.
>        aSystemWindow extent: aSystemWindow initialExtent.
>        aSystemWindow position = (0 at 0)
>                ifTrue: [aSystemWindow
>                                position: self activeHand position - (aSystemWindow extent // 2)].
>        aSystemWindow
>                bounds: (aSystemWindow bounds translatedToBeWithin: area).
>        [ToolBuilder default runModal: aSystemWindow openAsIs]
>                ensure: [mySysWin modalUnlockFrom: aSystemWindow.
>                                self activeHand newKeyboardFocus: keyboardFocus].
>        ^aSystemWindow
> 
> Stef
> 





More information about the Pharo-dev mailing list