next up previous
Next: A.44 webutil.setl Up: A. WEBeye Source Code Previous: A.42 vc-toplev.setl

  
A.43 vc-zoomer.setl

Service provided:
zoomer

Client of service:
do    (vc-do.setl, Section A.11 [vc-do.setl])

Called by parent program:
vc-toplev.setl     (Section A.42 [vc-toplev.setl])

Textually #includes:
vc-simpler.setl     (Section A.40 [vc-simpler.setl])

Source code: *

const yhwh = `vc-zoomer.setl';
 
-- Simplified ``Zoom To'' command interface.
 
-- The client just sends a number (the zoom factor) on each line.
 
-- The name of the service we provide:
#define service_name `zoomer'
 
-- The number of parameters on the command:
#define n_parms   1
 
-- The full details of the command we will send to the do service:
#define build_cmd  \
  cmd := {};  \
  cmd.name := `Zoom';  \
  cmd.subcmd := `To';  \
  cmd.zoom_factor := val t(1);
 
#include "vc-simpler.setl"


next up previous
Next: A.44 webutil.setl Up: A. WEBeye Source Code Previous: A.42 vc-toplev.setl
David Bacon
1999-12-10