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

127 cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/monticello' }"
cc618c488ae3 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: 598 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: 598 diff changeset	4
127 cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	MCTool subclass:#MCSaveVersionDialog
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:'name message'
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
598 a8779c7a409b category change Claus Gittinger <cg@exept.de> parents: 127 diff changeset	9	category:'SCM-Monticello-UI'
127 cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	!MCSaveVersionDialog methodsFor:'as yet unclassified'!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	accept
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	self answer:
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	(Array
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	with: (self findTextMorph: #versionName) text asString
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	with: (self findTextMorph: #logMessage) text asString)
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	buttonSpecs
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	^ #((Accept accept 'accept version name and log message')
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	(Cancel cancel 'cancel saving version')
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	)
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	cancel
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	self answer: nil
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	defaultExtent
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	^ 400@300
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	defaultLabel
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	^ 'Edit Version Name and Message:'
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	logMessage
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	^ message ifNil: ['empty log message']
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	logMessage: aString
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	message _ aString.
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	self changed: #logMessage
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	versionName
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	^ name
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	versionName: aString
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	name _ aString.
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	self changed: #versionName
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	widgetSpecs
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	^ #(
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	((textMorph: versionName) (0 0 1 0) (0 0 0 30))
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	((textMorph: logMessage) (0 0 1 1) (0 30 0 -30))
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	((buttonRow) (0 1 1 1) (0 -30 0 0))
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	)
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	! !
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	!MCSaveVersionDialog class methodsFor:'documentation'!
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	version
598 a8779c7a409b category change Claus Gittinger <cg@exept.de> parents: 127 diff changeset	70	^ '$Header: /cvs/stx/stx/goodies/monticello/MCSaveVersionDialog.st,v 1.2 2012-09-11 21:14:47 cg Exp $'
127 cc618c488ae3 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	! !
995 92bb466548a9 Removed test classes from stx:goodies/monticello - they're in tests sub package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 598 diff changeset	72

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