hg/stx-libscm: mercurial/HGCommitDialog.st@08c6eca6df25 (annotated)

46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	1	"{ Package: 'stx:libscm/mercurial' }"
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	2
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	3	SCMAbstractCommitDialog subclass:#HGCommitDialog
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	4	instanceVariableNames:'defaultLogo'
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	5	classVariableNames:''
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	6	poolDictionaries:''
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	7	category:'SCM-Mercurial-StX-Interface'
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	8	!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	9
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	10
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	11	!HGCommitDialog class methodsFor:'image specs'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	12
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	13	dialogIcon
67 985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	14	^ HGIconLibrary hgLogo2
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	15
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	16	"Created: / 14-11-2012 / 00:14:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
67 985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	17	"Modified: / 16-11-2012 / 11:01:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	18	! !
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	19
55 30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	20	!HGCommitDialog class methodsFor:'interface specs'!
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	21
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	22	fileListColumnSpec
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	23	"This resource specification was automatically generated
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	24	by the DataSetBuilder of ST/X."
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	25
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	26	"Do not manually edit this!! If it is corrupted,
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	27	the DataSetBuilder may not be able to read the specification."
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	28
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	29	"
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	30	DataSetBuilder new openOnClass:SVN::CommitDialog2 andSelector:#fileListColumnSpec
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	31	"
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	32
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	33	<resource: #tableColumns>
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	34
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	35	^#(
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	36	(DataSetColumnSpec
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	37	label: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	38	activeHelpKey: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	39	activeHelpKeyForLabel: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	40	labelButtonType: None
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	41	width: 22
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	42	minWidth: 22
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	43	editorType: CheckToggle
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	44	rendererType: CheckToggle
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	45	model: include
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	46	menuFromApplication: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	47	printSelector: include
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	48	showRowSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	49	showColSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	50	)
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	51	(DataSetColumnSpec
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	52	label: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	53	activeHelpKey: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	54	activeHelpKeyForLabel: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	55	labelButtonType: Button
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	56	width: 22
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	57	minWidth: 22
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	58	menuFromApplication: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	59	printSelector: statusIcon
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	60	canSelect: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	61	showRowSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	62	showColSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	63	)
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	64	(DataSetColumnSpec
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	65	label: 'Container'
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	66	labelAlignment: left
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	67	activeHelpKey: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	68	activeHelpKeyForLabel: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	69	labelButtonType: Button
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	70	menuFromApplication: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	71	printSelector: pathText
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	72	canSelect: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	73	showRowSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	74	showColSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	75	)
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	76	"
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	77	(DataSetColumnSpec
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	78	label: 'Rev'
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	79	activeHelpKey: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	80	activeHelpKeyForLabel: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	81	labelButtonType: Button
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	82	usePreferredWidth: true
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	83	menuFromApplication: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	84	printSelector: revision
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	85	canSelect: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	86	showRowSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	87	showColSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	88	)
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	89	(DataSetColumnSpec
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	90	label: 'Author'
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	91	labelAlignment: left
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	92	activeHelpKey: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	93	activeHelpKeyForLabel: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	94	labelButtonType: Button
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	95	usePreferredWidth: true
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	96	menuFromApplication: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	97	printSelector: author
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	98	canSelect: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	99	showRowSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	100	showColSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	101	)
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	102	(DataSetColumnSpec
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	103	label: 'Date'
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	104	activeHelpKey: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	105	activeHelpKeyForLabel: ''
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	106	labelButtonType: Button
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	107	usePreferredWidth: true
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	108	menuFromApplication: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	109	printSelector: date
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	110	canSelect: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	111	showRowSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	112	showColSeparator: false
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	113	)
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	114	"
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	115	)
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	116
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	117	"Created: / 15-11-2012 / 09:28:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	118	! !
30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	119
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	120	!HGCommitDialog methodsFor:'change & update'!
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	121
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	122	updateFileList
57 47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 55 diff changeset	123	\| wcroot statuses entries showOnlyModified wcrootPathNameRelative wcrootPathNameRelativeLen \|
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	124
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	125	showOnlyModified := fileListShowOnlyModifiedHolder value.
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	126	"HACK..."
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	127
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	128	wcroot := self model package root.
57 47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 55 diff changeset	129	wcrootPathNameRelative := wcroot pathNameRelative.
67 985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	130	wcrootPathNameRelativeLen := wcrootPathNameRelative size.
985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	131
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	132	statuses := HGCommand status
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	133	workingDirectory: wcroot pathName;
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	134	execute.
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	135	entries := OrderedCollection new: statuses size.
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	136	statuses do:[:statusAndPath\|
67 985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	137	(fileListShowOnlyModifiedHolder value not
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	138	or:[statusAndPath first isCleanOrIgnored not]) ifTrue:[
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	139	\| nm entry \|
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	140
57 47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 55 diff changeset	141	(statusAndPath second startsWith: wcrootPathNameRelative) ifTrue:[
67 985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	142	nm := statusAndPath second.
985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	143	wcrootPathNameRelativeLen ~~ 0 ifTrue:[
985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	144	nm := nm copyFrom:wcrootPathNameRelativeLen + 2.
985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	145	].
57 47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 55 diff changeset	146	entry := SCMAbstractCommitDialog::FileEntry application: self entry: wcroot / nm name: nm.
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 55 diff changeset	147	entries add: entry
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 55 diff changeset	148	].
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	149	].
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	150	].
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	151	self fileListHolder value: entries
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	152
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	153	"Created: / 08-02-2012 / 18:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
67 985488894699 HGCommitDialog: nicer icons, fix for file list vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	154	"Modified: / 16-11-2012 / 11:27:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	155	! !
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	156
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	157	!HGCommitDialog methodsFor:'private'!
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	158
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	159	doUpdateWorkingCopy
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	160	\| heads changeset \|
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	161
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	162	super doUpdateWorkingCopy.
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	163	heads := self task package workingCopy heads.
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	164	changeset := self task package workingCopy changeset.
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	165	(heads includes: changeset) ifFalse:[
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	166	self infoPanel
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	167	reset;
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	168	beInformation;
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	169	message: (self resources string:'Comitting a new head.');
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	170	addButtonWithLabel: (self resources string:'Proceed') action: [self infoPanel hide];
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	171	addButtonWithLabel: (self resources string:'Cancel') action:[self doCancel];
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	172	show.
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	173	]
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	174
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	175	"Created: / 27-11-2012 / 23:36:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	176	! !
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	177
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	178	!HGCommitDialog class methodsFor:'documentation'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	179
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	180	version_HG
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	181	"Never, ever change this method. Ask JV or CG why"
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	182	^thisContext method mclass theNonMetaclass instVarNamed: #revision
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	183	!
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	184
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	185	version_SVN
55 30d72a8f4501 Commit support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	186	^ '�Id:: �'
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	187	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 28 Nov 2012 09:12:38 +0000
changeset 109	08c6eca6df25
parent 67	985488894699
child 115	b1ed2d29054b
permissions	-rw-r--r--