Tools: add IntegerSpec

Author: Marije Baalman

Modality/Classes/Tools/IntegerSpec.sc

@@ -0,0 +1,28 @@
+/*
+map from one integer spec to another
+*/
+IntegerClip {
+	var <minval,<maxval, <default;
+
+	*new { |minval, maxval, default|
+		^super.newCopyArgs( minval,maxval,default ).init;
+	}
+
+	init {
+		if ( default.isNil ){ default = minval };
+	}
+
+	map { |inval|
+		^inval.asInteger.clip( minval,maxval );
+	}
+
+	// from string to number
+	unmap { |inval|
+		^inval.asInteger.clip( minval,maxval );
+	}
+
+	asSpec {
+		^this;
+	}
+}
+