.
--- a/EditField.st Sat Aug 19 17:57:03 1995 +0200
+++ b/EditField.st Wed Aug 23 20:06:29 1995 +0200
@@ -15,7 +15,7 @@
EditTextView subclass:#EditField
instanceVariableNames:'leaveAction enabled enableAction crAction tabAction converter
leaveKeys immediateAccept acceptOnLeave acceptOnReturn
- lengthLimit'
+ lengthLimit entryCompletionBlock'
classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
DefaultSelectionForegroundColor DefaultSelectionBackgroundColor
DefaultFont'
@@ -27,7 +27,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.26 1995-07-03 02:32:46 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.27 1995-08-23 18:05:07 claus Exp $
'!
!EditField class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.26 1995-07-03 02:32:46 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.27 1995-08-23 18:05:07 claus Exp $
"
!
@@ -586,6 +586,12 @@
^ list at:1
!
+entryCompletionBlock:aBlock
+ "define an action to be evaluated when Tab (NameCompletion) is pressed"
+
+ entryCompletionBlock := aBlock
+!
+
leaveAction:aBlock
"define an action to be evaluated when field is left by return key"
@@ -938,6 +944,9 @@
(key == #Tab) ifTrue:[
tabAction notNil ifTrue:[tabAction value. ^ self].
+ entryCompletionBlock notNil ifTrue:[
+ entryCompletionBlock value. ^ self
+ ]
].
(key == #Return) ifTrue:[
crAction notNil ifTrue:[crAction value. ^ self].
--- a/EnterBox.st Sat Aug 19 17:57:03 1995 +0200
+++ b/EnterBox.st Wed Aug 23 20:06:29 1995 +0200
@@ -37,7 +37,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.27 1995-08-11 16:07:08 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.28 1995-08-23 18:05:16 claus Exp $
"
!
@@ -196,12 +196,22 @@
^ enterField contents
!
+contents:aString
+ "set my contents"
+
+ enterField contents:aString
+!
+
initialText:aString
"define the initial text in the enterfield. all will be selected initially"
enterField initialText:aString
!
+entryCompletionBlock:aBlock
+ enterField entryCompletionBlock:aBlock
+!
+
title:aString
"set the title to be displayed at top of enterBox"
--- a/Label.st Sat Aug 19 17:57:03 1995 +0200
+++ b/Label.st Wed Aug 23 20:06:29 1995 +0200
@@ -14,7 +14,8 @@
View subclass:#Label
instanceVariableNames:'logo labelWidth labelHeight labelOriginX labelOriginY adjust
- hSpace vSpace bgColor fgColor fixSize labelMsg converter'
+ hSpace vSpace bgColor fgColor fixSize labelMsg converter
+ logoChannel foregroundChannel backgroundChannel'
classVariableNames:'DefaultFont DefaultForegroundColor DefaultBackgroundColor'
poolDictionaries:''
category:'Views-Layout'
@@ -24,7 +25,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/Label.st,v 1.27 1995-07-23 03:01:52 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Label.st,v 1.28 1995-08-23 18:05:44 claus Exp $
'!
!Label class methodsFor:'documentation'!
@@ -45,7 +46,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/Label.st,v 1.27 1995-07-23 03:01:52 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Label.st,v 1.28 1995-08-23 18:05:44 claus Exp $
"
!
--- a/Make.proto Sat Aug 19 17:57:03 1995 +0200
+++ b/Make.proto Wed Aug 23 20:06:29 1995 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libwidg/Make.proto,v 1.27 1995-08-16 15:35:00 claus Exp $
+# $Header: /cvs/stx/stx/libwidg/Make.proto,v 1.28 1995-08-23 18:06:29 claus Exp $
#
# -------------- no need to change anything below ----------
@@ -127,106 +127,5 @@
#ListView.$(O):
# $(MAKE) $(BIG_STFILE_RULE) BIG_FILE=ListView
-#
-# next thing I'll build into stc is a makedepend feature for this ...
-#
-I= $(INCLUDE)
-STCHDR=$(I)/stc.h $(I)/stcIntern.h $(CPUINTERN_H)
-objs:: $(STDHDR)
-
-OBJECT=$(I)/Object.H $(STCHDR)
-
-DEVDRAWABLE=$(I)/DevDraw.H $(I)/DMedium.H $(I)/GC.H $(OBJECT)
-PSEUDOVIEW=$(I)/PseudoV.H $(DEVDRAWABLE)
-SIMPLEVIEW=$(I)/SimpleView.H $(PSEUDOVIEW)
-VIEW=$(I)/View.H $(SIMPLEVIEW)
-POPUPVIEW=$(I)/PopUpView.H $(I)/TopView.H $(VIEW)
-STDSYSVIEW=$(I)/StdSysV.H $(I)/TopView.H $(VIEW)
-LISTVIEW=$(I)/ListView.H $(VIEW)
-SELLISTVIEW=$(I)/SelListV.H $(LISTVIEW)
-TEXTVIEW=$(I)/TextView.H $(LISTVIEW)
-EDITTEXTVIEW=$(I)/ETxtView.H $(TEXTVIEW)
-TEXTCOLLECTOR=$(I)/TextColl.H $(EDITTEXTVIEW)
-MODALBOX=$(I)/ModalBox.H $(STDSYSVIEW)
-DIALOGBOX=$(I)/DialogBox.H $(MODALBOX)
-ENTERBOX=$(I)/EnterBox.H $(DIALOGBOX)
-LABEL=$(I)/Label.H $(VIEW)
-BUTTON=$(I)/Button.H $(LABEL)
-CONTROLLER=$(I)/Controll.H $(OBJECT)
-
-RButtGrp.$(O): RButtGrp.st $(I)/OrdColl.H $(OBJECT)
-EFGroup.$(O): EFGroup.st $(OBJECT)
-
-DialogBox.$(O): DialogBox.st $(MODALBOX)
-InfoBox.$(O): InfoBox.st $(DIALOGBOX)
-WarnBox.$(O): WarnBox.st $(I)/InfoBox.H $(DIALOGBOX)
-OptBox.$(O): OptBox.st $(MODALBOX)
-YesNoBox.$(O): YesNoBox.st $(I)/WarnBox.H $(I)/InfoBox.H $(DIALOGBOX)
-PopUpMenu.$(O): PopUpMenu.st $(POPUPVIEW)
-
-EnterBox.$(O): EnterBox.st $(DIALOGBOX)
-EnterBox2.$(O): EnterBox2.st $(ENTERBOX)
-LSelBox.$(O): LSelBox.st $(ENTERBOX)
-FSelBox.$(O): FSelBox.st $(I)/LSelBox.H $(ENTERBOX)
-FSaveBox.$(O): FSaveBox.st $(I)/FSelBox.H $(I)/LSelBox.H $(ENTERBOX)
-FontPanel.$(O): FontPanel.st $(DIALOGBOX)
-
-ListView.$(O): ListView.st $(VIEW)
-SelListV.$(O): SelListV.st $(LISTVIEW)
-MenuView.$(O): MenuView.st $(SELLISTVIEW)
-FSelList.$(O): FSelList.st $(SELLISTVIEW)
-TextView.$(O): TextView.st $(LISTVIEW)
-ETxtView.$(O): ETxtView.st $(TEXTVIEW)
-EditField.$(O): EditField.st $(EDITTEXTVIEW)
-TextColl.$(O): TextColl.st $(EDITTEXTVIEW)
-Workspace.$(O): Workspace.st $(TEXTCOLLECTOR)
-CodeView.$(O): CodeView.st $(I)/Workspace.H $(TEXTCOLLECTOR)
-
-ClckMenuV.$(O): ClckMenuV.st $(I)/MenuView.H $(SELLISTVIEW)
-
-PanelView.$(O): PanelView.st $(VIEW)
-HPanelV.$(O): HPanelV.st $(I)/PanelView.H $(VIEW)
-VPanelV.$(O): VPanelV.st $(I)/PanelView.H $(VIEW)
-
-VarVPanel.$(O): VarVPanel.st $(VIEW)
-VarHPanel.$(O): VarHPanel.st $(I)/VarVPanel.H $(VIEW)
-
-ScrView.$(O): ScrView.st $(VIEW)
-HVScrView.$(O): HVScrView.st $(I)/ScrView.H $(VIEW)
-
-PullDMenu.$(O): PullDMenu.st $(VIEW)
-
-Label.$(O): Label.st $(VIEW)
-# DigiLed.$(O): DigiLed.st $(VIEW)
-Button.$(O): Button.st $(LABEL)
-PopUpList.$(O): PopUpList.st $(BUTTON)
-Toggle.$(O): Toggle.st $(BUTTON)
-RButton.$(O): RButton.st $(I)/Toggle.H $(BUTTON)
-ArrButton.$(O): ArrButton.st $(BUTTON)
-ChckTggle.$(O): ChckTggle.st $(I)/Toggle.H $(BUTTON)
-FramedBox.$(O): FramedBox.st $(VIEW)
-
-EvMonitor.$(O): EvMonitor.st $(STDSYSVIEW)
-
-ScrollBar.$(O): ScrollBar.st $(VIEW)
-HScrBar.$(O): HScrBar.st $(I)/ScrollBar.H $(VIEW)
-Scroller.$(O): Scroller.st $(VIEW)
-HScroller.$(O): HScroller.st $(I)/Scroller.H $(VIEW)
-MiniScr.$(O): MiniScr.st $(I)/Scroller.H $(VIEW)
-HMiniScr.$(O): HMiniScr.st $(I)/MiniScr.H $(I)/Scroller.H $(VIEW)
-
-ObjView.$(O): ObjView.st $(VIEW)
-FormEdtView.$(O): FormEdtView.st $(VIEW)
-
-TextContr.$(O): TextContr.st $(CONTROLLER)
-ETxtContr.$(O): ETxtContr.st $(I)/TextContr.H $(CONTROLLER)
-
-ButtonC.$(O): ButtonC.st $(CONTROLLER)
-PopUpLstC.$(O): PopUpLstC.st $(I)/ButtonC.H $(CONTROLLER)
-ToggleC.$(O): ToggleC.st $(I)/ButtonC.H $(CONTROLLER)
-RButtC.$(O): RButtC.st $(I)/ToggleC.H $(I)/ButtonC.H $(CONTROLLER)
-VarPanelC.$(O): VarPanelC.st $(CONTROLLER)
-VarVPanelC.$(O): VarVPanelC.st $(I)/VarPanelC.H $(CONTROLLER)
-VarHPanelC.$(O): VarHPanelC.st $(I)/VarPanelC.H $(CONTROLLER)
-
-SelList.$(O): SelList.st $(I)/Model.H $(OBJECT)
+# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
+# ENDMAKEDEPEND --- do not remove this line; make depend needs it