--- a/UIPainter.st Wed Oct 29 18:07:48 1997 +0100
+++ b/UIPainter.st Wed Oct 29 19:03:07 1997 +0100
@@ -1557,22 +1557,6 @@
self accept
]
]
-!
-
-setMaxExtent
- "set the windows maxExtent from its current extent"
-
- self painter setMaxExtent
-
- "Modified: / 27.10.1997 / 03:22:58 / cg"
-!
-
-setMinExtent
- "set the windows minExtent from its current extent"
-
- self painter setMinExtent
-
- "Modified: / 27.10.1997 / 03:23:10 / cg"
! !
!UIPainter methodsFor:'aspects'!
@@ -2635,11 +2619,15 @@
self isModified ifTrue:[
(self confirm:'accept change made in ' , tabSelection printString , ' section ?') ifTrue:[
self accept.
- self painter isModified ifTrue:[
+ "/ "XXX must be fixed - canvas changes are not recorded in the history
+ "/ so isModified returns false here
+ "/
+ "/ self painter isModified ifTrue:[
+ "/
(self confirm:'reinstall the new spec ?' withCRs) ifTrue:[
self doInstallSpec
]
- ].
+ "/ ].
]
].
self painter isModified ifTrue:[
@@ -2673,7 +2661,7 @@
].
app openInterface:specSelector
- "Modified: / 26.10.1997 / 22:57:30 / cg"
+ "Modified: / 29.10.1997 / 19:01:50 / cg"
!
doWindowSpec