\slide{help-text}{ A hypertext help file }{
  Rubber banding: press the left mouse button
  and release when the rectangle is of appropriate
  size
      %%
  drawtool $this.draw 
  $this append $this.draw 
  $this.draw create rectangle 20 20 80 80
  $this.draw create rectangle 10 30 70 90
  $this.draw create oval 40 40 90 90
  $this append $this.draw 
  %%
  For additional information click on the %% 
  button $this.goto -text instruction -command end-of-text
  $this append $this.goto
  %%
  button.  Press %%
  button $this.quit -command { destroy . } -text quit 
  $this append quit
  %% to remove the window.
  
}{
  Rubber banding: press the left mouse button
  and release when the rectangle is of appropriate
  size
      %%
  drawtool $this.draw 
  $this append $this.draw 
  $this.draw create rectangle 20 20 80 80
  $this.draw create rectangle 10 30 70 90
  $this.draw create oval 40 40 90 90
  $this append $this.draw 
  %%
  For additional information click on the %% 
  button $this.goto -text instruction -command end-of-text
  $this append $this.goto
  %%
  button.  Press %%
  button $this.quit -command { destroy . } -text quit -bg pink
  $this append quit
  %% to remove the window.
  
} }