[Pharo-project] help to remove toolbuilder
stephane.ducasse at inria.fr
Mon Jun 6 03:05:18 EDT 2011
Yes I did that for the moment :)
On Jun 5, 2011, at 11:32 PM, Schwab,Wilhelm K wrote:
> 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?
> 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)].
> bounds: (aSystemWindow bounds translatedToBeWithin: area).
> [ToolBuilder default runModal: aSystemWindow openAsIs]
> ensure: [mySysWin modalUnlockFrom: aSystemWindow.
> self activeHand newKeyboardFocus: keyboardFocus].
More information about the Pharo-dev