Re: [Pharo-project] help to remove toolbuilder

June 6, 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@lists.gforge.inria.fr [pharo-project-bounces@lists.gforge.inria.fr] On Behalf Of StÃ©phane Ducasse [stephane.ducasse@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@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