hg/stx-goodies-monticello: MCRepositoryList.st@f0a16c301971 (annotated)

1095 87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	1	"{ Package: 'stx:goodies/monticello' }"
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	2
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	3	"{ NameSpace: Smalltalk }"
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	4
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	5	MCBrowserList subclass:#MCRepositoryList
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	6	instanceVariableNames:''
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	7	classVariableNames:''
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	8	poolDictionaries:''
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	9	category:'SCM-Monticello-St/X UI'
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 967 diff changeset	10	!
340 e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	!MCRepositoryList methodsFor:'drag & drop'!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	dropObjects:aCollectionOfDropObjects
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	"drop manager wants to drop.
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	This is ony sent, if #canDrop: returned true.
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	Must be redefined in order for drop to work."
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	^ self shouldImplement
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	! !
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	!MCRepositoryList methodsFor:'generators'!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	makeEntry: repository
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	^MCRepositoryEntry repository: repository
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	"Created: / 16-09-2010 / 18:40:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	makeGenerator
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	^Iterator on:
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	[:whatToDo\| \| selection \|
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	selection := self selectionHolder value.
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	selection ifNotNil:[
967 2c78238d70ce class: MCRepositoryList Claus Gittinger <cg@exept.de> parents: 964 diff changeset	38	selection packages do: [:pkgentry\|whatToDo value: pkgentry]
2c78238d70ce class: MCRepositoryList Claus Gittinger <cg@exept.de> parents: 964 diff changeset	39	]
2c78238d70ce class: MCRepositoryList Claus Gittinger <cg@exept.de> parents: 964 diff changeset	40	].
340 e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	"Modified: / 16-09-2010 / 18:58:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	! !
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	!MCRepositoryList methodsFor:'private'!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	browserNameList
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	"superclass Tools::BrowserList says that I am responsible to implement this method"
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	^ self shouldImplement
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	makeDependent
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	"superclass Tools::BrowserList says that I am responsible to implement this method"
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	"^ self shouldImplement"
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	"Modified: / 16-09-2010 / 16:05:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	makeIndependent
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	"superclass Tools::BrowserList says that I am responsible to implement this method"
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	"^ self shouldImplement"
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	"Modified: / 16-09-2010 / 16:05:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	updateList
536 c75e274e4796 checkin support Claus Gittinger <cg@exept.de> parents: 340 diff changeset	70	\| repos list \|
340 e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71
536 c75e274e4796 checkin support Claus Gittinger <cg@exept.de> parents: 340 diff changeset	72	self withWaitCursorDo:[
c75e274e4796 checkin support Claus Gittinger <cg@exept.de> parents: 340 diff changeset	73	repos := self inGeneratorHolder value.
c75e274e4796 checkin support Claus Gittinger <cg@exept.de> parents: 340 diff changeset	74	repos ifNil:[repos := MCRepositoryGroup default repositories].
c75e274e4796 checkin support Claus Gittinger <cg@exept.de> parents: 340 diff changeset	75	list := repos collect: [:repo\|self makeEntry:repo].
c75e274e4796 checkin support Claus Gittinger <cg@exept.de> parents: 340 diff changeset	76	self listHolder value: list.
964 bba71a28671f added: #isAbstract Claus Gittinger <cg@exept.de> parents: 604 diff changeset	77	self setListValid:true.
536 c75e274e4796 checkin support Claus Gittinger <cg@exept.de> parents: 340 diff changeset	78	]
340 e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	"Modified: / 16-09-2010 / 18:58:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
536 c75e274e4796 checkin support Claus Gittinger <cg@exept.de> parents: 340 diff changeset	81	"Modified: / 04-12-2011 / 09:16:57 / cg"
340 e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	! !
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	!MCRepositoryList class methodsFor:'documentation'!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	version
967 2c78238d70ce class: MCRepositoryList Claus Gittinger <cg@exept.de> parents: 964 diff changeset	87	^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryList.st,v 1.5 2015-02-07 11:09:30 cg Exp $'
340 e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	version_CVS
967 2c78238d70ce class: MCRepositoryList Claus Gittinger <cg@exept.de> parents: 964 diff changeset	91	^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryList.st,v 1.5 2015-02-07 11:09:30 cg Exp $'
340 e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	!
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93
e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	version_SVN
967 2c78238d70ce class: MCRepositoryList Claus Gittinger <cg@exept.de> parents: 964 diff changeset	95	^ '$Id: MCRepositoryList.st,v 1.5 2015-02-07 11:09:30 cg Exp $'
340 e19af0c2226e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	! !
964 bba71a28671f added: #isAbstract Claus Gittinger <cg@exept.de> parents: 604 diff changeset	97

author	Jan Vrany <jan.vrany@labware.com>
	Tue, 11 Jul 2023 12:59:07 +0100
branch	jv
changeset 1174	f0a16c301971
parent 1095	87f223484bc3
permissions	-rw-r--r--