--- a/MenuEditor.st Sat Oct 09 14:21:55 1999 +0200
+++ b/MenuEditor.st Mon Oct 11 17:54:39 1999 +0200
@@ -2308,7 +2308,7 @@
tabSelection: aSelection
"put the section aSelection into the note book
"
- |view|
+ |view canvasView|
tabSelection = aSelection ifTrue:[
^ self
@@ -2325,7 +2325,21 @@
view := listOfCanvas at:typeOfCanvas ifAbsentPut:[View new client:self spec:typeOfCanvas].
]
].
- self tabCanvasHolder value:view
+
+ "/ before bringing up the new notebook page,
+ "/ we must disable all now invisible input fields ...
+ "/ (otherwise, those would fire on #accept.
+
+ canvasView := self tabCanvasHolder value.
+ canvasView notNil ifTrue:[
+ canvasView allSubViewsDo:[:aComponent |
+ aComponent isInputField ifTrue:[
+ aComponent disableIfInvisible:true
+ ]
+ ]
+ ].
+
+ self tabCanvasHolder value:view.
! !