From ead0383b4fb1c5faf48cd8874d9bb3520d5f5649 Mon Sep 17 00:00:00 2001 From: Cedric RICARD Date: Mon, 14 Apr 2008 06:43:03 +0000 Subject: [PATCH] Little API changes on ActionerAspect.img_link alternative --- calexium_lib/web/CXM_making_a_web_site.anubis | 50 ++++++-------------------------------------------- 1 file changed, 6 insertions(+), 44 deletions(-) diff --git a/calexium_lib/web/CXM_making_a_web_site.anubis b/calexium_lib/web/CXM_making_a_web_site.anubis index 28a4b1a..c0145db 100644 --- a/calexium_lib/web/CXM_making_a_web_site.anubis +++ b/calexium_lib/web/CXM_making_a_web_site.anubis @@ -916,8 +916,8 @@ public type Actioner_Target: other(String window_name, List(Other_Window_Option)). public type Actioner_Aspect: - link (List(Text_Option), String url, Maybe(String) name),// hypertext link - img_link (String url, String img_url), + link (List(Text_Option), String text, Maybe(String) name),// hypertext link + img_link (String img_url, String alt_text), push_button (List(CoreAttrs),String text), button (String url_off, String url_on), // rollover button button (String url_off, String url_on, Int32 w, Int32 h), // idem with size @@ -3180,10 +3180,10 @@ define Printable_tree text, "" ], - img_link(_, img) then + img_link(img,alt_text) then [ "" + "\" alt=\"" + alt_text + "\" border=\"0\">" ], push_button(options, text) then ["", @@ -3232,10 +3232,10 @@ define Printable_tree text, "" ], - img_link(url1, img) then + img_link(img, alt_text) then [ "" + "\" alt=\"" + alt_text + "\" border=\"0\">" ], push_button(options, text) then [ @@ -3314,45 +3314,7 @@ define Printable_tree }. -define Printable_tree - format_local_popup_button - ( - CommonInfo cinfo, - Actioner_Aspect aspect, - Int32 n, - ) = - if cinfo is info(common_name,http_port,https_port,site_dir,secret) then - [ "\n", - "", - if aspect is - { - link(opt,text,name) then [text], - img_link(url, img_url) then [url], - push_button(opt, text) then [text], - button(url_off,url_on) then - [ - "\"",url_off,"\"", - ], - - button(url_off,url_on,w,h) then - [ - "\"",url_off,"\"", - ], - submit(opt, text) then [text], - immediate_selector(options,name,size,choices) then alert, - immediate_selector(options,name,size,choices,selected) then alert, - }, - ""]. - - -- libgit2 0.21.4