--- a/CmdLineParser.st	Fri Jun 10 12:48:53 2016 +0100
+++ b/CmdLineParser.st	Tue Jun 14 07:04:34 2016 +0100
@@ -77,6 +77,26 @@
     options := something.
 ! !
 
+!CmdLineParser methodsFor:'building'!
+
+on: spec description: description do: action
+    | option |
+
+    option := CmdLineOption new.
+    option spec: spec.
+    option description: description.
+    option action: action.
+    options add: option.
+
+    "Created: / 14-06-2016 / 06:43:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+on: spec do: action
+    ^ self on: spec description: nil do: action
+
+    "Created: / 14-06-2016 / 07:02:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !CmdLineParser methodsFor:'error reporting'!
 
 error: message option: option
@@ -281,6 +301,11 @@
     ^'$Header: /cvs/stx/stx/libbasic/CmdLineParser.st,v 1.5 2015-02-13 22:48:41 cg Exp $'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id: CmdLineParser.st,v 1.5 2015-02-13 22:48:41 cg Exp $'
 ! !