hg/stx-goodies-monticello: MCChangeSelector.st@92bb466548a9 (annotated)

120 3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/monticello' }"
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
995 92bb466548a9 Removed test classes from stx:goodies/monticello - they're in tests sub package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 579 diff changeset	3	"{ NameSpace: Smalltalk }"
92bb466548a9 Removed test classes from stx:goodies/monticello - they're in tests sub package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 579 diff changeset	4
120 3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	MCPatchBrowser subclass:#MCChangeSelector
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:'kept'
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
579 76eef5d694b4 category change Claus Gittinger <cg@exept.de> parents: 120 diff changeset	9	category:'SCM-Monticello-UI'
120 3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	!MCChangeSelector methodsFor:'as yet unclassified'!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	buttonSpecs
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	^ #((Select select 'Select these changes')
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	(Cancel cancel 'Cancel the operation')
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	)
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	cancel
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	self answer: nil
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	defaultLabel
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	^ 'Change Selector'
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	innerButtonRow
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	^ self buttonRow:
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	#(('Select All' selectAll 'select all changes')
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	('Select None' selectNone 'select no changes'))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	kept
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	^ kept ifNil: [kept _ Set new]
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	listSelectionAt: aNumber
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	^ self kept includes: (self items at: aNumber)
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	listSelectionAt: aNumber put: aBoolean
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	\| item \|
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	item _ self items at: aNumber.
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	aBoolean
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	ifTrue: [self kept add: item ]
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	ifFalse: [self kept remove: item ifAbsent: []]
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	select
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	self answer: (MCPatch operations: kept)
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	selectAll
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	kept addAll: self items.
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	self changed: #list
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	selectNone
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	kept _ Set new.
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	self changed: #list
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	widgetSpecs
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	Preferences annotationPanes ifFalse: [ ^#(
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	((buttonRow) (0 0 1 0) (0 0 0 30))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	((multiListMorph:selection:listSelection:menu: list selection listSelectionAt: methodListMenu:) (0 0 1 0.4) (0 30 0 0))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	((innerButtonRow) (0 0.4 1 0.4) (0 0 0 30))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	((textMorph: text) (0 0.4 1 1) (0 30 0 0))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	)].
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	^ #(
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	((buttonRow) (0 0 1 0) (0 0 0 30))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	((multiListMorph:selection:listSelection:menu: list selection listSelectionAt: methodListMenu:) (0 0 1 0.4) (0 30 0 0))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	((innerButtonRow) (0 0.4 1 0.4) (0 0 0 30))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	((textMorph: annotations) (0 0.4 1 0.4) (0 30 0 60))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	((textMorph: text) (0 0.4 1 1) (0 60 0 0))
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	)
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	! !
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	!MCChangeSelector class methodsFor:'documentation'!
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83
3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	version
579 76eef5d694b4 category change Claus Gittinger <cg@exept.de> parents: 120 diff changeset	85	^ '$Header: /cvs/stx/stx/goodies/monticello/MCChangeSelector.st,v 1.2 2012-09-11 21:01:15 cg Exp $'
120 3ba3023297b3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	! !
995 92bb466548a9 Removed test classes from stx:goodies/monticello - they're in tests sub package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 579 diff changeset	87

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sun, 10 May 2015 05:53:16 +0100
branch	jv
changeset 995	92bb466548a9
parent 579	76eef5d694b4
child 1121	c5661215109c
permissions	-rw-r--r--