BUG: SETWINDOWCONFIG Returns an Invalid Configuration

MORE INFORMATION

To demonstrate this problem, compile and run the sample code below. Both the first and second calls to SETWINDOWCONFIG() generate a window configuration record that is not consistent. For example, the number of pixels needed in X (106) does not equal the number of text rows (13) times the row width (8). Even with these inconsistencies, the third call does succeed.

Sample Code

C compile options required: /MW or /MWs

      include 'flib.fi'
      include 'fgraph.fi'
      include 'flib.fd'
      include 'fgraph.fd'

      record /windowconfig/ wc

      wc.numxpixels=-1
      wc.numypixels=-1
      wc.numtextcols=1
      wc.numtextrows=1
      wc.numcolors=-1
      wc.fontsize=-1

      print *, 'Success? ',setwindowconfig(wc)
      print *, 'numxpixels',wc.numxpixels
      print *, 'numypixels',wc.numypixels
      print *, 'numtextcols',wc.numtextcols
      print *, 'numtextrows',wc.numtextrows
      print '(A,Z8)', ' Font size: ',wc.fontsize
      print *, 'Success? ',setwindowconfig(wc)
      print *, 'numxpixels',wc.numxpixels
      print *, 'numypixels',wc.numypixels
      print *, 'numtextcols',wc.numtextcols
      print *, 'numtextrows',wc.numtextrows
      print '(A,Z8)', ' Font size: ',wc.fontsize
      print *, 'Hit return to continue'
      read *
      print *, 'Success? ',setwindowconfig(wc)

      END