Microsoft KB Archive/110001

= BUG: WRITE Statement Not Shifting Window Focus =

PSS ID Number: 110001

Article Last Modified on 11/4/1999

-

The information in this article applies to:


 * Microsoft Fortran Powerstation 32 for Windows NT 1.0

-



This article was previously published under Q110001



SYMPTOMS
In a FORTRAN PowerStation QuickWin application, if a WRITE statement outputs to a child window that does not have the focus but that has IOFOCUS set to .TRUE., then that window is not given the focus.



CAUSE
The READ/WRITE routines in the standard FORTRAN libraries are supposed to give the graphics and the Windows focus to a child window during I/O if its IOFOCUS is TRUE. Instead, the READ/WRITE routines are giving the focus only to the graphics focus.



RESOLUTION
Switch focus to a particular child window by explicitly calling FocusQQ.



STATUS
Microsoft has confirmed this to be a problem in FORTRAN PowerStation 32 for Windows NT, version 1.0. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.



MORE INFORMATION
The following code reproduces the problem (the last write fails to bring Unit 1 to the foreground):

Sample Code
C Compile options needed: -MW C include 'flib.fi' include 'fgraph.fi' include 'flib.fd' include 'fgraph.fd'

integer*2 grstat call outtext('This is the default (*) window\n'c)     open (1,file='USER') call outtext('This should be in Unit 1\n'c)     grstat=incharqq

write (*,*) 'This should NOT bring the * unit to the ' +  //'foreground.' call outtext('This should still be in Unit 1.\n'c)     grstat=incharqq

open (2,file='USER') call outtext('This should be in Unit 2\n'c)     grstat=incharqq

write (1,*) 'This should have brought Unit 1 to the ' +  //'foreground.' call outtext('This should be in Unit 1.\n'c)     end

Additional query words: 1.00

Keywords: KB110001

Technology: kbAudDeveloper kbFORTRANPower32100NT kbFortranSearch kbZNotKeyword2

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© 2004 Microsoft Corporation. All rights reserved.