Museum

Home

Lab Overview

Retrotechnology Articles

⇒ Online Manual

Media Vault

Software Library

Restoration Projects

Artifacts Sought

PAD_$SET_TABS                     Domain/OS                      PAD_$SET_TABS


NAME
     pad_$set_tabs - set tab stops within a pad

SYNOPSIS (C)
     #include <apollo/base.h>
     #include <apollo/pad.h>

     void pad_$set_tabs(
          ios_$id_t &stream_id,
          short *tab_stop_array,
          short &no_of_tabs,
          status_$t *status)

SYNOPSIS (Pascal)
     %include '/sys/ins/base.ins.pas';
     %include '/sys/ins/pad.ins.pas';

     procedure pad_$set_tabs(
          in stream_id: ios_$id_t;
          in tab_stop_array: pad_$tabstop_buf_t;
          in no_of_tabs: integer;
          out status: status_$t);

SYNOPSIS (FORTRAN)
     %include '/sys/ins/base.ins.ftn'
     %include '/sys/ins/pad.ins.ftn'

           integer*4 status
           integer*2 stream_id, tab_stop_array(100), no_of_tabs

           call pad_$set_tabs(stream_id, tab_stop_array, no_of_tabs, status)

DESCRIPTION
     Pad_$set_tabs sets tabs for the pad open on stream_id.

     The default tab stops are every four columns.

     stream_id
          The ID of the stream the pad is open on.

     tab_stop_array
          An array of up to 100 column numbers for tab stops.  The column
          numbers are horizontal coordinates scaled by the current horizontal
          scale factor.  Thus, for pad_$set_tabs to set tabs in actual text
          columns, the horizontal scale factor should be equal to the current
          font's horizonal dimension.  Fortunately, the default scale factors
          are the font dimensions, and the default can always be restored by
          calling pad_$set_scale with scale factors of 0.

     no_of_tabs
          The number of tab stops defined in tab_stop_array.

     status
          The completion status.

Typewritten Software • bear@typewritten.org • Edmonds, WA 98026