Merge pull request #181 from FolkComputer/ac/singleLlabel

Add single l label with a warning

virtual-programs/label.folk

@@ -1,7 +1,9 @@
+set singleLWarning "Use labelled with two l's"
+
 When /thing/ has region /region/ {
     lassign [region centroid $region] x y
     set radians [region angle $region]
-
+    
     When the collected matches for [list /someone/ wishes $thing is labelled /text/ with font /font/] are /matches/ {
         set text [join [lmap match $matches {dict get $match text}] "\n"]
         if {$text eq ""} { return }
@@ -10,6 +12,11 @@ When /thing/ has region /region/ {
     }
 }
 
+When /someone/ wishes /thing/ is labeled /text/ {
+  Wish $thing is labelled $text
+  Claim $thing has warning $singleLWarning with info $singleLWarning
+}
+
 When /someone/ wishes /thing/ is labelled /text/ {
   # Set the default font
   Wish $thing is labelled $text with font "PTSans-Regular"