wsh iconic

[Martin Liversage]

Just to straighten out a few facts...

In article <9102051753.AA01245 at avelon.lerc.nasa.gov> Tony Facca
<fsfacca at avelon.lerc.nasa.gov> writes:

> > Is it possible to execute 'wsh' so that it comes up iconic or
> > "stowed"?  Something like the "-iconic" flag of sunview programs.
> > I'm running NeWS (4Sight 1.1) on IRIX 3.2 (tomorrow it will be 3.3).
>
> Wait until tomorrow and then use "-Z7"

I'm running IRIX 3.2 and I have been using the (undocumented) '-Z7'
option for a long time.

In article <9102051758.AA06686 at ccfiris.aedc> Kenny McDonald
<c60244 at ccfiris.aedc> writes:

> You can start wsh with -Z7 to start it iconic.  You will have to place it
> with the mouse unless you give -px,y (where x,y is the lower left hand corner
> of the wsh).

Or you can use the preforigin, prefposition and prefalias described in
the NeWS manual to place windows on your desktop (not the real one 8) ).
You will have to put these statements in your user.ps file. FYI I
have included my own user.ps here:

---------------------------- example of user.ps ----------------------------
%
% User customization file.
%

systemdict /dbgstart known not { (NeWS/debug.ps) run } if

% Debugger Aliases
/dbe	{dbgbreakenter} def
/dbx	{dbgbreakexit} def
/dc	{dbgcontinue} def
/dcb	{dbgcontinuebreak} def
/dcc	{dbgcopystack dbgcontinue} def
/dcs	{dbgcopystack} def
/de	{dbgenter} def
/deb	{dbgenterbreak} def
/dgb	{dbggetbreak} def
/dk	{dbgkill} def
/dkb	{dbgkillbreak} def
/dlb	{dbglistbreaks} def
/dmp	{dbgmodifyproc} def
/dp	{dbgpatch} def
/dpe	{dbgprintfenter} def
/dpx	{dbgprintfexit} def
/dw	{dbgwhere} def
/dwb	{dbgwherebreak} def
/dx	{dbgexit} def
/dss	{dbgstop dbgstart} def

/RunWsh { % command name => -
  (wsh -r1000 -s40x80 -m60x80 -fScreen11 -n ') exch append
  (' -c ) append exch append
  seqfork
} def

/IconWsh { % command name => -
  (wsh -r1000 -s40x80 -m60x80 -fScreen11 -Z7 -n ') exch append
  (' -c ) append exch append
  seqfork
} def

/RunSh { % - => -
  (SHELL) getenv (wsh) RunWsh
} def

/IconSh { % - => -
  (SHELL) getenv (wsh) IconWsh
} def

/RunTelnet { % hostname => -
  dup (telnet ) exch append exch
  (.) search { 3 1 roll pop pop } if
  RunWsh
} def

/IconNotes { % - => -
  (emacs Notes -f split-window-vertically Projects) (notes) IconWsh
} def

%
% Customize the UserProfile
%

UserProfile /MenuHome /overFirst put
UserProfile /colorfulWindows /true put
UserProfile /prefStackSize 8 put
UserProfile /prefStacks 1 put 
UserProfile /prefDelta [ 8 -32 /Filling ] put

%
% Layout of desktop
%

(console)          21 21 preforigin
(wsh)              154 297 preforigin
(winterm)          (wsh) prefalias
(Emacs)            (wsh) prefalias
(WorkSpace)        (wsh) prefalias
(kl4iris)          (wsh) prefalias
(nbivax)           (wsh) prefalias
(vtam)             (wsh) prefalias
(localhost)        (wsh) prefalias
(notes)            (wsh) prefalias
(showmap)          154 297 600 600 prefposition
(gamcal)           (showmap) prefalias
(clock)            21 725 90 82 prefposition
(snoop)            953 21 preforigin
(snapshot)         1157 14 preforigin
(cal)              999 794 preforigin

/SysManPosition [ 154 628 ] def
/SysManGroup { % name delta => -
  SysManPosition 0 get
  UserProfile /prefDelta get 0 get add
  exch
  SysManPosition 1 get exch sub
  UserProfile /prefDelta get 1 get add
  preforigin
} def
(System Manager) SysManPosition 0 get SysManPosition 1 get preforigin
(Backup & Restore) 0 SysManGroup
(Backup) 215 SysManGroup
(Restore) 535 SysManGroup % fix this
(Disk and File) 100 SysManGroup
(Networking) 300 SysManGroup
(Printers) 0 SysManGroup
(Serial Ports) 85 SysManGroup
(Users) 235 SysManGroup

%
% My console
%

/consoleStartsIconic /false def

/RunConsole {
  (/etc/gl/startconsole -r1000 -s10x80 -m60x80 -fScreen11)
  /consoleStartsIconic where {
    pop
    consoleStartsIconic /true eq {
      ( -Z7) append
    } if
  } if
  seqfork
} def

%
% Start it all
%

/RestartActions [ 
%  { (twilight) seqfork }
  { (gamma 2.4) seqfork }
  { (makemap) seqfork }
  { (demochest) seqfork }
  { (clock) seqfork }
  { IconSh }               % is this a seqfork bug ???
  { RunSh }
  { IconSh }
  { IconNotes }
] def
---------------------------- example of user.ps ----------------------------

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\                                                                             \
\ Martin Liversage                      8616 m  /\                            \
\ Royal Dental College Copenhagen              /  \_   K2 - Mountain of Fate  \
\ Department of Pediatric Dentistry           / \   \       and Dreams        \
\ Norre Alle 20                              /   | | \                        \
\ DK-2200 Kobenhavn N                      /\    |  \ \                       \
\ +45 31 37 17 00 - 4276                  /  \ ^     | \                      \
\                                                                             \
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\