home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / misc_xts.zip / XTCTRWIN.XTS < prev   
Text File  |  1990-01-26  |  683b  |  29 lines
  1.  
  2. /*
  3.     Procedure CENTER_WINDOW:  Open a new window, centered on the screen.
  4.         Includes title insertion and color.
  5.  
  6.     CENTER_WINDOW, "Test Window", chan, height, width, color
  7.  
  8.     Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
  9.     All rights reserved
  10.     For Crosstalk Mk. 4, Ver 2.0 - 01-19-90 by Sheldon T. Hall
  11.  
  12. */
  13.  
  14. proc CENTER_WINDOW takes string BLURB, integer WINCHAN, HEIGHT, WIDTH, WINSHADE
  15.  
  16.     B = " " + BLURB + " "
  17.     h = HEIGHT min 1
  18.     w = WIDTH min 1
  19.     r = screenheight\2
  20.     c = screenwidth\2
  21.  
  22.     window WINCHAN, at (r-(h/2)) min 0, (c-(w/2)) min 0, size h, w, ...
  23.         color WINSHADE, border 3
  24.  
  25.     if not null(BLURB) then title #WINCHAN, B
  26.  
  27. endproc
  28.  
  29.