hg/stx-libsvn: extensions.st@a7a87f7c51a9 (annotated)

516 c90cd02b9b48 * empty log message * fm parents: 430 diff changeset	1	"{ Package: 'stx:libsvn' }"!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	2
933 5d3e599927c2 category Claus Gittinger <cg@exept.de> parents: 932 diff changeset	3	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	4
994 6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	5	svnAdd
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	6
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	7	self svnExecuteCommand: 'add'
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	8
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	9	"Modified: / 08-02-2012 / 09:28:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	10	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	11
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	12	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	13
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	14	svnCommit
1015 a7a87f7c51a9 Commit support for filebrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 995 diff changeset	15	\| wcPath wc task \|
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	16
1015 a7a87f7c51a9 Commit support for filebrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 995 diff changeset	17	wcPath := self currentDirectory asFilename.
a7a87f7c51a9 Commit support for filebrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 995 diff changeset	18	wcPath isDirectory ifFalse:[wcPath := wcPath directory].
a7a87f7c51a9 Commit support for filebrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 995 diff changeset	19	wc := SVN::WorkingCopy path: wcPath.
a7a87f7c51a9 Commit support for filebrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 995 diff changeset	20	task := SVN::CommitTask new workingCopy: wc.
a7a87f7c51a9 Commit support for filebrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 995 diff changeset	21	SVN::CommitDialog2 new
a7a87f7c51a9 Commit support for filebrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 995 diff changeset	22	task: task;
a7a87f7c51a9 Commit support for filebrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 995 diff changeset	23	open
978 e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	24
1015 a7a87f7c51a9 Commit support for filebrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 995 diff changeset	25	"Modified: / 08-02-2012 / 18:24:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
978 e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	26	! !
e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	27
e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	28	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	29
994 6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	30	svnCompare
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	31	"automatically generated by UIEditor ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	32
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	33	"*** the code below performs no action"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	34	"*** (except for some feedback on the Transcript)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	35	"*** Please change as required and accept in the browser."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	36	"*** (and replace this comment by something more useful ;-)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	37
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	38	"action to be added ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	39
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	40	Transcript showCR:self class name, ': action for #svnCompare ...'.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	41	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	42
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	43	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	44
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	45	svnCompareWithHEAD
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	46	"automatically generated by UIEditor ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	47
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	48	"*** the code below performs no action"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	49	"*** (except for some feedback on the Transcript)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	50	"*** Please change as required and accept in the browser."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	51	"*** (and replace this comment by something more useful ;-)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	52
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	53	"action to be added ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	54
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	55	Transcript showCR:self class name, ': action for #svnCompareWithHEAD ...'.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	56	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	57
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	58	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	59
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	60	svnDebugOpenWorkingCopyBrowser
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	61	\| wcPath wc \|
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	62
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	63	wcPath := self currentDirectory asFilename.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	64	wcPath isDirectory ifFalse:[wcPath := wcPath directory].
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	65	wc := SVN::WorkingCopy path: wcPath.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	66	(SVN::WorkingCopyBrowser on: wc) open
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	67
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	68	"Modified: / 07-02-2012 / 22:51:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	69	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	70
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	71	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	72
978 e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	73	svnDiff
e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	74
e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	75	self svnExecuteCommand: 'diff'
e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	76
e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	77	"Created: / 04-02-2012 / 19:26:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	78	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	79
933 5d3e599927c2 category Claus Gittinger <cg@exept.de> parents: 932 diff changeset	80	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	81
994 6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	82	svnExecuteCommand: command
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	83	"Executes svn command on currently selected objects"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	84
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	85	\| objects workdir objectsAsString executionBlock \|
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	86
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	87	objects := self currentSelectedObjects.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	88
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	89	self class == FileBrowserV2 ifTrue:[
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	90	workdir := self fileEntryFieldHolder value asFilename.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	91	workdir isDirectory ifFalse:[
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	92	workdir := workdir directory
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	93	].
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	94	] ifFalse:[
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	95	(objects size == 1 and:[objects anElement isDirectory]) ifTrue:[
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	96	workdir := objects anElement
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	97	] ifFalse:[
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	98	workdir := Filename currentDirectory.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	99	]
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	100	].
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	101
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	102	objectsAsString := String streamContents:[:s\|
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	103	objects size == 1 ifTrue:[
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	104	workdir asString = objects anElement asString ifTrue:[
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	105	s nextPut:$.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	106	] ifFalse:[
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	107	s nextPutAll: objects anElement asString.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	108	]
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	109	] ifFalse:[
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	110	objects do:[:each\|s nextPut:$"; nextPutAll:each asString; nextPut:$"]
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	111	separatedBy:[s space]
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	112	]
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	113	].
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	114
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	115	executionBlock := [:stream \|
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	116	\| cmd \|
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	117
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	118	cmd := '%1 --non-interactive %2 %3'
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	119	bindWith: SVN::Command executable
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	120	with: command
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	121	with: objectsAsString.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	122
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	123	(self getExecutionBlockForCommand:cmd inDirectory: workdir) value:stream.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	124	].
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	125	self makeExecutionResultProcessFor:executionBlock withName:'svn ', command.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	126
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	127	"Created: / 04-02-2012 / 19:22:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	128	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	129
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	130	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	131
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	132	svnInfo
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	133	self svnExecuteCommand: 'info'
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	134
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	135	"Modified: / 08-02-2012 / 09:33:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	136	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	137
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	138	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	139
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	140	svnMerge
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	141	"automatically generated by UIEditor ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	142
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	143	"*** the code below performs no action"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	144	"*** (except for some feedback on the Transcript)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	145	"*** Please change as required and accept in the browser."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	146	"*** (and replace this comment by something more useful ;-)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	147
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	148	"action to be added ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	149
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	150	Transcript showCR:self class name, ': action for #svnMerge ...'.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	151	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	152
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	153	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	154
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	155	svnMergeWithExternalDiff3
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	156	"automatically generated by UIEditor ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	157
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	158	"*** the code below performs no action"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	159	"*** (except for some feedback on the Transcript)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	160	"*** Please change as required and accept in the browser."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	161	"*** (and replace this comment by something more useful ;-)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	162
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	163	"action to be added ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	164
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	165	Transcript showCR:self class name, ': action for #svnMergeWithExternalDiff3 ...'.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	166	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	167
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	168	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	169
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	170	svnRemove
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	171
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	172	self svnExecuteCommand: 'remove'
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	173
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	174	"Created: / 08-02-2012 / 09:28:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	175	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	176
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	177	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	178
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	179	svnRevert
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	180	"automatically generated by UIEditor ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	181
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	182	"*** the code below performs no action"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	183	"*** (except for some feedback on the Transcript)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	184	"*** Please change as required and accept in the browser."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	185	"*** (and replace this comment by something more useful ;-)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	186
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	187	"action to be added ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	188
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	189	Transcript showCR:self class name, ': action for #svnRevert ...'.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	190	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	191
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	192	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	193
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	194	svnStatus
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	195
978 e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	196	self svnExecuteCommand: 'status'
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	197
978 e1dab0ebb3a5 improvements in FileBrowser menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 935 diff changeset	198	"Modified: / 04-02-2012 / 19:22:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	199	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	200
994 6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	201	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	202
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	203	svnStatusShowUpdates
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	204
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	205	self svnExecuteCommand: 'status --show-updates --verbose'
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	206
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	207	"Modified: / 04-02-2012 / 19:22:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	208	"Created: / 07-02-2012 / 19:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	209	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	210
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	211	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	212
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	213	svnUpdate
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	214
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	215	self svnExecuteCommand:'update'
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	216
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	217	"Modified: / 08-02-2012 / 09:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	218	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	219
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	220	!AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	221
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	222	svnUpdateWithExternalDiff3
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	223	"automatically generated by UIEditor ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	224
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	225	"*** the code below performs no action"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	226	"*** (except for some feedback on the Transcript)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	227	"*** Please change as required and accept in the browser."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	228	"*** (and replace this comment by something more useful ;-)"
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	229
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	230	"action to be added ..."
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	231
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	232	Transcript showCR:self class name, ': action for #svnUpdateWithExternalDiff3 ...'.
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	233	! !
6db5b79593d3 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 981 diff changeset	234
995 6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	235	!AbstractFileBrowser class methodsFor:'menu specs'!
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	236
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	237	scmMenuSlice
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	238	"This resource specification was automatically generated
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	239	by the MenuEditor of ST/X."
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	240
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	241	"Do not manually edit this!! If it is corrupted,
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	242	the MenuEditor may not be able to read the specification."
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	243
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	244
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	245	"
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	246	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#scmMenuSlice
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	247	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser scmMenuSlice)) startUp
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	248	"
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	249
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	250	<resource: #menu>
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	251
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	252	^
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	253	#(Menu
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	254	(
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	255	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	256	label: 'CVS'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	257	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	258	isVisible: cvsMenusAreShown
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	259	submenuChannel: cvsMenu
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	260	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	261	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	262	label: 'SVN'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	263	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	264	isVisible: svnMenusAreShown
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	265	submenuChannel: svnMenu
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	266	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	267	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	268	label: 'Mercurial'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	269	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	270	isVisible: mercurialMenusAreShown
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	271	submenuChannel: mercurialMenu
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	272	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	273	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	274	label: 'Perforce'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	275	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	276	isVisible: perforceMenusAreShown
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	277	submenuChannel: perforceMenu
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	278	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	279	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	280	nil
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	281	nil
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	282	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	283	! !
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	284
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	285	!AbstractFileBrowser class methodsFor:'menu specs-scm'!
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	286
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	287	svnMenu
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	288	"This resource specification was automatically generated
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	289	by the MenuEditor of ST/X."
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	290
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	291	"Do not manually edit this!! If it is corrupted,
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	292	the MenuEditor may not be able to read the specification."
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	293
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	294
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	295	"
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	296	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#svnMenu
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	297	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser svnMenu)) startUp
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	298	"
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	299
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	300	<resource: #menu>
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	301
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	302	^
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	303	#(Menu
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	304	(
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	305	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	306	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	307	label: 'Commit'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	308	itemValue: svnCommit
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	309	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	310	labelImage: (ResourceRetriever #'SVN::IconLibrary' commit 'Commit')
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	311	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	312	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	313	label: '-'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	314	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	315	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	316	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	317	label: 'Update'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	318	itemValue: svnUpdate
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	319	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	320	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	321	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	322	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	323	label: 'Update with External Diff3 '
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	324	itemValue: svnUpdateWithExternalDiff3
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	325	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	326	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	327	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	328	label: '-'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	329	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	330	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	331	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	332	label: 'Add'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	333	itemValue: svnAdd
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	334	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	335	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	336	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	337	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	338	label: 'Remove'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	339	itemValue: svnRemove
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	340	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	341	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	342	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	343	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	344	label: 'Revert'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	345	itemValue: svnRevert
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	346	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	347	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	348	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	349	label: '-'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	350	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	351	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	352	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	353	label: 'Status'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	354	itemValue: svnStatus
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	355	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	356	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	357	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	358	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	359	label: 'Status (show updates)'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	360	itemValue: svnStatusShowUpdates
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	361	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	362	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	363	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	364	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	365	label: 'Info'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	366	itemValue: svnInfo
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	367	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	368	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	369	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	370	label: '-'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	371	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	372	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	373	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	374	label: 'Merge...'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	375	itemValue: svnMerge
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	376	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	377	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	378	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	379	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	380	label: 'Merge with External Diff3...'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	381	itemValue: svnMergeWithExternalDiff3
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	382	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	383	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	384	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	385	label: '-'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	386	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	387	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	388	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	389	label: 'Compare with HEAD'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	390	itemValue: svnCompareWithHEAD
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	391	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	392	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	393	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	394	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	395	label: 'Compare with Revision'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	396	itemValue: svnCompare
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	397	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	398	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	399	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	400	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	401	label: 'Diff (svn diff ...)'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	402	itemValue: svnDiff
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	403	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	404	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	405	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	406	label: '-'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	407	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	408	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	409	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	410	label: 'Debug'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	411	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	412	submenu:
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	413	(Menu
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	414	(
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	415	(MenuItem
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	416	enabled: hasSubversionWorkingCopySelected
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	417	label: 'Open Working Copy Browser'
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	418	itemValue: svnDebugOpenWorkingCopyBrowser
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	419	translateLabel: true
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	420	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	421	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	422	nil
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	423	nil
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	424	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	425	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	426	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	427	nil
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	428	nil
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	429	)
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	430	! !
6ab0648210d7 added lost methods... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	431
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	432	!ChangeSet methodsFor:'utilities'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	433
61343482b6c7 * empty log message * fm parents: 101 diff changeset	434	condenseChangesForPackage2:aPackageSymbol
61343482b6c7 * empty log message * fm parents: 101 diff changeset	435	"remove more changes for aPackageSymbol
61343482b6c7 * empty log message * fm parents: 101 diff changeset	436	This is invoked when a project is checked into the repository."
61343482b6c7 * empty log message * fm parents: 101 diff changeset	437
61343482b6c7 * empty log message * fm parents: 101 diff changeset	438	\|changesToRemove\|
61343482b6c7 * empty log message * fm parents: 101 diff changeset	439
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	440	changesToRemove := self select:[:aChange \|
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	441	\|removeThis mClass mthd\|
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	442
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	443	removeThis := false.
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	444	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	445	mClass := aChange changeClass.
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	446	mClass notNil ifTrue:[
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	447	mthd := mClass compiledMethodAt:(aChange selector).
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	448	mthd isNil ifTrue:[
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	449	removeThis := (mClass package = aPackageSymbol)
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	450	] ifFalse:[
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	451	removeThis := (mthd package = aPackageSymbol)
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	452	]
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	453	].
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	454	] ifFalse:[
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	455	(aChange isClassChange) ifTrue:[
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	456	(aChange changeClass notNil) ifTrue:[
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	457	removeThis := (aChange changeClass package = aPackageSymbol)
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	458	].
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	459	].
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	460	].
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	461	removeThis
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	462	].
61343482b6c7 * empty log message * fm parents: 101 diff changeset	463
61343482b6c7 * empty log message * fm parents: 101 diff changeset	464	self condenseChanges:changesToRemove
61343482b6c7 * empty log message * fm parents: 101 diff changeset	465
61343482b6c7 * empty log message * fm parents: 101 diff changeset	466	"Modified: / 12-10-2006 / 16:51:27 / cg"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	467	"Created: / 09-08-2009 / 14:29:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	468	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	469
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	470	!Class methodsFor:'fileOut'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	471
61343482b6c7 * empty log message * fm parents: 101 diff changeset	472	fileOutAsMethodIn: class selector: selector
61343482b6c7 * empty log message * fm parents: 101 diff changeset	473
61343482b6c7 * empty log message * fm parents: 101 diff changeset	474	^self fileOutAsMethodIn: class selector: selector category: 'sources'
61343482b6c7 * empty log message * fm parents: 101 diff changeset	475
61343482b6c7 * empty log message * fm parents: 101 diff changeset	476	"Created: / 08-04-2009 / 20:58:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	477	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	478
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	479	!Class methodsFor:'accessing'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	480
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	481	svnBranch
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	482
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	483	^self svnRepository branch
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	484
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	485	"Created: / 19-04-2008 / 18:24:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	486	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	487
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	488	!Class methodsFor:'accessing'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	489
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	490	svnRepository
61343482b6c7 * empty log message * fm parents: 101 diff changeset	491
61343482b6c7 * empty log message * fm parents: 101 diff changeset	492	^SVN::RepositoryManager repositoryForPackage: self package
61343482b6c7 * empty log message * fm parents: 101 diff changeset	493
61343482b6c7 * empty log message * fm parents: 101 diff changeset	494	"Created: / 19-04-2008 / 18:24:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	495	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	496
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	497	!Date methodsFor:'converting'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	498
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	499	asSVNRevisionSpec
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	500
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	501	^SVNv2::RevisionSpec date: self
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	502
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	503	"Created: / 03-02-2011 / 00:01:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	504	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	505
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	506	!Filename methodsFor:'reading-directories'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	507
61343482b6c7 * empty log message * fm parents: 101 diff changeset	508	directoryContentsAsFilenamesMatching: patternOrCollectionOfThose
61343482b6c7 * empty log message * fm parents: 101 diff changeset	509
61343482b6c7 * empty log message * fm parents: 101 diff changeset	510	"
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	511	Same as directoryContentsAsFilenames, but returns only files
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	512	that matches given patterns. This uses String>>matches:
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	513	for pattern matching
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	514	"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	515
61343482b6c7 * empty log message * fm parents: 101 diff changeset	516	\|names\|
61343482b6c7 * empty log message * fm parents: 101 diff changeset	517
61343482b6c7 * empty log message * fm parents: 101 diff changeset	518	names := self directoryContentsMatching: patternOrCollectionOfThose .
61343482b6c7 * empty log message * fm parents: 101 diff changeset	519	names isNil ifTrue:[^ nil].
61343482b6c7 * empty log message * fm parents: 101 diff changeset	520	^ names asOrderedCollection collect:[:entry \| self construct:entry].
61343482b6c7 * empty log message * fm parents: 101 diff changeset	521
61343482b6c7 * empty log message * fm parents: 101 diff changeset	522	"
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	523	'/etc' asFilename
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	524	directoryContentsAsFilenamesMatching: 'pass*'
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	525
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	526	'/etc' asFilename
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	527	directoryContentsAsFilenamesMatching: #('pass*' 'nsswitch.conf')
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	528	"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	529
61343482b6c7 * empty log message * fm parents: 101 diff changeset	530	"Created: / 03-06-2009 / 09:57:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	531	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	532
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	533	!Filename methodsFor:'reading-directories'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	534
61343482b6c7 * empty log message * fm parents: 101 diff changeset	535	directoryContentsMatching: patternOrCollectionOfThose
61343482b6c7 * empty log message * fm parents: 101 diff changeset	536
61343482b6c7 * empty log message * fm parents: 101 diff changeset	537	"
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	538	Same as directoryContants, but returns only files
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	539	that matches given patterns. This uses String>>matches:
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	540	for pattern matching
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	541	"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	542
61343482b6c7 * empty log message * fm parents: 101 diff changeset	543	\| names patterns \|
61343482b6c7 * empty log message * fm parents: 101 diff changeset	544	patterns := patternOrCollectionOfThose isString
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	545	ifTrue: [Array with: patternOrCollectionOfThose]
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	546	ifFalse:[patternOrCollectionOfThose].
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	547	names := self directoryContents.
61343482b6c7 * empty log message * fm parents: 101 diff changeset	548	names ifNil:[^nil].
61343482b6c7 * empty log message * fm parents: 101 diff changeset	549	^names select:
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	550	[:e\|patterns anySatisfy:[:pattern\|e matches: pattern]]
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	551
61343482b6c7 * empty log message * fm parents: 101 diff changeset	552	"
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	553	'/etc' asFilename
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	554	directoryContentsMatching: 'pass*'
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	555
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	556	'/etc' asFilename
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	557	directoryContentsMatching: #('pass*' 'nsswitch.conf')
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	558
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	559	'/etc' asFilename
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	560	directoryContentsMatching: #('does-not-exists.txt')
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	561
61343482b6c7 * empty log message * fm parents: 101 diff changeset	562	"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	563
61343482b6c7 * empty log message * fm parents: 101 diff changeset	564	"Created: / 03-06-2009 / 09:52:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	565	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	566
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	567	!FilenameWidgetWithHistory methodsFor:'accessing'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	568
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	569	historyList:aList
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	570	"set the history - useful when two or more such fields shall share a common history"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	571
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	572	history := aList.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	573	fileNameEntryField listHolder: aList.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	574
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	575	"Modified: / 27-11-2009 / 13:05:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	576	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	577
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	578	!FilenameWidgetWithHistory methodsFor:'accessing-channels'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	579
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	580	modifiedChannel:aValueHolder
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	581	fileNameEntryField modifiedChannel:aValueHolder.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	582
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	583	"Created: / 27-11-2009 / 12:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	584	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	585
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	586	!Integer methodsFor:'converting'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	587
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	588	asSVNRevisionSpec
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	589
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	590	^SVNv2::RevisionSpec number: self
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	591
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	592	"Created: / 03-02-2011 / 00:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	593	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	594
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	595	!Method methodsFor:'accessing'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	596
61343482b6c7 * empty log message * fm parents: 101 diff changeset	597	makeSourceFileAbsolute
61343482b6c7 * empty log message * fm parents: 101 diff changeset	598
61343482b6c7 * empty log message * fm parents: 101 diff changeset	599	"
590 6079daa8ef5f fix makeSourceFileAbsolute Stefan Vogel <sv@exept.de> parents: 585 diff changeset	600	Makes a source file reference absolute.
6079daa8ef5f fix makeSourceFileAbsolute Stefan Vogel <sv@exept.de> parents: 585 diff changeset	601	This is required by SVN, because svn working copy
6079daa8ef5f fix makeSourceFileAbsolute Stefan Vogel <sv@exept.de> parents: 585 diff changeset	602	is in package path, so it's existence may corrupt source
6079daa8ef5f fix makeSourceFileAbsolute Stefan Vogel <sv@exept.de> parents: 585 diff changeset	603	files.
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	604	"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	605
61343482b6c7 * empty log message * fm parents: 101 diff changeset	606	\| fileStream \|
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	607
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	608	"check whether my source is in external file. If not, this is noop"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	609	sourcePosition ifNil:[^nil].
61343482b6c7 * empty log message * fm parents: 101 diff changeset	610	"already absolute"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	611	source asFilename isAbsolute ifTrue:[^self].
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	612	fileStream := self rawSourceStreamUsingCache: false.
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	613	fileStream isFileStream ifTrue:
590 6079daa8ef5f fix makeSourceFileAbsolute Stefan Vogel <sv@exept.de> parents: 585 diff changeset	614	[source := fileStream fileName asAbsoluteFilename pathName].
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	615
61343482b6c7 * empty log message * fm parents: 101 diff changeset	616	"
590 6079daa8ef5f fix makeSourceFileAbsolute Stefan Vogel <sv@exept.de> parents: 585 diff changeset	617	(Method compiledMethodAt:#mclass:)
6079daa8ef5f fix makeSourceFileAbsolute Stefan Vogel <sv@exept.de> parents: 585 diff changeset	618	makeSourceFileAbsolute
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	619	"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	620
61343482b6c7 * empty log message * fm parents: 101 diff changeset	621	"Created: / 21-08-2009 / 17:24:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	622	"Modified: / 25-02-2010 / 22:21:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	623	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	624
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	625	!MethodChange methodsFor:'converting'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	626
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	627	asAntiChange
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	628
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	629	^self isMethodCodeChange
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	630	ifTrue:[MethodRemoveChange className: self className selector: self selector]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	631	ifFalse:[super asAntiChange]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	632
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	633	"Created: / 02-11-2009 / 11:13:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	634	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	635
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	636	!MethodChange methodsFor:'queries'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	637
61343482b6c7 * empty log message * fm parents: 101 diff changeset	638	isForGeneratedSubject
61343482b6c7 * empty log message * fm parents: 101 diff changeset	639	"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	640	Answers true iff subject of this method is somewhat
61343482b6c7 * empty log message * fm parents: 101 diff changeset	641	auto-generated by some tool - just like version methods
61343482b6c7 * empty log message * fm parents: 101 diff changeset	642	are.
61343482b6c7 * empty log message * fm parents: 101 diff changeset	643	"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	644
366 aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	645	^self isForMeta
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	646	and:[((self selector) == #version)
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	647	or:[self selector startsWith:'version_' ]
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	648	]
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	649
61343482b6c7 * empty log message * fm parents: 101 diff changeset	650	"Created: / 17-08-2009 / 18:56:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	651	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	652
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	653	!ProjectDefinition class methodsFor:'code generation'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	654
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	655	forEachContentsMethodsCodeToCompileDo:aTwoArgBlock ignoreOldEntries: ignoreOldEntries ignoreOldDefinition:ignoreOldDefinition
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	656	aTwoArgBlock
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	657	value:(self classNamesAndAttributes_code_ignoreOldEntries:ignoreOldEntries ignoreOldDefinition:ignoreOldDefinition)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	658	value:'description - contents'.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	659
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	660	aTwoArgBlock
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	661	value: (self extensionMethodNames_code_ignoreOldEntries:ignoreOldEntries)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	662	value: 'description - contents'.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	663
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	664	aTwoArgBlock
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	665	value: self preRequisites_code
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	666	value: 'description'.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	667
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	668	aTwoArgBlock
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	669	value: self excludedFromPreRequisites_code
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	670	value: 'description'.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	671
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	672	"Created: / 09-07-2010 / 14:12:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	673	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	674
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	675	!ProjectDefinition class methodsFor:'accessing - svn'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	676
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	677	svnRepositoryUrl
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	678
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	679	\| url \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	680
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	681	(self respondsTo:#svnRepositoryUrlString) ifFalse:[^nil].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	682	url := self svnRepositoryUrlString.
935 11ef48d8288a Synchronized with SVN Jan Vrany <jan.vrany@fit.cvut.cz> parents: 934 diff changeset	683	(url startsWith: '$' , 'URL: ')
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	684	ifTrue:[url := url copyFrom: 7 to: (url lastIndexOf: $/) - 1]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	685	ifFalse:[nil].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	686	^url
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	687
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	688
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	689	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	690	stx_libjava svnRepositoryUrl
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	691	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	692
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	693	"Created: / 08-04-2011 / 16:20:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	694	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	695
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	696	!ProjectDefinition class methodsFor:'code generation'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	697
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	698	svnRepositoryUrlString_code
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	699
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	700	^'svnRepositoryUrlString
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	701	"Return a SVN repository URL of myself.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	702	(Generated since 2011-04-08)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	703	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	704
935 11ef48d8288a Synchronized with SVN Jan Vrany <jan.vrany@fit.cvut.cz> parents: 934 diff changeset	705	^ ''$','URL$'''
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	706
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	707	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	708	self svnRepositoryUrlString_code
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	709	stx_libbasic3 svnRepositoryUrlString_code
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	710	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	711
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	712	"Created: / 08-04-2011 / 16:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	713	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	714
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	715	!String methodsFor:'converting'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	716
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	717	asSVNRevisionSpec
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	718
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	719	\| number date \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	720
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	721	self = 'HEAD' ifTrue:[^SVNv2::RevisionSpec head].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	722	self = 'head' ifTrue:[^SVNv2::RevisionSpec head].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	723
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	724	number := Integer fromString: self onError:[nil].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	725	number ifNotNil:[^SVNv2::RevisionSpec number: number].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	726
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	727	date := Date readFrom: self onError:[nil].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	728	date ifNotNil:[^SVNv2::RevisionSpec date: date].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	729
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	730	self error: 'Not a SVN revision spec'.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	731
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	732	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	733	'HEAD' asSVNRevisionSpec
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	734	'123' asSVNRevisionSpec
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	735	'2010-12-12' asSVNRevisionSpec
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	736	'bla bla' asSVNRevisionSpec
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	737	123 asSVNRevisionSpec
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	738	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	739
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	740	"Created: / 03-02-2011 / 00:06:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	741	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	742
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	743	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	744
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	745	classMenuDiffsetFor:classes againstBranch:branch revision:revision
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	746	\|diffset\|
798 e26bf2ccff03 checkin to get version methods correct Jan Vrany <jan.vrany@fit.cvut.cz> parents: 788 diff changeset	747	diffset := (ChangeSetDiffSet new)
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	748	name:'Differences between image and ', branch name asString , '@' , revision printString;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	749	versionALabel: 'Current (image)';
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	750	versionBLabel: revision printString.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	751	classes do:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	752	[:cls \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	753	diffset add:(branch diffSetForClass:cls betweenImageAndRevision:revision)].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	754	^diffset
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	755
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	756	"Created: / 19-04-2008 / 18:56:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
798 e26bf2ccff03 checkin to get version methods correct Jan Vrany <jan.vrany@fit.cvut.cz> parents: 788 diff changeset	757	"Modified: / 13-09-2011 / 12:28:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	758	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	759
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	760	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	761
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	762	classMenuSubversionBrowseWorkingCopy
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	763	"automatically generated by UIEditor ..."
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	764
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	765	"*** the code below performs no action"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	766	"*** (except for some feedback on the Transcript)"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	767	"*** Please change as required and accept in the browser."
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	768	"*** (and replace this comment by something more useful ;-)"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	769
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	770	"action to be added ..."
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	771
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	772	Transcript showCR:self class name, ': action for #classMenuSubversionBrowseWorkingCopy ...'.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	773	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	774
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	775	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	776
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	777	classMenuSubversionChangeset
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	778	\|classes\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	779	classes := self selectedNonMetaclasses.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	780	(SVN::BranchAndRevisionSelectionDialog new)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	781	title:'Changeset for ' , (self infoStringForClasses:classes withPrefix:'');
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	782	repository:classes anyOne svnRepository;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	783	branch:classes anyOne svnRepository trunk;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	784	onAccept:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	785	[:dlg \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	786	dlg showProgressWhile:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	787	[self
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	788	classMenuSubversionChangeset:classes
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	789	againstBranch:dlg branch
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	790	revision:dlg revision]];
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	791	open
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	792	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	793
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	794	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	795
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	796	classMenuSubversionChangeset: classes againstBranch: branch revision: rev
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	797
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	798	\| diffset changeset \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	799	diffset := self classMenuDiffsetFor:classes againstBranch:branch revision: rev.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	800	changeset := diffset changesetA.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	801
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	802	(Smalltalk at:#'Tools::ChangeSetBrowser')
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	803	ifNil:[ChangeSetBrowser openOn: changeset]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	804	ifNotNil:[(Tools::ChangeSetBrowser on: changeset) open]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	805	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	806
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	807	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	808
61343482b6c7 * empty log message * fm parents: 101 diff changeset	809	classMenuSubversionCommit
61343482b6c7 * empty log message * fm parents: 101 diff changeset	810
61343482b6c7 * empty log message * fm parents: 101 diff changeset	811	\| classesPerPackage \|
61343482b6c7 * empty log message * fm parents: 101 diff changeset	812	classesPerPackage := Dictionary new.
61343482b6c7 * empty log message * fm parents: 101 diff changeset	813	self selectedClasses value do:
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	814	[:class\|
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	815	(classesPerPackage at: class theNonMetaclass package ifAbsentPut:[Set new])
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	816	add: class theNonMetaclass].
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	817	classesPerPackage keysAndValuesDo:
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	818	[:package :classes\| \| repo \|
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	819	repo := SVN::RepositoryManager repositoryForPackage:package.
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	820	SVN::CommitWizard new
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	821	task: (repo workingCopy commitTask
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	822	classes: classes;
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	823	extensionMethods: #()
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	824	yourself);
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	825	open]
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	826
61343482b6c7 * empty log message * fm parents: 101 diff changeset	827	"Modified: / 16-06-2009 / 21:05:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	828	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	829
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	830	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	831
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	832	classMenuSubversionCompare
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	833	\|classes\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	834	classes := self selectedNonMetaclasses.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	835	(SVN::BranchAndRevisionSelectionDialog new)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	836	title:'Compare ' , (self infoStringForClasses:classes withPrefix:'');
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	837	repository:classes anyOne svnRepository;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	838	branch:classes anyOne svnRepository trunk;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	839	onAccept:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	840	[:dlg \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	841	dlg showProgressWhile:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	842	[self
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	843	classMenuSubversionCompare:classes
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	844	withBranch:dlg branch
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	845	revision:dlg revision]];
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	846	open
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	847
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	848	"Modified: / 01-11-2009 / 15:50:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	849	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	850
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	851	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	852
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	853	classMenuSubversionCompare:classes withBranch:branch revision:revision
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	854	\|diffset\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	855	diffset := self classMenuDiffsetFor:classes againstBranch:branch revision:revision.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	856	diffset isEmpty ifTrue:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	857	[^Dialog inform: 'No differences found'].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	858	(Tools::ChangeSetDiffTool new)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	859	beTwoColumn:(classes size > 1);
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	860	diffset:diffset;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	861	open
241 a3b16e3f4d52 * empty log message * fm parents: 240 diff changeset	862
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	863	"Created: / 19-04-2008 / 18:56:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	864	"Modified: / 05-12-2009 / 11:14:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	865	"Modified: / 07-07-2011 / 23:08:33 / jv"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	866	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	867
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	868	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	869
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	870	classMenuSubversionCompare:classes withRevision:revision
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	871	self
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	872	classMenuSubversionCompare:classes
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	873	withBranch:classes anyOne svnBranch
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	874	revision:revision
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	875
61343482b6c7 * empty log message * fm parents: 101 diff changeset	876	"Created: / 19-04-2008 / 18:56:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	877	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	878
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	879	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	880
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	881	classMenuSubversionCompareWithRevisionHead
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	882
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	883	\| classes \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	884	classes := self selectedNonMetaclasses.
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	885
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	886	SVN::ProgressDialog
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	887	openOn:[
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	888	self
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	889	classMenuSubversionCompare:classes
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	890	withRevision:SVN::Revision head
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	891	]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	892	title:'Compare ',(self infoStringForClasses:classes withPrefix:''),' with rev. HEAD'
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	893
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	894	"Created: / 19-04-2008 / 18:56:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	895	"Modified: / 01-11-2009 / 15:51:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	896	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	897
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	898	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-class'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	899
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	900	classMenuSubversionUpdate
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	901
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	902	self classMenuSubversionLoadRevision: SVN::Revision head
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	903
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	904	"Modified: / 10-12-2009 / 13:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	905	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	906
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	907	!Tools::NewSystemBrowser methodsFor:'menus-dynamic-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	908
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	909	classSubversionChangesetMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	910
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	911	<resource: #programMenu >
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	912
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	913	\|menu repo branches\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	914
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	915	menu := Menu decodeFromLiteralArray: self class classSubversionChangesetMenu.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	916	repo := SVN::RepositoryManager repositoryForPackage:self theSingleSelectedProjectFromClasses.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	917	branches := repo branches.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	918	branches size = 1 ifTrue:[
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	919	menu removeItemAt:2.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	920	^ menu.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	921	].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	922
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	923
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	924	branches do:[:branch \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	925	menu addItem:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	926	(MenuItem new
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	927	label: (LabelAndIcon
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	928	label: ('Changeset against ', branch name)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	929	icon: (branch icon));
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	930	value: [self classMenuSubversionChangeset: self selectedClasses value againstBranch: branch revision: SVN::Revision head];
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	931	enabled: (repo branch = branch) not)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	932	].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	933	^menu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	934
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	935	"Created: / 25-11-2009 / 14:10:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	936	"Modified: / 25-11-2009 / 16:48:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	937	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	938
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	939	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	940
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	941	commonMenuSubversionBrowseWorkingCopy
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	942
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	943	self selectedProjectsForSubversion value do:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	944	[:package\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	945	\| repo wc \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	946	repo := self svnRepositoryManager repositoryForPackage: package.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	947	wc := repo workingCopy.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	948	wc exists ifFalse:[
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	949	wc checkout.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	950	].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	951	FileBrowserV2 openOn: wc path]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	952
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	953	"Modified: / 09-12-2010 / 23:45:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	954	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	955
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	956	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	957
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	958	commonMenuSubversionFlushCaches
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	959
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	960	self svnRepositoryManager reset
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	961	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	962
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	963	!Tools::NewSystemBrowser methodsFor:'aspects-queries-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	964
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	965	hasClassesSelectedAndSubversionRepositoryExistsAndBranchSelectedHolder
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	966	^ [
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	967	\| classes \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	968	classes := self selectedClasses value.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	969	classes isEmptyOrNil
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	970	ifTrue:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	971	[false]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	972	ifFalse:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	973	[classes
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	974	allSatisfy:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	975	[:cls \| self hasSubversionRepositoryAndBranchFor: cls theNonMetaclass package]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	976	]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	977	]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	978	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	979
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	980	!Tools::NewSystemBrowser methodsFor:'aspects-queries-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	981
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	982	hasProjectSelectedSubversionRepositoryExistsAndBranchSelectedHolder
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	983	^ [ self hasProjectSelected
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	984	and:[self selectedProjects value size = 1
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	985	and:[self hasSubversionRepositoryAndBranchFor: self selectedProjects value anyOne]]]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	986
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	987	"Created: / 31-03-2008 / 15:07:52 / janfrog"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	988	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	989
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	990	!Tools::NewSystemBrowser methodsFor:'aspects-queries-subversion'!
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	991
eb8760523bed * empty log message * fm parents: 230 diff changeset	992	hasSingleClassAndSubversionRepositoryExists
eb8760523bed * empty log message * fm parents: 230 diff changeset	993	^ self hasSingleClassSelected
366 aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	994	and:[self hasSubversionRepositoryFor: self theSingleSelectedClass package]
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	995
eb8760523bed * empty log message * fm parents: 230 diff changeset	996	"Created: / 19-04-2008 / 17:40:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
eb8760523bed * empty log message * fm parents: 230 diff changeset	997	! !
eb8760523bed * empty log message * fm parents: 230 diff changeset	998
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	999	!Tools::NewSystemBrowser methodsFor:'aspects-queries-subversion'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1000
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1001	hasSubversionRepositoryAndBranchFor: package
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1002
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1003	\| repo \|
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1004
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1005	^ self hasSubversionSupport
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1006	and:[(repo := self svnRepositoryManager repositoryForPackage: package) notNil
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1007	and:[repo workingCopy hasBranch]]
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1008
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1009	"Created: / 31-03-2008 / 15:08:13 / janfrog"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1010	"Modified: / 22-08-2009 / 10:49:33 / Jan Vrany <vranyj1@fel.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1011	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1012
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1013	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1014
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1015	projectMenuSubversionChangeset
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1016	\|repo\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1017	repo := SVN::RepositoryManager
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1018	repositoryForPackage:self theSingleSelectedProject.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1019	(SVN::BranchAndRevisionSelectionDialog new)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1020	title:'Changeset ' , self theSingleSelectedProject asText allItalic;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1021	repository:repo;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1022	branch:repo trunk;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1023	onAccept:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1024	[:dlg \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1025	dlg showProgressWhile:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1026	[self projectMenuSubversionChangesetAgainstBranch:dlg branch
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1027	revision:dlg revision]];
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1028	open
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1029
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1030	"Created: / 20-05-2008 / 18:09:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1031	"Modified: / 02-11-2009 / 16:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1032	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1033
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1034	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1035
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1036	projectMenuSubversionChangesetAgainstBranch:branch revision:revision
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1037	\|changeset diffset\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1038	diffset := branch diffSetBetweenImageAndRevision:revision.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1039	changeset := diffset changesetA.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1040	(Smalltalk at:#'Tools::ChangeSetBrowser')
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1041	ifNil:[ChangeSetBrowser openOn: changeset]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1042	ifNotNil:[(Tools::ChangeSetBrowser on: changeset) open]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1043
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1044	"Modified: / 09-08-2009 / 14:14:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1045	"Created: / 02-11-2009 / 13:41:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1046	"Modified: / 05-12-2009 / 11:14:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1047	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1048
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1049	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1050
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1051	projectMenuSubversionCommit
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1052
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1053	self selectedProjects value do:
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1054	[:package\|
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1055	\| repo \|
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1056	repo := SVN::RepositoryManager repositoryForPackage:package.
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1057	SVN::CommitWizard new
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1058	task: repo workingCopy commitTask;
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1059	open]
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1060
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1061	"Created: / 01-04-2008 / 19:02:42 / janfrog"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1062	"Modified: / 16-08-2009 / 19:17:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1063	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1064
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1065	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1066
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1067	projectMenuSubversionCommitMode
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1068
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1069	^(PluggableAdaptor on: self theSingleSelectedProject)
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1070	getBlock:
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1071	[:prjHolder\| \| wc \|
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1072	wc := SVN::RepositoryManager workingCopyForPackage: self theSingleSelectedProject value.
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1073	wc ifNotNil:[wc commitMode] ifNil:[nil]]
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1074	putBlock:
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1075	[:prjHolder :value\| \| wc \|
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1076	wc := SVN::RepositoryManager workingCopyForPackage: self theSingleSelectedProject value.
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1077	wc ifNotNil:[wc commitMode:value]]
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1078	updateBlock:
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1079	[:prjHolder :aspect :value\|true].
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1080
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1081	"Created: / 13-08-2009 / 15:05:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1082	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1083
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1084	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1085
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1086	projectMenuSubversionCompare
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1087	\|repo\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1088	repo := SVN::RepositoryManager
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1089	repositoryForPackage:self theSingleSelectedProject.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1090	(SVN::BranchAndRevisionSelectionDialog new)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1091	title:'Compare ' , self theSingleSelectedProject asText allItalic;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1092	repository:repo;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1093	branch:repo trunk;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1094	onAccept:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1095	[:dlg \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1096	dlg showProgressWhile:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1097	[self projectMenuSubversionCompareWithBranch:dlg branch
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1098	revision:dlg revision]];
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1099	open
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1100
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1101	"Created: / 20-05-2008 / 18:09:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1102	"Modified: / 02-11-2009 / 16:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1103	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1104
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1105	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1106
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1107	projectMenuSubversionCompareWithBranch:branch revision:revision
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1108	\|diffset\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1109	diffset := branch diffSetBetweenImageAndRevision:revision.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1110	(Tools::ChangeSetDiffTool new)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1111	diffset:diffset;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1112	title:'Differences between image and rev. ' , revision printString;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1113	open
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1114
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1115	"Modified: / 09-08-2009 / 14:14:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1116	"Created: / 02-11-2009 / 13:41:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1117	"Modified: / 05-12-2009 / 11:14:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1118	"Modified: / 07-07-2011 / 23:08:37 / jv"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1119	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1120
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1121	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1122
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1123	projectMenuSubversionCompareWithRevisionHead
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1124	\|branch\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1125	branch := (SVN::RepositoryManager
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1126	repositoryForPackage:self theSingleSelectedProject value) branch.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1127	SVN::ProgressDialog openOn:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1128	[self projectMenuSubversionCompareWithBranch:branch
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1129	revision:SVN::Revision head]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1130	title:'Comparing ' , self theSingleSelectedProject value asText allItalic.
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1131
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1132	"Created: / 20-05-2008 / 18:10:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1133	"Modified: / 02-11-2009 / 13:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1134	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1135
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1136	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1137
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1138	projectMenuSubversionLoadRevision
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1139
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1140	^self projectMenuSubversionLoadRevision: nil
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1141
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1142	"Created: / 22-10-2008 / 11:49:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1143	"Modified: / 09-04-2009 / 09:38:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1144	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1145
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1146	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1147
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1148	projectMenuSubversionLoadRevision:aRevision
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1149	self selectedProjects value do:[:package \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1150	\|pkg task\|
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1151
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1152	pkg := self theSingleSelectedProject.
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1153	task := (SVN::RepositoryManager repositoryForPackage:pkg) updateTask.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1154	task revision:aRevision.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1155	SVN::UpdateLikeWizard openOn:task
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1156	]
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1157
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1158	"Created: / 09-04-2009 / 09:38:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1159	"Modified: / 25-11-2009 / 13:53:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1160	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1161
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1162	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1163
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1164	projectMenuSubversionMergeWith:branch revision:revision
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1165	\|package\|
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1166
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1167	package := self theSingleSelectedProject.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1168	(SVN::UpdateLikeWizard new)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1169	task:branch repository workingCopy mergeTask;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1170	branch:branch;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1171	revision:revision;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1172	open
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1173
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1174	"Created: / 25-11-2009 / 16:48:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1175	"Modified: / 25-11-2009 / 20:10:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1176	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1177
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1178	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1179
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1180	projectMenuSubversionRemoveWorkingCopy
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1181
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1182	self selectedProjects value do:
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1183	[:package\|
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1184	\| pkg repo \|
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1185	pkg := self theSingleSelectedProject.
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1186	repo := (SVN::RepositoryManager repositoryForPackage: pkg) .
433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1187	repo workingCopy path asFilename recursiveRemove]
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1188
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1189	"Created: / 09-04-2009 / 13:19:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1190	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1191
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1192	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1193
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1194	projectMenuSubversionShowRevisionLog
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1195
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1196	\| pkg branch \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1197	pkg := self theSingleSelectedProjectForSubversion.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1198	branch := (self svnRepositoryFor: pkg) branch.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1199	SVN::RevisionLogBrowser new
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1200	branch: branch;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1201	open
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1202
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1203	"Created: / 21-05-2008 / 09:37:51 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1204	"Modified: / 21-10-2008 / 19:52:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1205	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1206
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1207	!Tools::NewSystemBrowser methodsFor:'menu actions-subversion-project'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1208
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1209	projectMenuSubversionUpdate
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1210
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1211	^self projectMenuSubversionLoadRevision: SVN::Revision head
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1212
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1213	"Created: / 22-10-2008 / 11:49:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1214	"Modified: / 09-04-2009 / 09:38:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1215	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1216
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1217	!Tools::NewSystemBrowser methodsFor:'menus-dynamic-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1218
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1219	projectSubversionChangesetMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1220
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1221	<resource: #programMenu >
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1222
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1223	\|menu repo branches\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1224
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1225	menu := Menu decodeFromLiteralArray: self class projectSubversionChangesetMenu.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1226	repo := SVN::RepositoryManager repositoryForPackage:self theSingleSelectedProject.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1227	branches := repo branches.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1228	branches size = 1 ifTrue:[
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1229	menu removeItemAt:2.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1230	^ menu.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1231	].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1232
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1233
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1234	branches do:[:branch \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1235	menu addItem:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1236	(MenuItem new
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1237	label: (LabelAndIcon
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1238	label: ('Changeset against ', branch name)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1239	icon: (branch icon));
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1240	value: [self projectMenuSubversionChangesetAgainstBranch: branch revision: SVN::Revision head];
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1241	enabled: (repo branch = branch) not)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1242	].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1243	^menu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1244
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1245	"Created: / 25-11-2009 / 14:10:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1246	"Modified: / 25-11-2009 / 16:48:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1247	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1248
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1249	!Tools::NewSystemBrowser methodsFor:'menus-dynamic-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1250
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1251	projectSubversionMergeMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1252
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1253	<resource: #programMenu >
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1254
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1255	\|menu repo branches\|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1256
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1257	menu := Menu decodeFromLiteralArray: self class projectSubversionMergeMenu.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1258	repo := SVN::RepositoryManager
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1259	repositoryForPackage:self theSingleSelectedProject.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1260	branches := repo branches.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1261	branches size = 1 ifTrue:[
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1262	menu removeItemAt:2.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1263	^ menu.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1264	].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1265	branches do:[:branch \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1266	menu addItem:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1267	(MenuItem new
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1268	label: (LabelAndIcon
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1269	label: ('Merge with ', branch name)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1270	icon: (branch icon));
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1271	value: [self projectMenuSubversionMergeWith: branch revision: SVN::Revision head];
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1272	enabled: (repo branch = branch) not)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1273	].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1274	^menu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1275
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1276	"Created: / 25-11-2009 / 14:10:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1277	"Modified: / 25-11-2009 / 16:48:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1278	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1279
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1280	!Tools::NewSystemBrowser methodsFor:'private-helpers-subversion'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1281
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1282	selectedProjectSubversionRepository
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1283
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1284	\| project \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1285	project := self theSingleSelectedProjectForSubversion.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1286	^project
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1287	ifNil:[nil]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1288	ifNotNil:[self svnRepositoryManager repositoryForPackage:project]
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1289
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1290	"Created: / 19-04-2008 / 11:09:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1291	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1292
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1293	!Tools::NewSystemBrowser methodsFor:'aspects-navigation-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1294
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1295	selectedProjectsForSubversion
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1296
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1297	self selectedProjects value
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1298	ifNotNil:[^self selectedProjects value].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1299
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1300	self selectedClasses value
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1301	ifNotNil:[^(self selectedClasses value collect:[:cls\|cls package]) asSet].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1302
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1303	^nil
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1304	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1305
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1306	!Tools::NewSystemBrowser methodsFor:'private-helpers-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1307
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1308	selectedProjectsFromClasses
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1309
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1310
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1311	^(self selectedClasses value collect:[:cls\|cls package] thenSelect:[:pkg\|pkg notNil]) asSet
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1312
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1313
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1314
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1315	"Created: / 24.2.2000 / 21:51:33 / cg"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1316	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1317
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1318	!Tools::NewSystemBrowser methodsFor:'private-helpers-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1319
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1320	svnRepositoryFor: packageId
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1321
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1322	^self svnRepositoryManager repositoryForPackage: packageId
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1323	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1324
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1325	!Tools::NewSystemBrowser methodsFor:'private-helpers-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1326
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1327	svnRepositoryManager
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1328
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1329	"/ use Smalltalk-at to trick the dependency/prerequisite generator
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1330	^(Smalltalk at:#'SVN::RepositoryManager')
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1331	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1332
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1333	!Tools::NewSystemBrowser methodsFor:'private-helpers-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1334
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1335	theSingleSelectedProjectForSubversion
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1336
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1337	\| projects \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1338	projects := self selectedProjectsForSubversion.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1339	^projects size == 1
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1340	ifTrue:[projects anyOne]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1341	ifFalse:[nil]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1342
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1343	"Created: / 24.2.2000 / 21:51:33 / cg"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1344	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1345
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1346	!Tools::NewSystemBrowser methodsFor:'private-helpers-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1347
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1348	theSingleSelectedProjectFromClasses
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1349
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1350	\| projects \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1351	^(projects := self selectedProjectsFromClasses) size = 1
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1352	ifTrue:[projects anyOne]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1353	ifFalse:[nil]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1354	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1355
264 6bf328cd9572 changed: #svn_persp Claus Gittinger <cg@exept.de> parents: 241 diff changeset	1356	!Tools::NewSystemBrowser class methodsFor:'menu specs-subversion'!
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1357
eb8760523bed * empty log message * fm parents: 230 diff changeset	1358	classMenuSubversion
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1359
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1360	<resource: #obsolete>
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1361	self obsoleteMethodWarning: 'use #classSubversionMenu'.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1362
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1363	^self classSubversionMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1364	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1365
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1366	!Tools::NewSystemBrowser class methodsFor:'menu specs-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1367
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1368	classSubversionChangesetMenu
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1369	"This resource specification was automatically generated
eb8760523bed * empty log message * fm parents: 230 diff changeset	1370	by the MenuEditor of ST/X."
eb8760523bed * empty log message * fm parents: 230 diff changeset	1371
eb8760523bed * empty log message * fm parents: 230 diff changeset	1372	"Do not manually edit this!! If it is corrupted,
eb8760523bed * empty log message * fm parents: 230 diff changeset	1373	the MenuEditor may not be able to read the specification."
eb8760523bed * empty log message * fm parents: 230 diff changeset	1374
eb8760523bed * empty log message * fm parents: 230 diff changeset	1375	"
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1376	MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#classSubversionChangesetMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1377	(Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser classSubversionChangesetMenu)) startUp
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1378	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1379
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1380	<resource: #menu>
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1381
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1382	^
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1383	#(Menu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1384	(
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1385	(MenuItem
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1386	label: 'Changeset against...'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1387	itemValue: classMenuSubversionChangeset
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1388	translateLabel: true
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1389	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1390	(MenuItem
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1391	label: '-'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1392	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1393	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1394	nil
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1395	nil
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1396	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1397	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1398
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1399	!Tools::NewSystemBrowser class methodsFor:'menu specs-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1400
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1401	classSubversionCompareMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1402	"This resource specification was automatically generated
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1403	by the MenuEditor of ST/X."
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1404
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1405	"Do not manually edit this!! If it is corrupted,
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1406	the MenuEditor may not be able to read the specification."
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1407
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1408	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1409	MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#classSubversionCompareMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1410	(Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser classSubversionCompareMenu)) startUp
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1411	"
eb8760523bed * empty log message * fm parents: 230 diff changeset	1412
eb8760523bed * empty log message * fm parents: 230 diff changeset	1413	<resource: #menu>
eb8760523bed * empty log message * fm parents: 230 diff changeset	1414
366 aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1415	^
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1416	#(Menu
366 aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1417	(
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1418	(MenuItem
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1419	enabled: hasClassesSelectedAndSubversionRepositoryExistsAndBranchSelectedHolder
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1420	label: 'Compare...'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1421	itemValue: classMenuSubversionCompare
366 aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1422	translateLabel: true
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1423	)
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1424	(MenuItem
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1425	enabled: hasClassesSelectedAndSubversionRepositoryExistsAndBranchSelectedHolder
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1426	label: 'Compare with HEAD'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1427	itemValue: classMenuSubversionCompareWithRevisionHead
366 aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1428	translateLabel: true
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1429	)
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1430	)
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1431	nil
aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1432	nil
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1433	)
eb8760523bed * empty log message * fm parents: 230 diff changeset	1434	! !
eb8760523bed * empty log message * fm parents: 230 diff changeset	1435
264 6bf328cd9572 changed: #svn_persp Claus Gittinger <cg@exept.de> parents: 241 diff changeset	1436	!Tools::NewSystemBrowser class methodsFor:'menu specs-subversion'!
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1437
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1438	projectMenuSubversion
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1439
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1440	<resource: #obsolete>
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1441	self obsoleteMethodWarning: 'use #projectSubversionMenu'.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1442
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1443	^self projectSubversionMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1444
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1445	"Modified: / 04-12-2009 / 21:53:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1446	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1447
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1448	!Tools::NewSystemBrowser class methodsFor:'menu specs-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1449
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1450	projectSubversionChangesetMenu
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1451	"This resource specification was automatically generated
eb8760523bed * empty log message * fm parents: 230 diff changeset	1452	by the MenuEditor of ST/X."
eb8760523bed * empty log message * fm parents: 230 diff changeset	1453
eb8760523bed * empty log message * fm parents: 230 diff changeset	1454	"Do not manually edit this!! If it is corrupted,
eb8760523bed * empty log message * fm parents: 230 diff changeset	1455	the MenuEditor may not be able to read the specification."
eb8760523bed * empty log message * fm parents: 230 diff changeset	1456
eb8760523bed * empty log message * fm parents: 230 diff changeset	1457	"
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1458	MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#projectSubversionChangesetMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1459	(Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser projectSubversionChangesetMenu)) startUp
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1460	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1461
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1462	<resource: #menu>
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1463
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1464	^
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1465	#(Menu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1466	(
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1467	(MenuItem
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1468	label: 'Changeset against...'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1469	itemValue: projectMenuSubversionChangeset
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1470	translateLabel: true
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1471	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1472	(MenuItem
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1473	label: '-'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1474	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1475	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1476	nil
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1477	nil
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1478	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1479	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1480
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1481	!Tools::NewSystemBrowser class methodsFor:'menu specs-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1482
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1483	projectSubversionCompareMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1484	"This resource specification was automatically generated
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1485	by the MenuEditor of ST/X."
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1486
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1487	"Do not manually edit this!! If it is corrupted,
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1488	the MenuEditor may not be able to read the specification."
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1489
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1490	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1491	MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#projectSubversionCompareMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1492	(Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser projectSubversionCompareMenu)) startUp
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1493	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1494
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1495	<resource: #menu>
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1496
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1497	^
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1498	#(Menu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1499	(
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1500	(MenuItem
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1501	enabled: hasProjectSelectedSubversionRepositoryExistsAndBranchSelectedHolder
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1502	label: 'Compare...'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1503	itemValue: projectMenuSubversionCompare
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1504	translateLabel: true
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1505	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1506	(MenuItem
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1507	enabled: hasProjectSelectedSubversionRepositoryExistsAndBranchSelectedHolder
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1508	label: 'Compare with HEAD'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1509	itemValue: projectMenuSubversionCompareWithRevisionHead
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1510	translateLabel: true
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1511	auxValue: 'ni'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1512	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1513	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1514	nil
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1515	nil
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1516	)
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1517	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1518
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1519	!Tools::NewSystemBrowser class methodsFor:'menu specs-subversion'!
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1520
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1521	projectSubversionMergeMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1522	"This resource specification was automatically generated
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1523	by the MenuEditor of ST/X."
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1524
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1525	"Do not manually edit this!! If it is corrupted,
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1526	the MenuEditor may not be able to read the specification."
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1527
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1528	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1529	MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#projectSubversionMergeMenu
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1530	(Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser projectSubversionMergeMenu)) startUp
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1531	"
eb8760523bed * empty log message * fm parents: 230 diff changeset	1532
eb8760523bed * empty log message * fm parents: 230 diff changeset	1533	<resource: #menu>
eb8760523bed * empty log message * fm parents: 230 diff changeset	1534
366 aaa64c7d3f56 * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1535	^
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1536	#(Menu
584 4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1537	(
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1538	(MenuItem
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1539	enabled: false
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1540	label: 'Merge'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1541	itemValue: projectSubversionMergeMenu
584 4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1542	translateLabel: true
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1543	)
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1544	(MenuItem
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1545	label: '-'
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1546	)
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1547	)
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1548	nil
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1549	nil
239 eb8760523bed * empty log message * fm parents: 230 diff changeset	1550	)
eb8760523bed * empty log message * fm parents: 230 diff changeset	1551	! !
eb8760523bed * empty log message * fm parents: 230 diff changeset	1552
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1553	!UserNotification class methodsFor:'instance creation'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1554
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1555	notify: message progress: progress
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1556
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1557	^ProgressNotification new
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1558	messageText: message;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1559	parameter: progress;
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1560	raiseRequest
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1561	! !
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1562
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1563	!UserPreferences methodsFor:'accessing-scm-subversion'!
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1564
8216cb912567 checkin from browser fm parents: 532 diff changeset	1565	svnConfigurations
8216cb912567 checkin from browser fm parents: 532 diff changeset	1566	"subversion source control configurations"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1567
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1568	^(self at:#'libsvn.configurations' ifAbsent:[^nil])
584 4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1569	collect:[:cfg\|cfg decodeAsLiteralArray]
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1570
8216cb912567 checkin from browser fm parents: 532 diff changeset	1571	"Created: / 03-10-2008 / 11:14:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1572	"Modified: / 19-08-2009 / 12:08:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1573	! !
8216cb912567 checkin from browser fm parents: 532 diff changeset	1574
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1575	!UserPreferences methodsFor:'accessing-scm-subversion'!
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1576
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1577	svnConfigurations2
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1578	"subversion source control configurations"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1579
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1580	^(self at:#'libsvn.Configuration.configurations' ifAbsent:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1581	[Array with:(SVN::Configuration named: SVN::Configuration defaultName)])
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1582	collect:[:cfg\|cfg decodeAsLiteralArray]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1583
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1584	"Modified: / 19-08-2009 / 12:08:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1585	"Created: / 09-01-2010 / 15:34:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1586	"Modified: / 11-02-2010 / 18:56:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1587	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1588
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1589	!UserPreferences methodsFor:'accessing-scm-subversion'!
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1590
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1591	svnConfigurations2: aCollection
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1592	"subversion source control configurations"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1593
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1594
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1595
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1596	(Smalltalk at: #'SVN::Configuration') ifNotNil:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1597	[(Smalltalk at: #'SVN::Configuration') flushCaches; setConfigurations: aCollection].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1598
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1599	self
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1600	at: #'libsvn.Configuration.configurations'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1601	put: (aCollection asArray collect:[:cfg\|cfg literalArrayEncoding]).
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1602
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1603	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1604	UserPreferences current svnConfigurations2: #()
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1605	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1606
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1607	"Modified: / 19-08-2009 / 12:09:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1608	"Created: / 09-01-2010 / 15:41:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1609	"Modified: / 10-03-2010 / 13:26:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1610	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1611
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1612	!UserPreferences methodsFor:'accessing-scm-subversion'!
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1613
8216cb912567 checkin from browser fm parents: 532 diff changeset	1614	svnConfigurations: aCollection
8216cb912567 checkin from browser fm parents: 532 diff changeset	1615	"subversion source control configurations"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1616
8216cb912567 checkin from browser fm parents: 532 diff changeset	1617	(SVN::RepositoryManager notNil
8216cb912567 checkin from browser fm parents: 532 diff changeset	1618	and:[ SVN::RepositoryManager isLoaded ]) ifTrue:[
584 4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1619	SVN::RepositoryManager allInstances do:[:e\|
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1620	e configurations: aCollection
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1621	]
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1622	].
8216cb912567 checkin from browser fm parents: 532 diff changeset	1623
8216cb912567 checkin from browser fm parents: 532 diff changeset	1624	^ self
584 4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1625	at: #'libsvn.configurations'
4d56f32ba0ec * empty log message * Claus Gittinger <cg@exept.de> parents: 582 diff changeset	1626	put: (aCollection asArray collect:[:cfg\|cfg literalArrayEncoding])
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1627
8216cb912567 checkin from browser fm parents: 532 diff changeset	1628	"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1629	UserPreferences current svnConfigurations: #()
8216cb912567 checkin from browser fm parents: 532 diff changeset	1630	"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1631
8216cb912567 checkin from browser fm parents: 532 diff changeset	1632	"Created: / 03-10-2008 / 11:14:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1633	"Modified: / 19-08-2009 / 12:09:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1634	! !
8216cb912567 checkin from browser fm parents: 532 diff changeset	1635
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1636	!UserPreferences methodsFor:'accessing-scm-subversion'!
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1637
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1638	svnCurrentConfiguration
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1639
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1640	\| name confs conf \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1641	name := self at: #'libsvn.Configuration.current'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1642	ifAbsent:[SVN::Configuration defaultName].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1643	confs := SVN::Configuration configurations.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1644	conf := confs detect: [:c\|c name = name] ifNone: [nil].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1645	conf ifNil:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1646	[confs size == 1
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1647	ifTrue:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1648	[conf := confs anyOne]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1649	ifFalse:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1650	[conf := SVN::Configuration named: SVN::Configuration defaultName.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1651	confs := confs copyWith: conf.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1652	self svnConfigurations2: confs]].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1653	^conf
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1654
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1655	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1656	UserPreferences current svnCurrentConfiguration
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1657	"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1658
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1659	"Modified: / 19-08-2009 / 12:09:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1660	"Created: / 11-02-2010 / 18:54:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1661	"Modified: / 31-03-2011 / 14:18:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1662	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1663
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1664	!UserPreferences methodsFor:'accessing-scm-subversion'!
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1665
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1666	svnCurrentConfiguration: aConfiguration
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1667	"subversion source control configurations"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1668
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1669	\| cName \|
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1670	cName := aConfiguration isString
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1671	ifTrue:[aConfiguration]
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1672	ifFalse:[aConfiguration name].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1673
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1674	aConfiguration isString ifFalse:[
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1675
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1676	(Smalltalk at: #'SVN::Configuration') ifNotNil:
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1677	[(Smalltalk at: #'SVN::Configuration') setCurrent: aConfiguration].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1678	].
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1679	self
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1680	at: #'libsvn.Configuration.current'
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1681	put: cName.
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1682
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1683
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1684	"Modified: / 19-08-2009 / 12:09:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1685	"Created: / 09-01-2010 / 15:41:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1686	"Modified: / 31-03-2011 / 14:25:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1687	! !
91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1688
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1689	!UserPreferences methodsFor:'accessing-scm-subversion'!
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1690
8216cb912567 checkin from browser fm parents: 532 diff changeset	1691	svnEnabled
8216cb912567 checkin from browser fm parents: 532 diff changeset	1692	"subversion source control is enabled"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1693
623 91422f26e1ea merged with Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 590 diff changeset	1694	^self at:#svnEnabled ifAbsent:[false]
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1695
8216cb912567 checkin from browser fm parents: 532 diff changeset	1696	"Created: / 03-10-2008 / 11:11:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1697	! !
8216cb912567 checkin from browser fm parents: 532 diff changeset	1698
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1699	!UserPreferences methodsFor:'accessing-scm-subversion'!
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1700
8216cb912567 checkin from browser fm parents: 532 diff changeset	1701	svnEnabled: aBoolean
8216cb912567 checkin from browser fm parents: 532 diff changeset	1702	"subversion source control is enabled"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1703
8216cb912567 checkin from browser fm parents: 532 diff changeset	1704	^self at:#svnEnabled put: aBoolean
8216cb912567 checkin from browser fm parents: 532 diff changeset	1705
8216cb912567 checkin from browser fm parents: 532 diff changeset	1706	"Created: / 03-10-2008 / 11:13:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1707	! !
8216cb912567 checkin from browser fm parents: 532 diff changeset	1708
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1709	!UserPreferences methodsFor:'accessing-scm-subversion'!
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1710
8216cb912567 checkin from browser fm parents: 532 diff changeset	1711	svnVerbose
8216cb912567 checkin from browser fm parents: 532 diff changeset	1712	"verbose messages from subversion source control (if enabled)"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1713
8216cb912567 checkin from browser fm parents: 532 diff changeset	1714	^self at:#svnVerbose ifAbsent: false
8216cb912567 checkin from browser fm parents: 532 diff changeset	1715
8216cb912567 checkin from browser fm parents: 532 diff changeset	1716	"Created: / 19-03-2009 / 14:00:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1717	! !
8216cb912567 checkin from browser fm parents: 532 diff changeset	1718
932 2c5e5f00876b comment/format Claus Gittinger <cg@exept.de> parents: 798 diff changeset	1719	!UserPreferences methodsFor:'accessing-scm-subversion'!
554 8216cb912567 checkin from browser fm parents: 532 diff changeset	1720
8216cb912567 checkin from browser fm parents: 532 diff changeset	1721	svnVerbose: aBoolean
8216cb912567 checkin from browser fm parents: 532 diff changeset	1722	"verbose messages from subversion source control (if enabled)"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1723
8216cb912567 checkin from browser fm parents: 532 diff changeset	1724	^self at:#svnVerbose put: aBoolean
8216cb912567 checkin from browser fm parents: 532 diff changeset	1725
8216cb912567 checkin from browser fm parents: 532 diff changeset	1726	"Created: / 19-03-2009 / 13:59:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
8216cb912567 checkin from browser fm parents: 532 diff changeset	1727	! !
8216cb912567 checkin from browser fm parents: 532 diff changeset	1728
230 2e84ab798bb9 changed: #version_SVN fm parents: 119 diff changeset	1729	!XML::NodeSet methodsFor:'navigation'!
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1730
105 433e1cd1f448 * empty log message * Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1731	@ attributeName
102 61343482b6c7 * empty log message * fm parents: 101 diff changeset	1732	"XPath like processing - if singleton set, answer an value of
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1733	atribute named attributeName, error otherwise.
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1734	This method is used in libsvn"
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1735
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1736	self size = 1 ifTrue:[^self first @ attributeName].
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1737	self error:'More than one element in node set'
61343482b6c7 * empty log message * fm parents: 101 diff changeset	1738	! !
516 c90cd02b9b48 * empty log message * fm parents: 430 diff changeset	1739
c90cd02b9b48 * empty log message * fm parents: 430 diff changeset	1740	!stx_libsvn class methodsFor:'documentation'!
c90cd02b9b48 * empty log message * fm parents: 430 diff changeset	1741
c90cd02b9b48 * empty log message * fm parents: 430 diff changeset	1742	extensionsVersion_CVS
c90cd02b9b48 * empty log message * fm parents: 430 diff changeset	1743	^ '$Header$'
590 6079daa8ef5f fix makeSourceFileAbsolute Stefan Vogel <sv@exept.de> parents: 585 diff changeset	1744	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 08 Feb 2012 20:06:52 +0100
changeset 1015	a7a87f7c51a9
parent 995	6ab0648210d7
child 1023	d52098a562c3
permissions	-rw-r--r--