67bff71999-11-15Jonas Wallden // Button module. Generates graphical buttons for use in Roxen config // interface, Roxen SiteBuilder and other places. //
5dac1c2000-01-10Martin Nilsson // Copyright © 1999-2000 Idonex AB. Author: Jonas Walldén, <jonasw@idonex.se>
67bff71999-11-15Jonas Wallden  // Usage: // // <gbutton // bgcolor -- background color inside/outside button // bordercolor -- button border color // textcolor -- button text color // href -- button URL // alt -- alternative button alt text // border -- image border
0b91941999-11-16Jonas Wallden // state -- enabled|disabled button state // textstyle -- normal|consensed text
67bff71999-11-15Jonas Wallden // icon_src -- icon reference // icon_data -- inline icon data // align -- left|center|right text alignment // align_icon -- left|center_before|center_after|right icon alignment // >Button text</gbutton> // // Alignment restriction: when text alignment is either left or right, icons // must also be aligned left or right.
6313432000-02-07Per Hedbor constant cvs_version = "$Id: gbutton.pike,v 1.17 2000/02/07 04:43:10 per Exp $";
67bff71999-11-15Jonas Wallden constant thread_safe = 1; #include <module.h> inherit "module"; inherit "roxenlib"; roxen.ImageCache button_cache;
95b3891999-11-15Jonas Wallden // Distance between icon image and text #define IMAGE_SPC 5
67bff71999-11-15Jonas Wallden array register_module() { return( ({ MODULE_PARSER, "GButton", "Provides the <tt>&lt;gbutton&gt;Title&lt;/gbutton&gt;</tt> "
2e0a351999-12-09Martin Nilsson  "tag for drawing graphical buttons.", 0, 1 }) ); } TAGDOCUMENTATION #if manual constant tagdoc=(["gbutton":"","gbutton-url":""]); /*
67bff71999-11-15Jonas Wallden  "<table border=0>" "<tr><td><b>bgcolor</b></td><td>Background color inside and " "outside button</td></tr>" "<tr><td><b>bordercolor</b></td><td>Button border color</td></tr>" "<tr><td><b>textcolor</b></td><td>Button text color</td></tr>" "<tr><td><b>href</b></td><td>Button URL</td></tr>" "<tr><td><b>alt</b></td><td>Alternative button alt text</td></tr>" "<tr><td><b>border</b></td><td>Image border</td></tr>"
0b91941999-11-16Jonas Wallden  "<tr><td><b>state</b></td><td>Set to <tt>enabled</tt> or " "<tt>disabled</tt> to select button state</td></tr>"
67bff71999-11-15Jonas Wallden 
0b91941999-11-16Jonas Wallden  "<tr><td><b>textstyle</b></td><td>Set to <tt>normal</tt> or " "<tt>condensed</tt> to alter text style.</td></tr>"
67bff71999-11-15Jonas Wallden  "<tr><td><b>icon_src</b></td><td>Icon reference</td></tr>" "<tr><td><b>icon_data</b></td><td>Inline icon data</td></tr>" "<tr><td><b>align</b></td><td>Text alignment: " "<tt>left|center|right</tt></td></tr>" "<tr><td><b>align_icon</b></td><td>Icon alignment: " "<tt>left|center_before|center_after|right</tt></td></tr>" "</table><p>" "There are some alignment restrictions: when text alignment is " "either <tt>left</tt> or <tt>right</tt>, icons must also be "
2e0a351999-12-09Martin Nilsson  "aligned <tt>left</tt> or <tt>right</tt>." */ #endif
67bff71999-11-15Jonas Wallden  void start() { button_cache = roxen.ImageCache("gbutton", draw_button); } mapping query_tag_callers() { return ([ ]); } mapping query_container_callers() {
3014c21999-11-15Per Hedbor  return ([ "gbutton" : tag_button, "gbutton-url" : tag_button ]);
67bff71999-11-15Jonas Wallden } object(Image.Image)|mapping draw_button(mapping args, string text, object id) { Image.Image text_img, b, tmp, button; int req_width, b_width, b_height, t_width, i_width, icn_x, txt_x; mapping icon;
7169752000-02-02Per Hedbor  object button_font = resolve_font( args->font );
f6ea612000-02-07Per Hedbor  Image.Image button_border; Image.Image button_mask;
7169752000-02-02Per Hedbor 
f6ea612000-02-07Per Hedbor  if( args->border_image ) { mapping q = roxen.low_load_image(args->border_image, id); if( q ) { button_border = q->img; if(!q->alpha) button_mask = Image.Image( q->img->xsize(),q->img->ysize(), 255,255,255 ); else button_mask = q->alpha; } } // otherwise load default images
e76d2c2000-02-03Per Hedbor  if (!button_border) {
f6ea612000-02-07Per Hedbor  mapping q = Image._load("roxen-images/gbutton_border.xcf"); button_border = q->img; button_mask = q->alpha;
5dac1c2000-01-10Martin Nilsson  }
67bff71999-11-15Jonas Wallden  // Colorize borders if (!args->dim)
e76d2c2000-02-03Per Hedbor  {
f6ea612000-02-07Per Hedbor  b = button_border->grey()->
5dac1c2000-01-10Martin Nilsson  modify_by_intensity(1, 1, 1, args->bo, args->bob );
e76d2c2000-02-03Per Hedbor  }
7169752000-02-02Per Hedbor  else
7597c81999-11-24Per Hedbor  {
e76d2c2000-02-03Per Hedbor  array dim_bg; array dim_bo;
7169752000-02-02Per Hedbor 
e76d2c2000-02-03Per Hedbor  array hsv = Image.Color( @args->bg )->hsv( ); hsv[-1] = min( hsv[-1]+70, 255 ); dim_bg = (array)Image.Color.hsv( @hsv ); hsv[-1] = max( hsv[-1]-140, 0 ); dim_bo = (array)Image.Color.hsv( @hsv ); b = button_border->grey()->
67bff71999-11-15Jonas Wallden  modify_by_intensity(1, 1, 1, dim_bo, dim_bg); } b_width = b->xsize(); b_height = b->ysize();
7169752000-02-02Per Hedbor 
67bff71999-11-15Jonas Wallden  // Get icon if (args->icn) icon = roxen.low_load_image(args->icn, id); else if (args->icd) icon = roxen.low_decode_image(args->icd);
95b3891999-11-15Jonas Wallden  i_width = icon && (icon->img->xsize() + IMAGE_SPC);
7169752000-02-02Per Hedbor 
67bff71999-11-15Jonas Wallden  // Generate text
3c24b62000-01-19Fredrik Noring  if (sizeof(text)) { text_img = button_font->write(text)->scale(0, b_height - IMAGE_SPC); if (args->cnd) text_img = text_img->scale((int) round(text_img->xsize() * 0.8), text_img->ysize()); t_width = text_img->xsize(); }
7169752000-02-02Per Hedbor 
67bff71999-11-15Jonas Wallden  // Compute text and icon placement req_width = t_width + b_width + i_width; if (args->wi && (req_width < args->wi)) req_width = args->wi; switch (lower_case(args->al)) { case "left": // Allow icon alignment: left, right switch (lower_case(args->ica)) { case "left": icn_x = b_width / 2; txt_x = icn_x + i_width; break; default: case "right": txt_x = b_width / 2;
95b3891999-11-15Jonas Wallden  icn_x = req_width - b_width / 2 - i_width + IMAGE_SPC;
67bff71999-11-15Jonas Wallden  break; } break; default: case "center": case "middle": // Allow icon alignment: left, center, center_before, center_after, right switch (lower_case(args->ica)) { case "left": icn_x = b_width / 2; txt_x = icn_x + i_width + (req_width - icn_x - i_width - b_width / 2 - t_width) / 2; break; default: case "center": case "center_before": icn_x = (req_width - i_width - t_width) / 2; txt_x = icn_x + i_width; break; case "center_after": txt_x = (req_width - i_width - t_width) / 2;
95b3891999-11-15Jonas Wallden  icn_x = txt_x + t_width + IMAGE_SPC;
67bff71999-11-15Jonas Wallden  break; case "right":
95b3891999-11-15Jonas Wallden  icn_x = req_width - b_width / 2 - i_width + IMAGE_SPC; txt_x = b_width / 2 + (icn_x - IMAGE_SPC - b_width / 2 - t_width) / 2;
67bff71999-11-15Jonas Wallden  break; } break; case "right": // Allow icon alignment: left, right switch (lower_case(args->ica)) { default: case "left": icn_x = b_width / 2; txt_x = req_width - b_width / 2 - t_width; break; case "right":
95b3891999-11-15Jonas Wallden  icn_x = req_width - b_width / 2 - i_width + IMAGE_SPC; txt_x = icn_x - IMAGE_SPC - t_width;
67bff71999-11-15Jonas Wallden  break; } break; }
f6ea612000-02-07Per Hedbor 
67bff71999-11-15Jonas Wallden  button = Image.Image(req_width, b_height, args->bg);
7169752000-02-02Per Hedbor 
67bff71999-11-15Jonas Wallden  // Paste left and right edge of border tmp = b->copy(0, 0, b_width / 2 - 1, b_height - 1); button->paste_mask(tmp, button_mask->copy(0, 0, b_width / 2 - 1, b_height - 1)); tmp = b->copy(b_width / 2, 0, b_width - 1, b_height - 1);
f6ea612000-02-07Per Hedbor 
67bff71999-11-15Jonas Wallden  button->paste_mask(tmp, button_mask->copy(b_width / 2, 0, b_width - 1, b_height - 1), req_width - b_width / 2, 0);
7169752000-02-02Per Hedbor 
f6ea612000-02-07Per Hedbor  tmp = button_mask->copy(0, 0, b_width / 2 - 1, b_height - 1) ->invert()->threshold(250); button->paste_alpha_color(tmp, args->pagebg); tmp = button_mask->copy(b_width / 2, 0, b_width - 1, b_height - 1) ->invert()->threshold(250); button->paste_alpha_color(tmp, args->pagebg, button->xsize()-tmp->xsize(), 0);
67bff71999-11-15Jonas Wallden  // Stretch top/bottom borders tmp = button->copy(b_width / 2 - 1, 0, b_width / 2 - 1, b_height - 1); for (int offset = b_width / 2; offset <= req_width - b_width / 2; offset++) button->paste(tmp, offset, 0);
7169752000-02-02Per Hedbor 
67bff71999-11-15Jonas Wallden  // Draw icon if (icon) { int icn_y = (b_height - icon->img->ysize()) / 2;
7169752000-02-02Per Hedbor 
67bff71999-11-15Jonas Wallden  if (!icon->alpha)
7597c81999-11-24Per Hedbor  icon->alpha = icon->img->clone()->clear(({255,255,255}));
67bff71999-11-15Jonas Wallden  if (args->dim) icon->alpha *= 0.3; button->paste_mask(icon->img, icon->alpha, icn_x, icn_y); }
f6ea612000-02-07Per Hedbor 
67bff71999-11-15Jonas Wallden  // Draw text if (args->dim) for (int i = 0; i < 3; i++) args->txt[i] = (args->txt[i] + args->bg[i]) / 2;
3c24b62000-01-19Fredrik Noring  if(text_img) button->paste_alpha_color(text_img, args->txt, txt_x, 2);
7169752000-02-02Per Hedbor 
67bff71999-11-15Jonas Wallden  return button; } mapping find_internal(string f, RequestID id) { return button_cache->http_file_answer(f, id); } string tag_button(string tag, mapping args, string contents, RequestID id) {
f6ea612000-02-07Per Hedbor  string fi = (args["frame-image"]||id->misc->defines["gbutton-frame-image"]); if( fi ) fi = fix_relative( fi, id );
67bff71999-11-15Jonas Wallden  mapping new_args = ([
f6ea612000-02-07Per Hedbor  "pagebg" :parse_color(id->misc->defines->theme_bgcolor || id->misc->defines->bgcolor || args->bgcolor || "#eeeeee"), // _page_ background color "bg" : parse_color(args->bgcolor || id->misc->defines->theme_bgcolor || id->misc->defines->bgcolor || "#eeeeee"), // Background color
5dac1c2000-01-10Martin Nilsson  "txt" : parse_color(args->textcolor || id->misc->defines->theme_bgcolor || id->misc->defines->fgcolor || "#000000"), // Text color
0b91941999-11-16Jonas Wallden  "cnd" : args->condensed || // Condensed text (lower_case(args->textstyle || "") == "condensed"),
67bff71999-11-15Jonas Wallden  "wi" : (int) args->width, // Min button width "al" : args->align || "left", // Text alignment
0b91941999-11-16Jonas Wallden  "dim" : args->dim || // Button dimming (< "dim", "disabled" >)[lower_case(args->state || "")],
67bff71999-11-15Jonas Wallden  "icn" : args->icon_src && fix_relative(args->icon_src, id), // Icon URL "icd" : args->icon_data, // Inline icon data
7169752000-02-02Per Hedbor  "ica" : args->align_icon || "left", // Icon alignment
f6ea612000-02-07Per Hedbor  "font": (args->font||id->misc->defines->font|| roxen->query("default_font")), "border_image":fi,
67bff71999-11-15Jonas Wallden  ]);
5dac1c2000-01-10Martin Nilsson 
e76d2c2000-02-03Per Hedbor  array hsv = Image.Color( @new_args->bg )->hsv( ); hsv[-1] = min( hsv[-1]+70, 255 ); new_args->bob = (array)Image.Color.hsv( @hsv ); hsv[-1] = max( hsv[-1]-140, 0 ); new_args->bo = (array)Image.Color.hsv( @hsv );
5dac1c2000-01-10Martin Nilsson  if(args->bordercolor) new_args->bo=parse_color(args->bordercolor); // Border color if(args->borderbottom) new_args->bob=parse_color(args->borderbottom);
95b3891999-11-15Jonas Wallden  new_args->quant = args->quant || 128;
67bff71999-11-15Jonas Wallden  foreach(glob("*-*", indices(args)), string n) new_args[n] = args[n];
95b3891999-11-15Jonas Wallden 
67bff71999-11-15Jonas Wallden  string img_src = query_internal_location() + button_cache->store( ({ new_args, contents }), id);
3014c21999-11-15Per Hedbor  if( tag == "gbutton-url" ) return img_src;
67bff71999-11-15Jonas Wallden  mapping img_attrs = ([ "src" : img_src, "alt" : args->alt || contents,
95b3891999-11-15Jonas Wallden  "border" : args->border, "hspace" : args->hspace, "vspace" : args->vspace ]);
7169752000-02-02Per Hedbor 
67bff71999-11-15Jonas Wallden  if (mapping size = button_cache->metadata(new_args, id, 1)) { // Image in cache (1 above prevents generation on-the-fly, i.e. // first image will lack sizes). img_attrs->width = size->xsize; img_attrs->height = size->ysize; }
5dac1c2000-01-10Martin Nilsson 
67bff71999-11-15Jonas Wallden  // Make button clickable if not dimmed
da94fd1999-11-16Jonas Wallden  if (args->href && !new_args->dim) { mapping a_attrs = ([ "href" : args->href ]); if (args->target) a_attrs->target = args->target; return make_container("a", a_attrs, make_tag("img", img_attrs)); } else
67bff71999-11-15Jonas Wallden  return make_tag("img", img_attrs); }