heitml Source Display

File: /usr/local/httpd/htdocs/heitml2.0/lib/cointeract.hei


// Interactive Components
// Copyright (C) 1996-2000 by H.E.I. Informationssysteme GmbH and suppliers.
// This file is part of heitml.  All licensing conditions of the
// heitml package apply.  See the license file contained in the heitml
// distribution.
<includeonce>//
<include component.hei>//
<include ses.hei>//
<include javasc.hei>//
<
defenv iaLink fragment=null urlpar="" href=null target=null @this ...;
  inherit Interactive, InlineComponent; deftranspara;
  if isnull(href); href=SrvLocalUrl; /if;
  registerme;
  l=gl._complevel; if gl._complevel &gt; 15; gl._complevel = 15; /if; /* suppress handles inside */
  ><sa href=href urlpar=this._bid+"=t"+urlpar fragment=fragment target=target><defbody></sa> <
  let gl._complevel=l;
/defenv

def iaButton value @this ...; 
  inherit Interactive, InlineComponent; definpara; defnowysiwyg;
  registerme; this.panel=default(gl._curpanel);
  l=gl._complevel; if gl._complevel &gt; 15; gl._complevel = 15; /if; /* suppress handles inside */
  ><input type="submit" name="<?this._bid>" <? value "Pn">><
  let gl._complevel=l;
/def

defenv iajsButton name=null hidden=null value=null; inherit Interactive, InlineComponent; 
    definpara; defnowysiwyg;
  def myprocess x; 
     return null;
  /def;
  def process x;
     if !isempty(x); return this.myprocess(x); /if;
     return null;
  /def;
  this.panel= gl._curpanel;  form = "window.document."+this.panel.form.name;
  l=gl._complevel; if gl._complevel &gt; 15; gl._complevel = 15; /if; /* suppress handles inside */
  registerme;
  this.name= default (name, this._bid);
  ><input type="hidden" <?this.name "Pn"> value=""><hei;
  js
     >function yysubmit_<?this.name>() {<?form>.<?this.name>.value="t"; <?form>.submit();}<
     if !htmlbool(hidden) && gl._complevel<15;
        ><jswrite><\a href="javascript:yysubmit_<?this.name>();"><defbody><\/a></jswrite><
     /if;
  /js
  if !htmlbool(hidden) && 15<=gl._complevel;
     ><\a href="javascript:yysubmit_<?this.name>();"><defbody><\/a><
  /if;
  if !isempty(value) &&  !htmlbool(hidden);
     ><NOSCRIPT><input type="submit" name="<?this.name>" <? value "Pn">></NOSCRIPT><
  /if;
  gl._complevel=l;
/defenv

defenv iaContainer **oid; inherit InlineComponent; deftranspara;
   defenv pre;  this.pre=defbody;  /defenv;
   defenv post; this.post=defbody; /defenv;
   defenv cont; this.cont=defbody; /defenv;
   def    clear;this.pre=this.post=this.cont=null; /def;
   def    clearcont; this.cont=null; /def;

   if !isempty(this.pre); defbody this.pre; /if;
   if !isempty(this.cont); ? this.cont html; else defbody; /if;
   if !isempty(this.post); defbody this.post; /if;
/defenv

defenv iaIns **oid; inherit object;
   nocompedit; assign this.cont; defbody; /assign; /nocompedit;
   setclass(this,"iaContainer");
/defenv;

defenv iaDlink action receiver key fragment=null href=SrvLocalUrl panel=gl._curpanel; 
   inherit InlineComponent, Interactive; deftranspara;
   def process pff;
       sessionSendMsg this.receiver this.action this.p;
   /def;

   f=gl._curpanel; this.form=f;
   if !isdecl(f.ff); return; /if;
   k = splitstring(key); q=f.ff;
   let p = emptytuple;
        forin i k;
              kn=k[i];
              n=substring(kn,0,default(index(kn,"="),len(kn)));
              fn=substring(kn,default(index(kn,"="),-1)+1,len(kn));
              p [n] = default(q[fn]);
              if !isdecl(q[fn]); error=true; /if;
        /forin;
   so=_sessionSendObj (receiver action p);
   l=gl._complevel; if gl._complevel &gt; 15; gl._complevel = 15; /if; /* suppress handles inside */
   ><sa href=href fragment=fragment urlpar=so._bid+"=t"><defbody></sa><
   let gl._complevel=l;
/defenv

defenv iaMsgLink action receiver href target=null @p ...;
   inherit InlineComponent, Interactive; deftranspara;
   so=_sessionSendObj (receiver action p);
   l=gl._complevel; if gl._complevel &gt; 15; gl._complevel = 15; /if; /* suppress handles inside */
   ><sa href=href target=target urlpar=so._bid+"=t"><defbody></sa><
   let gl._complevel=l;
/defenv
>