Adding fast dummy support for the X-menu text.

1 files changed, 18 insertions, 2 deletions

diff --git a/dalos.lua b/dalos.lua
index 0747073..b3b4ed3 100644
--- a/dalos.lua
+++ b/dalos.lua
@@ -85,6 +85,22 @@ dalosp.canvas = {
         cv:Line(x1, iy(y1), x2, iy(y1))
         cv:Line(x1 + 1, iy(y1 + 1), x2 - 1, iy(y1 + 1))
         cv:Line(x1 + 2, iy(y1 + 2), x2 - 2, iy(y1 + 2))
+        
+        local f, st, si = cv:GetFont()
+        cv:Font("Helvetica", cd.PLAIN, 10)
+        
+        cv:Foreground(cd.BLACK)
+        cv:TextOrientation(0)
+        cv:TextAlignment(cd.NORTH)
+        cv:Text(x, iy(y1 + 3), "North")
+        cv:TextAlignment(cd.SOUTH)
+        cv:Text(x, iy(y2 - 3), "South")
+        cv:TextOrientation(270)
+        cv:Text(x1 + 3, iy(y), "West")
+        cv:TextOrientation(90)
+        cv:Text(x2 - 3, iy(y), "East")
+
+        cv:Font(f, st, si)
     end,
     
     draw = function (self)
@@ -740,8 +756,8 @@ b2:write("Buffer 2 contents")
 
 o1 = dalos.object(d, { y = 30, x = 10, noutputs = 1, name = "Buffer 1", otype = dalos.objtype.HANDLE })
 o2 = dalos.object(d, { y = 120, x = 10, noutputs = 1, name = "Buffer 2", otype = dalos.objtype.HANDLE })
-h1 = dalos.hexview(d, { y = 60, x = 100, name = "Hexview 1" })
-h2 = dalos.hexview(d, { y = 60, x = 200, name = "Hexview 2" })
+--h1 = dalos.hexview(d, { y = 60, x = 100, name = "Hexview 1" })
+--h2 = dalos.hexview(d, { y = 60, x = 200, name = "Hexview 2" })
 
 o1:set_houtput(b1)
 o2:set_houtput(b2)