X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTask.dcl;h=e8f62f205031794ad8446410b3b8a11898d5ef4e;hb=ff7049a99f7fdd701d49222019df65a9aee8f05a;hp=ac9405c0544dc3c916dece2b63203c7e373a3961;hpb=1d6cedaf81bbbe0ae869f20c9003bf018fb027ff;p=mTask.git

diff --git a/mTask.dcl b/mTask.dcl
index ac9405c..e8f62f2 100644
--- a/mTask.dcl
+++ b/mTask.dcl
@@ -14,6 +14,7 @@ todo:
 	imporove setp: >>*.
 */
 
+import GenPrint
 import Generics.gCons
 import Generics.gdynamic
 
@@ -212,13 +213,12 @@ instance long Eval Long
 
 // ----- tools ----- //
 
-derive consName DigitalPin, AnalogPin, PinMode
+derive gPrint Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
+derive class gCons Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
 
 instance == DigitalPin
 instance == AnalogPin
 
-derive consIndex DigitalPin, AnalogPin
-
 tab =: toString (repeatn tabSize ' ')
 tabSize :== 2