wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Tue May 11, 2021 4:07 am Post subject: Child window and scrollbars (Win32 vs Win64) |
|
|
All done in Plato.
In the following code, the first window appears, the second does not, and the print statement does not appear (Checkmate Win32). Basically, the program terminates with no error codes.
In Checkmate Win64, a message appears that a %sz is needed/expected. This matches the documentation for %ch using scrollbars. A subtlety I had missed in my production code.
BTW, when a %sz whose arguments are set to 0, all appears normally (as expected).
Code: |
winapp
integer:: a,b
call setup(a)
b = winio@('%ww%ca[This is window 1]&')
b = winio@('%ch',a)
call setup(a)
b = winio@('%ww%ca[This is window 2]&')
b = winio@('%ch[hscrollbar,vscrollbar]',a)
print *,'I have stopped'
stop
end
subroutine setup(a)
integer:: a
integer:: c
c = winio@('%sh&',a)
c = winio@('This is some strange text%2nl&')
c = winio@('')
return
end
|
An interesting artifact: When I acknowledge the error in Checkmate 64, Plato quits when I close the black "DOS box". Is that unusual? |
|