System Windows not closing on using #close

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

System Windows not closing on using #close

Jigyasa Grover
Hi
I am using SystemWindow to open a Morph in my application searchQuick. ( https://github.com/jig08/sQuick_new )
On clicking a button, a new screen opens up but the prev window fails to close, though I have tried using #close methods.

The code snippets are as:

------------------------------------------------------------------------------------------------------------------
IndexInterface>>#initialize
. . . . . .
      boxWindow := SystemWindow new.
      box position: 150@0.
      boxWindow addMorph: box.
      boxWindow extent: World extent.
      boxWindow openInWindowLabeled: 'searchQuick'.
      boxWindow fullscreen.
      boxWindow color: Color black.
. . . . . . .

browseBtn on: #click send: #value to: [self boxWindow window close. IndexInterface delete. BrowseFiles open].

-------------------------------------------------------------------------------------------------------------------
IndexInterface>>#delete
box isNil ifFalse: [  self boxWindow window close. 
                                         self boxWindow window delete . 
                                         self boxWindow close. 
                                         box window close .
                                         self boxWindow delete. 
                                         box delete.].
box := nil.
self boxWindow window close. 
self boxWindow window delete .
self boxWindow close. 
self boxWindow delete.
boxWindow := nil.

-------------------------------------------------------------------------------------------------------------------

Help appreciated.

Regards
Jigyasa