equal
deleted
inserted
replaced
1108 "Created: / 07-09-2011 / 12:49:42 / cg" |
1108 "Created: / 07-09-2011 / 12:49:42 / cg" |
1109 ! |
1109 ! |
1110 |
1110 |
1111 setTargetPackage |
1111 setTargetPackage |
1112 "specify an st/x package identifier to be used as default" |
1112 "specify an st/x package identifier to be used as default" |
1113 |
1113 |
1114 | package | |
1114 | package | |
1115 |
1115 |
1116 package := Dialog |
1116 package := Dialog |
1117 requestProject:'Default Smalltalk/X package to load code into:' |
1117 requestProject:'Default Smalltalk/X package to load code into:' |
1118 initialAnswer:targetPackage |
1118 initialAnswer:targetPackage |
1119 suggestions:#(). |
1119 suggestions:#(). |
1120 package ifNil:[^self]. |
1120 package isNil ifTrue:[ |
1121 |
1121 ^ self |
|
1122 ]. |
1122 targetPackage := lastPackage := package. |
1123 targetPackage := lastPackage := package. |
1123 self targetPackageHolder value:('Target-Package: ',targetPackage). |
1124 self targetPackageHolder value:('Target-Package: ' , targetPackage). |
1124 |
1125 |
1125 "Created: / 07-09-2011 / 12:47:15 / cg" |
1126 "Created: / 07-09-2011 / 12:47:15 / cg" |
|
1127 "Modified: / 06-10-2014 / 23:38:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1126 ! |
1128 ! |
1127 |
1129 |
1128 showPackageInFileBrowser |
1130 showPackageInFileBrowser |
1129 self saveVersionFileToTempThenDo:[:tempFile | |
1131 self saveVersionFileToTempThenDo:[:tempFile | |
1130 UserPreferences current fileBrowserClass |
1132 UserPreferences current fileBrowserClass |
1203 | entry | |
1205 | entry | |
1204 |
1206 |
1205 entry := self selectedVersionHolder value. |
1207 entry := self selectedVersionHolder value. |
1206 entry notNil ifTrue:[ |
1208 entry notNil ifTrue:[ |
1207 self withWaitCursorDo:[ |
1209 self withWaitCursorDo:[ |
1208 |version| |
1210 | version package | |
1209 |
1211 |
1210 version := entry asMCVersion. |
1212 version := entry asMCVersion. |
1211 self versionLoad: version into:(targetPackage ? version package name ? PackageId noProjectID) |
1213 package := targetPackage. |
|
1214 package isNil ifTrue:[ |
|
1215 version package name notNil ifTrue:[ |
|
1216 "/ Just a guess... |
|
1217 package := 'stx:goodies/', (version package name asLowercase replaceAll: $- with: $_) |
|
1218 ] ifFalse:[ |
|
1219 package := PackageId noProjectID. |
|
1220 ]. |
|
1221 package := Dialog |
|
1222 requestProject:'Smalltalk/X package to load code into:' |
|
1223 initialAnswer:package |
|
1224 suggestions:#(). |
|
1225 package isNil ifTrue:[ |
|
1226 ^ self |
|
1227 ]. |
|
1228 ]. |
|
1229 self versionLoad: version into:package |
1212 ] |
1230 ] |
1213 ]. |
1231 ]. |
1214 |
1232 |
1215 "Modified: / 09-11-2010 / 13:26:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1216 "Modified: / 07-09-2011 / 14:51:57 / cg" |
1233 "Modified: / 07-09-2011 / 14:51:57 / cg" |
|
1234 "Modified: / 06-10-2014 / 23:39:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1217 ! |
1235 ! |
1218 |
1236 |
1219 versionLoad: version into: package |
1237 versionLoad: version into: package |
1220 |
1238 |
1221 self withWaitCursorDo:[ |
1239 self withWaitCursorDo:[ |
1299 ! ! |
1317 ! ! |
1300 |
1318 |
1301 !MCRepositoryBrowser class methodsFor:'documentation'! |
1319 !MCRepositoryBrowser class methodsFor:'documentation'! |
1302 |
1320 |
1303 version |
1321 version |
1304 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.35 2014-05-18 09:14:56 cg Exp $' |
1322 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.36 2014-10-06 22:57:57 vrany Exp $' |
1305 ! |
1323 ! |
1306 |
1324 |
1307 version_CVS |
1325 version_CVS |
1308 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.35 2014-05-18 09:14:56 cg Exp $' |
1326 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.36 2014-10-06 22:57:57 vrany Exp $' |
1309 ! |
1327 ! |
1310 |
1328 |
1311 version_SVN |
1329 version_SVN |
1312 ^ '$Id: MCRepositoryBrowser.st,v 1.35 2014-05-18 09:14:56 cg Exp $' |
1330 ^ '$Id: MCRepositoryBrowser.st,v 1.36 2014-10-06 22:57:57 vrany Exp $' |
1313 ! ! |
1331 ! ! |
1314 |
1332 |
1315 |
1333 |
1316 MCRepositoryBrowser initialize! |
1334 MCRepositoryBrowser initialize! |