; CHAP5.ACT

; Chapter 5 program from
; _MUX=Window_Programming_
; By Bill Kendrick, (c) NBS 1995

; This program opens a connection, creates a window and displays
; some text in it.

; Include the MUX-Window routines

; Single machine:
INCLUDE "MUXLESSW.ACT"
; MUX network:
;INCLUDE "MUXW.ACT"

; Waits for a key on the Application Client's console

Proc WaitKey()
  Byte Key=764

  Print("(Press a key)")
  Key=255
  Do Until Key<255 Od
  Key=255
Return


; Displays text in a window on the Window Server

Proc Main()
  Window win
  Card A,Y
  Font fnt

  ; Connect to Window Server and tell it who and what we are

  If Connect("CHAP5","Demo")=FAILURE Then
    PrintE("Can't connect to server!")
    Return
  Fi

  ; Load a font

  fnt=LoadFont("OS")

  ; Create a window

  win=OpenWin(10,10,150,75,3,"CHAP5")
  If (win=NULL) Then
    PrintE("Can't create a window!")
    Return
  Fi

  ; Draw rectangle

  For A=0 To 25 Do
    DrawLine(win,A*3,0,0,A*3,BLACK,NORMAL)
    DrawLine(win,A*3+75,0,A*3,75,BLACK,NORMAL)
    DrawLine(win,150,75-A*3,150-A*3,75,BLACK,NORMAL)
  Od

  ; Draw different color combos of text

  y=0

  DrawString(win,0,y,"B/B",BLACK,WHITE,fnt)
  DrawString(win,32,y,"BLACK / BLACK",BLACK,BLACK,fnt)
  y=y+FontHeight(fnt)
  DrawString(win,0,y,"B/W",BLACK,WHITE,fnt)
  DrawString(win,32,y,"BLACK / WHITE",BLACK,WHITE,fnt)
  y=y+FontHeight(fnt)
  DrawString(win,0,y,"B/C",BLACK,WHITE,fnt)
  DrawString(win,32,y,"BLACK / CLEAR",BLACK,CLEAR,fnt)
  y=y+FontHeight(fnt)+2

  DrawString(win,0,y,"W/B",BLACK,WHITE,fnt)
  DrawString(win,32,y,"WHITE / BLACK",WHITE,BLACK,fnt)
  y=y+FontHeight(fnt)
  DrawString(win,0,y,"W/W",BLACK,WHITE,fnt)
  DrawString(win,32,y,"WHITE / WHITE",WHITE,WHITE,fnt)
  y=y+FontHeight(fnt)
  DrawString(win,0,y,"W/C",BLACK,WHITE,fnt)
  DrawString(win,32,y,"WHITE / CLEAR",WHITE,CLEAR,fnt)
  y=y+FontHeight(fnt)+2

  DrawString(win,0,y,"C/B",BLACK,WHITE,fnt)
  DrawString(win,32,y,"CLEAR / BLACK",CLEAR,BLACK,fnt)
  y=y+FontHeight(fnt)
  DrawString(win,0,y,"C/W",BLACK,WHITE,fnt)
  DrawString(win,32,y,"CLEAR / WHITE",CLEAR,WHITE,fnt)
  y=y+FontHeight(fnt)
  DrawString(win,0,y,"C/C",BLACK,WHITE,fnt)
  DrawString(win,32,y,"CLEAR / CLEAR",CLEAR,CLEAR,fnt)
  y=y+FontHeight(fnt)

  ; Wait for keypress

  WaitKey()

  ; Close our window and say goodbye

  CloseWin(win)
  Disconnect()
Return

PROC CALLER() ; For RETURN catching...
  MAIN()
RETURN