*** empty log message ***

* empty log message *
Olivier Duvernois
1 parent 1fe9a3b0
Showing 1 changed file with 51 additions and 3 deletions Show diff stats
anubis_dev/library/widgets4/widget_test.anubis
@@ -29,6 +29,7 @@ read window.anubis
 read tree_node.anubis
 read button.anubis   
  
+   
 read trace.anubis
  
  
@@ -167,7 +168,40 @@ define WidgetHostWindowState -&gt; Widget
                offset_v,
                window_size_v))
         ]
-      ]).    
+      ]).  
+   
+   
+define WidgetHostWindowState -> Widget
+   root_widget_3
+     (
+       SystemFont font,
+       Var(String) justify
+     ) =
+   
+   with 
+        black = rgb(0,0,0),
+        red   = rgb(255,0,0),
+   
+   print((if *justify = "l" then "LEFT" else "RIGHT")+"\n");
+   
+   (WidgetHostWindowState hws) |->
+     table(borders(rgb(200,255,150),rgb(180,180,180),2,2),2,2,
+      [[
+         cell(text("Justify",font,rgb(60,90,30),2)),
+         cell(button(
+               (One u) |-> link("left",font,black,red),
+               (One u) |-> blocking,
+               (One u) |-> justify <- "l",
+               [register(justify)])),
+         cell(button(
+               (One u) |-> link("right",font,black,red),
+               (One u) |-> blocking,
+               (One u) |-> justify <- "r",
+               [register(justify)])),
+         cell(text(if *justify = "l" then "LEFT" else "RIGHT",font,black,2))
+       ]
+      ]).   
+   
  
 define HostImage
    load_jpg
@@ -196,13 +230,18 @@ global define One
            n_v = var((Int32)10), 
        color_v = var((RGB)rgb(50,100,130)), 
       widget_v = var((Widget)space(5,40,*color_v)), 
+   
  widget_ticket = register_monitor(widget_v,
                   (One u) |-> if *n_v = 0 then unique else 
                               (sleep(1000); 
                                n_v <- *n_v-1; 
                                if *color_v is rgb(r,g,b) then 
                                   color_v <- rgb(g,b,r);
-                                  widget_v <- space(5,40,*color_v))), 
+                                  widget_v <- space(5,40,*color_v))),
+   
+   with justify = var((String)"l"),
+   
+   
    if image("images/cows.jpg") is 
      {
        failure then print("Image './images/cows.jpg' not found.\n"),
@@ -235,12 +274,21 @@ global define One
                 630, 
                 100, 
                 "Widget Test 2"));
+   
+             if load_system_font("helvetica_medium_r_10") is 
+               {
+                 failure then print("Cannot load system font.\n"), 
+                 success(font) then 
+                   forget(open_host_window(
+                    root_widget_3(font,justify),
+                      300,100,
+                      "Widget Test 3 (Hypertext)"))
+                };
              widget_v <- space(5,40,*color_v)
          }
      }. 
  
  
-   
  
    *** [] The test.