equal
deleted
inserted
replaced
15 You should have received a copy of the GNU Lesser General Public |
15 You should have received a copy of the GNU Lesser General Public |
16 License along with this library; if not, write to the Free Software |
16 License along with this library; if not, write to the Free Software |
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
18 " |
18 " |
19 "{ Package: 'stx:libscm/mercurial' }" |
19 "{ Package: 'stx:libscm/mercurial' }" |
|
20 |
|
21 "{ NameSpace: Smalltalk }" |
20 |
22 |
21 SCMAbstractPackageWorkingCopyRegistry subclass:#HGPackageWorkingCopyRegistry |
23 SCMAbstractPackageWorkingCopyRegistry subclass:#HGPackageWorkingCopyRegistry |
22 instanceVariableNames:'' |
24 instanceVariableNames:'' |
23 classVariableNames:'' |
25 classVariableNames:'' |
24 poolDictionaries:'' |
26 poolDictionaries:'' |
174 wcdir := package temporaryWorkingCopyPath. |
176 wcdir := package temporaryWorkingCopyPath. |
175 wcdir exists ifTrue:[ |
177 wcdir exists ifTrue:[ |
176 [ wcdir recursiveRemove ] on: Error do:[ |
178 [ wcdir recursiveRemove ] on: Error do:[ |
177 OperatingSystem isMSWINDOWSlike ifTrue:[ |
179 OperatingSystem isMSWINDOWSlike ifTrue:[ |
178 Delay waitForSeconds: 1. |
180 Delay waitForSeconds: 1. |
179 wcdir recursiveRemove. |
181 [ wcdir recursiveRemove ] on: Error do:[ |
|
182 "/ Sigh, just give up on this stupid system. |
|
183 ] |
180 ]. |
184 ]. |
181 ]. |
185 ]. |
182 ]. |
186 ]. |
183 packages removeKey: package name |
187 packages removeKey: package name |
184 ]. |
188 ]. |
185 |
189 |
186 "Created: / 16-11-2012 / 19:40:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
190 "Created: / 16-11-2012 / 19:40:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
187 "Modified: / 22-11-2012 / 16:03:07 / jv" |
|
188 "Modified: / 05-02-2013 / 09:28:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
191 "Modified: / 05-02-2013 / 09:28:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
192 "Modified: / 01-03-2016 / 19:52:09 / jv" |
189 ! ! |
193 ! ! |
190 |
194 |
191 !HGPackageWorkingCopyRegistry class methodsFor:'documentation'! |
195 !HGPackageWorkingCopyRegistry class methodsFor:'documentation'! |
192 |
196 |
193 version_HG |
197 version_HG |