#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Sun, 08 May 2016 19:29:51 +0200
changeset 16485 8ed4c3714c75
parent 16484 7724f132ff07
child 16486 eaf396320e74
#FEATURE by cg class: WorkspaceApplication changed: #addStopWatch
WorkspaceApplication.st
--- a/WorkspaceApplication.st	Sun May 08 19:27:04 2016 +0200
+++ b/WorkspaceApplication.st	Sun May 08 19:29:51 2016 +0200
@@ -3469,11 +3469,15 @@
 !
 
 addStopWatch
-    |v clock|
+    |v clockViewClass clock|
 
     v := View new.
     v viewBackground:Color white.
-    clock := ClockView in:v.
+    "/ avoid making stx:libwidg3 a prerequisite. 
+    Smalltalk loadPackage:#'stx:libwidg3'. "/ ClockView package
+    clockViewClass := Smalltalk at:#ClockView.
+        
+    clock := clockViewClass in:v.
     clock beStopWatch.
 
     clock