/*
 * urlbtn -- urlbutton
 *
 * Dataobject for an button that causes Mosiac to open a window on a URL.
 *
 */

class urlbutton [urlbtn] : sbutton {
  overrides:
    Read (FILE *file, long id) returns long;
    Write (FILE *file, long writeid, int level) returns long;
    ViewName() returns char *;
    EnsureSize(int ind) returns boolean;
  methods:
    SetURL(char *url);
    SetText(char *txt);		/* Text for user to read (i.e the label) */
  macromethods:
    GetURL()	(self->current_url)
  classprocedures:
    InitializeClass() returns boolean;
    InitializeObject(struct urlbutton *self) returns boolean;
    FinalizeObject(struct urlbutton *self);
  data:
    char *current_url;
    boolean has_label;
};