# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 921873954 -3600
# Node ID 5096f66ba82d5cb2f9f7993a16509bda8732d1d0
# Parent  fa70f4678a13c5170c965fe71b3d87970221667a
new inputField accept/modified behavior

diff -r fa70f4678a13 -r 5096f66ba82d TabListEditor.st
--- a/TabListEditor.st	Fri Mar 19 21:01:50 1999 +0100
+++ b/TabListEditor.st	Fri Mar 19 21:05:54 1999 +0100
@@ -214,6 +214,9 @@
                     #layout: #(#LayoutFrame 100 0 15 0 -5 1.0 37 0)
                     #activeHelpKey: #label
                     #model: #label
+                              #modifiedChannel: #modifiedChannel
+                              #acceptChannel: #acceptChannel
+                              #acceptOnLostFocus: true
                 )
                  #(#CheckBoxSpec
                     #name: 'TranslateLabel'
@@ -233,6 +236,9 @@
                     #layout: #(#LayoutFrame 100 0 70 0 -5 1.0 92 0)
                     #activeHelpKey: #argument
                     #model: #editAgument
+                              #modifiedChannel: #modifiedChannel
+                              #acceptChannel: #acceptChannel
+                              #acceptOnLostFocus: true
                 )
                  #(#LabelSpec
                     #name: 'ForegroundLabel'
@@ -504,20 +510,6 @@
                 )
             )
              #(#MenuItem
-                #label: 'Settings'
-                #submenu: 
-                 #(#Menu
-                    
-                     #(
-                       #(#MenuItem
-                          #label: 'Fonts'
-                          #submenuChannel: #menuFont
-                      )
-                    ) nil
-                    nil
-                )
-            )
-             #(#MenuItem
                 #label: 'History'
                 #activeHelpKey: #history
                 #submenuChannel: #menuHistory
@@ -945,7 +937,6 @@
     self valueOfCanCopy value: (anIndex ~~ 0).
     self valueOfCanPaste.
 
-    self updateFonts
 ! !
 
 !TabListEditor methodsFor:'startup / release'!
@@ -986,6 +977,9 @@
     "
     |label|
 
+    self acceptChannel value:true.      "/ toggle to force inputFields to accept
+    self acceptChannel value:false.    
+
     selectedIndex ~~ 0 ifTrue:[
         rebuildMode := true.
         label := listOfTabs at:selectedIndex.
@@ -1284,5 +1278,5 @@
 !TabListEditor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /files/CVS/stx/libtool2/TabListEditor.st,v'
+    ^ '$Header$'
 ! !