hg/stx-libwidg: SequenceView.st@69c10efca8f4 (annotated)

1238 9d002bb1ae64 intitial checkin ca parents: diff changeset	1	ScrollableView subclass:#SequenceView
9d002bb1ae64 intitial checkin ca parents: diff changeset	2	instanceVariableNames:''
9d002bb1ae64 intitial checkin ca parents: diff changeset	3	classVariableNames:''
9d002bb1ae64 intitial checkin ca parents: diff changeset	4	poolDictionaries:''
1770 21860fc4cbde category change Claus Gittinger <cg@exept.de> parents: 1602 diff changeset	5	category:'Views-Lists'
1238 9d002bb1ae64 intitial checkin ca parents: diff changeset	6	!
9d002bb1ae64 intitial checkin ca parents: diff changeset	7
9d002bb1ae64 intitial checkin ca parents: diff changeset	8	!SequenceView class methodsFor:'documentation'!
9d002bb1ae64 intitial checkin ca parents: diff changeset	9
9d002bb1ae64 intitial checkin ca parents: diff changeset	10	documentation
9d002bb1ae64 intitial checkin ca parents: diff changeset	11	"
9d002bb1ae64 intitial checkin ca parents: diff changeset	12	implements a SelectionInListView with configurable scrollbars
9d002bb1ae64 intitial checkin ca parents: diff changeset	13
9d002bb1ae64 intitial checkin ca parents: diff changeset	14	ST-80 compatibility
9d002bb1ae64 intitial checkin ca parents: diff changeset	15
9d002bb1ae64 intitial checkin ca parents: diff changeset	16	[see also:]
9d002bb1ae64 intitial checkin ca parents: diff changeset	17	SelectionInListView
9d002bb1ae64 intitial checkin ca parents: diff changeset	18	"
9d002bb1ae64 intitial checkin ca parents: diff changeset	19	!
9d002bb1ae64 intitial checkin ca parents: diff changeset	20
9d002bb1ae64 intitial checkin ca parents: diff changeset	21	examples
9d002bb1ae64 intitial checkin ca parents: diff changeset	22	"
9d002bb1ae64 intitial checkin ca parents: diff changeset	23	same behavior as a SelectionInListView
9d002bb1ae64 intitial checkin ca parents: diff changeset	24	[exBegin]
9d002bb1ae64 intitial checkin ca parents: diff changeset	25	\|top doc holder\|
9d002bb1ae64 intitial checkin ca parents: diff changeset	26
9d002bb1ae64 intitial checkin ca parents: diff changeset	27	top := StandardSystemView extent:500@500.
9d002bb1ae64 intitial checkin ca parents: diff changeset	28	doc := self origin:0.0@ 0.0 corner:1.0@1.0 in:top.
9d002bb1ae64 intitial checkin ca parents: diff changeset	29	top openAndWait.
9d002bb1ae64 intitial checkin ca parents: diff changeset	30	doc list:#( 'a' 'b' 'c' 'd' ).
9d002bb1ae64 intitial checkin ca parents: diff changeset	31	doc multipleSelectOk:true.
9d002bb1ae64 intitial checkin ca parents: diff changeset	32	[exEnd]
9d002bb1ae64 intitial checkin ca parents: diff changeset	33	"
9d002bb1ae64 intitial checkin ca parents: diff changeset	34
9d002bb1ae64 intitial checkin ca parents: diff changeset	35	! !
9d002bb1ae64 intitial checkin ca parents: diff changeset	36
1592 d545f9ba1fba fixed defaultFont. Claus Gittinger <cg@exept.de> parents: 1238 diff changeset	37	!SequenceView class methodsFor:'defaults'!
d545f9ba1fba fixed defaultFont. Claus Gittinger <cg@exept.de> parents: 1238 diff changeset	38
d545f9ba1fba fixed defaultFont. Claus Gittinger <cg@exept.de> parents: 1238 diff changeset	39	defaultFont
d545f9ba1fba fixed defaultFont. Claus Gittinger <cg@exept.de> parents: 1238 diff changeset	40	^ SelectionInListView defaultFont
d545f9ba1fba fixed defaultFont. Claus Gittinger <cg@exept.de> parents: 1238 diff changeset	41
d545f9ba1fba fixed defaultFont. Claus Gittinger <cg@exept.de> parents: 1238 diff changeset	42	"Created: / 20.6.1998 / 14:17:01 / cg"
d545f9ba1fba fixed defaultFont. Claus Gittinger <cg@exept.de> parents: 1238 diff changeset	43	! !
d545f9ba1fba fixed defaultFont. Claus Gittinger <cg@exept.de> parents: 1238 diff changeset	44
2100 69c10efca8f4 category renamining Claus Gittinger <cg@exept.de> parents: 2023 diff changeset	45	!SequenceView methodsFor:'Compatibility - ST80'!
1602 35e103b2f981 added #optimizeForText (dummy - ST80 compat) Claus Gittinger <cg@exept.de> parents: 1592 diff changeset	46
35e103b2f981 added #optimizeForText (dummy - ST80 compat) Claus Gittinger <cg@exept.de> parents: 1592 diff changeset	47	optimizeForText
35e103b2f981 added #optimizeForText (dummy - ST80 compat) Claus Gittinger <cg@exept.de> parents: 1592 diff changeset	48	"dummy - ST-80 compatibility"
35e103b2f981 added #optimizeForText (dummy - ST80 compat) Claus Gittinger <cg@exept.de> parents: 1592 diff changeset	49
35e103b2f981 added #optimizeForText (dummy - ST80 compat) Claus Gittinger <cg@exept.de> parents: 1592 diff changeset	50	"Created: / 6.7.1998 / 13:26:18 / cg"
35e103b2f981 added #optimizeForText (dummy - ST80 compat) Claus Gittinger <cg@exept.de> parents: 1592 diff changeset	51	! !
35e103b2f981 added #optimizeForText (dummy - ST80 compat) Claus Gittinger <cg@exept.de> parents: 1592 diff changeset	52
1238 9d002bb1ae64 intitial checkin ca parents: diff changeset	53	!SequenceView methodsFor:'accessing'!
9d002bb1ae64 intitial checkin ca parents: diff changeset	54
9d002bb1ae64 intitial checkin ca parents: diff changeset	55	font:aFont
9d002bb1ae64 intitial checkin ca parents: diff changeset	56	"set the font for the scrooled view
9d002bb1ae64 intitial checkin ca parents: diff changeset	57	"
9d002bb1ae64 intitial checkin ca parents: diff changeset	58	super font:aFont.
9d002bb1ae64 intitial checkin ca parents: diff changeset	59	self scrolledView font:aFont.
9d002bb1ae64 intitial checkin ca parents: diff changeset	60	! !
9d002bb1ae64 intitial checkin ca parents: diff changeset	61
9d002bb1ae64 intitial checkin ca parents: diff changeset	62	!SequenceView methodsFor:'initialization'!
9d002bb1ae64 intitial checkin ca parents: diff changeset	63
9d002bb1ae64 intitial checkin ca parents: diff changeset	64	initialize
9d002bb1ae64 intitial checkin ca parents: diff changeset	65	"setup scrollable view a SelectionInList instance
9d002bb1ae64 intitial checkin ca parents: diff changeset	66	"
9d002bb1ae64 intitial checkin ca parents: diff changeset	67	super initialize.
9d002bb1ae64 intitial checkin ca parents: diff changeset	68
9d002bb1ae64 intitial checkin ca parents: diff changeset	69	self verticalScrollable:true; verticalMini:false.
9d002bb1ae64 intitial checkin ca parents: diff changeset	70	self horizontalScrollable:true; horizontalMini:false.
9d002bb1ae64 intitial checkin ca parents: diff changeset	71
9d002bb1ae64 intitial checkin ca parents: diff changeset	72	self scrolledView:SelectionInListView new
9d002bb1ae64 intitial checkin ca parents: diff changeset	73
9d002bb1ae64 intitial checkin ca parents: diff changeset	74
9d002bb1ae64 intitial checkin ca parents: diff changeset	75	! !
9d002bb1ae64 intitial checkin ca parents: diff changeset	76
9d002bb1ae64 intitial checkin ca parents: diff changeset	77	!SequenceView class methodsFor:'documentation'!
9d002bb1ae64 intitial checkin ca parents: diff changeset	78
9d002bb1ae64 intitial checkin ca parents: diff changeset	79	version
2100 69c10efca8f4 category renamining Claus Gittinger <cg@exept.de> parents: 2023 diff changeset	80	^ '$Header: /cvs/stx/stx/libwidg/SequenceView.st,v 1.6 2000-01-17 11:17:53 cg Exp $'
1238 9d002bb1ae64 intitial checkin ca parents: diff changeset	81	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 17 Jan 2000 12:18:33 +0100
changeset 2100	69c10efca8f4
parent 2023	ecd0f7dc806e
child 2150	3cee520c3f91
permissions	-rw-r--r--