equal
deleted
inserted
replaced
39 packages valuesDo:[:package| |
39 packages valuesDo:[:package| |
40 (package name matches: pattern) ifTrue:[toFlush add: package]]. |
40 (package name matches: pattern) ifTrue:[toFlush add: package]]. |
41 toFlush do:[:package| |
41 toFlush do:[:package| |
42 | wcdir | |
42 | wcdir | |
43 repositories removeKey: package repository path ifAbsent:[nil]. |
43 repositories removeKey: package repository path ifAbsent:[nil]. |
44 wcdir := package workingCopy path. |
44 wcdir := package temporaryWorkingCopy path. |
45 [ wcdir recursiveRemove ] on: Error do:[ |
45 [ wcdir recursiveRemove ] on: Error do:[ |
46 OperatingSystem isMSWINDOWSlike ifTrue:[ |
46 OperatingSystem isMSWINDOWSlike ifTrue:[ |
47 Delay waitForSeconds: 1. |
47 Delay waitForSeconds: 1. |
48 wcdir recursiveRemove. |
48 wcdir recursiveRemove. |
49 ]. |
49 ]. |
50 ]. |
50 ]. |
51 packages removeKey: package name |
51 packages removeKey: package name |
52 ]. |
52 ]. |
53 |
53 |
54 "Created: / 16-11-2012 / 19:40:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
54 "Created: / 16-11-2012 / 19:40:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
55 "Modified: / 22-11-2012 / 11:38:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
56 "Modified: / 22-11-2012 / 16:03:07 / jv" |
55 "Modified: / 22-11-2012 / 16:03:07 / jv" |
|
56 "Modified: / 01-12-2012 / 00:32:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 ! ! |
57 ! ! |
58 |
58 |
59 !HGPackageModelRegistry class methodsFor:'documentation'! |
59 !HGPackageModelRegistry class methodsFor:'documentation'! |
60 |
60 |
61 version_HG |
61 version_HG |