\slide{help-text}{ A hypertext help file }{
  Rubber banding: press the left mouse button
  and release whwn the rectangle is of appropriate
  size
      %%
  drawtool $this.draw 
  $this append $this.draw 
  
  $this.draw create rectangle 20 20 120 50 -fill green
  $this.draw create rectangle 20 20 100 40 -fill blue
  $this.draw create rectangle 20 20 80 30 -fill red
  
  $this append $this.draw 
  %%
  For additional information click on the %% 
  button $this.goto -text instruction \backsl
  	-command "global EOT; $this gotoline $EOT"
  $this append $this.goto
  %%
  button.  Press %%
  button $this.quit -command { destroy . } -text quit -bg pink
  $this append quit
  %% to remove the window.
  %%
  global EOT
  set EOT [expr $thisline-1 ]
  %%
  Additonal information ...
  
}