Museum

Home

Lab Overview

Retrotechnology Articles

⇒ Online Manual

Media Vault

Software Library

Restoration Projects

Artifacts Sought

PAD_$SET_AUTO_CLOSE               Domain/OS                PAD_$SET_AUTO_CLOSE


NAME
     pad_$set_auto_close - close a window when its pad closes

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

     void pad_$set_auto_close(
          ios_$id_t &stream_id,
          short &window_no,
          boolean &auto_close,
          status_$t *status)

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

     procedure pad_$set_auto_close(
          in stream_id: ios_$id_t;
          in window_no: integer;
          in auto_close: boolean;
          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, window_no
           logical auto_close

           call pad_$set_auto_close(stream_id, window_no, auto_close, status)

DESCRIPTION
     After a call to pad_$set_auto_close with the auto_close argument true,
     the window specified by stream_id and window_no will close when the
     stream to its pad is closed.  The result is equivalent to specifying the
     Display Manager command WC -A for the window.

     stream_id
          The stream ID for the pad viewed by the window.

     window_no
          The number of the window inquired about.  Window_no is an index into
          the window list returned by pad_$inq_windows.  A window_no of 1
          refers to the first window created to view the pad.

     auto_close
          A Boolean argument indicating whether the window should be closed
          automatically.  If auto_close is true, the window will close
          automatically when its pad is closed.  If auto_close is false, the
          window will not close automatically when its pad is closed.

     status
          The completion status.

SEE ALSO
     ios_$close.

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