added hasclosebox attr (jstrout) -- jvr

diff --git a/Mac/Tools/IDE/Wwindows.py b/Mac/Tools/IDE/Wwindows.py
index 99a5fc826ba9b2cb856d80bbdf06cee7c634dbf4..8e4d6654368881d2a0a07f4cc2e0fdbb1d216c35 100644 (file)
--- a/Mac/Tools/IDE/Wwindows.py
+++ b/Mac/Tools/IDE/Wwindows.py
@@ -33,6 +33,7 @@ class Window(FrameWork.Window, Wbase.SelectableWidget):
                self._drawwidgetbounds = 0
                self._show = show
                self._lastrollover = None
+               self.hasclosebox = 1
                # XXX the following is not really compatible with the
                #  new (system >= 7.5) window procs. 
                if minsize:
@@ -89,7 +90,7 @@ class Window(FrameWork.Window, Wbase.SelectableWidget):
        
        def open(self):
                self.wid = Win.NewCWindow(self._globalbounds, self.title, self._show,
-                       self.windowkind, -1, 1, 0)
+                       self.windowkind, -1, self.hasclosebox, 0)
                self.SetPort()
                fnum = Fm.GetFNum("Python-Sans")
                if fnum == 0: