--- 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$'
! !