--- a/ProgressNotification.st	Sat Oct 04 10:41:56 2008 +0200
+++ b/ProgressNotification.st	Sat Oct 04 11:34:57 2008 +0200
@@ -34,8 +34,20 @@
 "
 ! !
 
+!ProgressNotification class methodsFor:'instance creation'!
+
+progressPercentage:aPercentageNumber
+    self notify:aPercentageNumber
+! !
+
+!ProgressNotification methodsFor:'instance creation'!
+
+progressValue
+    ^ parameter
+! !
+
 !ProgressNotification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressNotification.st,v 1.1 2008-10-04 08:41:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressNotification.st,v 1.2 2008-10-04 09:34:57 cg Exp $'
 ! !