--- a/mercurial/HGStatus.st	Tue Nov 20 21:32:08 2012 +0000
+++ b/mercurial/HGStatus.st	Wed Nov 21 01:21:47 2012 +0000
@@ -21,6 +21,13 @@
 	privateIn:HGStatus
 !
 
+HGStatus subclass:#Copied
+	instanceVariableNames:'source'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:HGStatus
+!
+
 HGStatus subclass:#Ignored
 	instanceVariableNames:''
 	classVariableNames:''
@@ -90,6 +97,7 @@
     ^self subclassResponsibility
 
     "Created: / 22-10-2012 / 21:27:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-11-2012 / 01:10:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGStatus class methodsFor:'accessing-statuses'!
@@ -106,6 +114,12 @@
     "Created: / 23-10-2012 / 09:56:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+copied
+    ^ Copied new
+
+    "Created: / 21-11-2012 / 01:04:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 ignored
     ^ Ignored theOnlyInstance
 
@@ -162,6 +176,12 @@
     "Created: / 15-11-2012 / 01:29:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+isCopied
+    ^ false
+
+    "Created: / 21-11-2012 / 01:07:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isIgnored
     ^ false
 !
@@ -180,6 +200,12 @@
 
 isRemoved
     ^ false
+!
+
+isUntracked
+    ^ self isNotTracked
+
+    "Created: / 21-11-2012 / 00:57:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGStatus::Added class methodsFor:'accessing'!
@@ -222,6 +248,42 @@
     "Created: / 15-11-2012 / 01:29:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!HGStatus::Copied class methodsFor:'accessing'!
+
+code
+    ^Character space
+
+    "Created: / 21-11-2012 / 01:10:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!HGStatus::Copied methodsFor:'accessing'!
+
+code
+    "Return one-char code as used by 'hg status' command,
+    i.e., $A for added, $!! for missing, ..."
+
+    ^Character space
+
+    "Created: / 22-10-2012 / 21:27:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-11-2012 / 01:10:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+source
+    ^ source
+!
+
+source:something
+    source := something.
+! !
+
+!HGStatus::Copied methodsFor:'testing'!
+
+isCopied
+    ^ true
+
+    "Created: / 21-11-2012 / 01:07:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !HGStatus::Ignored class methodsFor:'accessing'!
 
 code
@@ -321,5 +383,5 @@
 !
 
 version_SVN
-    ^ '$Id::                                                                                                                        $'
+    ^ '§Id::                                                                                                                        §'
 ! !