dojo toaster added

Steve MARECHAL
1 parent 6c9765c0
Showing 1 changed file with 45 additions and 1 deletions Show diff stats
calexium_lib/web/CXM_dojo.anubis
@@ -20,13 +20,41 @@ read mailfountain_constants.anubis
 read mailfountain_types.anubis
 read common/language_management.anubis
-read common/generic_page.anubis
 read tools/mf_loggers.anubis
 read system/logger.anubis
 public type Dojo_Grid_Data :
   grid_data(String).
+public type Position_Direction:
+ 	brup,
+ 	brleft, 
+ 	blup, 
+ 	blright, 
+ 	trdown, 
+ 	trleft, 
+ 	tldown, 
+ 	tlright.
+
+define String
+  pos_dir_to_str
+  (
+    Position_Direction pos
+  )=
+  if pos is
+  {
+    brup    then "br-up",
+ 	  brleft  then "br-left", 
+ 	  blup    then "bl-up", 
+ 	  blright then "bl-right", 
+ 	  trdown  then "tr-down", 
+ 	  trleft  then "tr-left", 
+ 	  tldown  then "tl-down", 
+ 	  tlright then "tl-right"
+  }.
+
+
+
 public define HTML_Off_Form
   dojo_button
   	(
@@ -495,3 +523,19 @@ public define HTML_In_Form
   )=
    // selector_c([attr("dojoType", "dijit.form.ComboBox") . attributes], label, id, name, 1, list_data, selected, non_mandatory).
   selector_c([], label, id, name, 1, list_data, selected).
+
+public define HTML_Off_Form
+  dojo_toaster
+  (
+    List(CoreAttrs)            attributes,
+    HtmlId                     html_id,
+    String                     message_topic,
+    Position_Direction         position_direction,
+    Bool                       separator
+  )=
+  div(append(if separator then [attr("separator","&lt;hr&gt;")]
+             else [], [attr("dojoType", "dojox.widget.Toaster"), attr("messageTopic", message_topic),
+      attr("positionDirection", pos_dir_to_str(position_direction)), id(html_id.id) 
+      . attributes ]),
+      literal("")).
+