equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 "{ Package: 'stx:goodies/monticello' }" |
1 "{ Package: 'stx:goodies/monticello' }" |
4 |
2 |
5 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
6 |
4 |
7 ApplicationModel subclass:#MCRepositoryBrowser |
5 ApplicationModel subclass:#MCRepositoryBrowser |
993 (method isNil or:[method = 'file']) ifTrue:[ |
991 (method isNil or:[method = 'file']) ifTrue:[ |
994 rep := MCDirectoryRepository directory:repStr. |
992 rep := MCDirectoryRepository directory:repStr. |
995 ] ifFalse:[ |
993 ] ifFalse:[ |
996 method = 'github' ifTrue:[ |
994 method = 'github' ifTrue:[ |
997 MCGitHubRepository notNil ifTrue:[ |
995 MCGitHubRepository notNil ifTrue:[ |
998 rep := MCGitHubRepository directory:repStr. |
996 rep := MCGitHubRepository basicFromUrl:repStr. |
999 ]. |
997 ]. |
1000 ]. |
998 ]. |
1001 ]. |
999 ]. |
1002 ] |
1000 ] |
1003 ]. |
1001 ]. |
1009 self withWaitCursorDo:[ |
1007 self withWaitCursorDo:[ |
1010 self addRepository:rep |
1008 self addRepository:rep |
1011 ]. |
1009 ]. |
1012 |
1010 |
1013 "Created: / 29-08-2011 / 12:25:40 / cg" |
1011 "Created: / 29-08-2011 / 12:25:40 / cg" |
|
1012 "Modified: / 01-09-2018 / 17:24:54 / Claus Gittinger" |
1014 ! |
1013 ! |
1015 |
1014 |
1016 repositoryAddFromExpressionString |
1015 repositoryAddFromExpressionString |
1017 |str repStr rep| |
1016 |str repStr rep| |
1018 |
1017 |