Silverfrost Forums

Welcome to our forums

Child window and scrollbars (Win32 vs Win64)

11 May 2021 3:07 #27728

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).

	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?

11 May 2021 6:06 #27731

Bill

On occasion I find that Plato does crash after a spawned ClearWin+ program fails but at the moment a don't have a fix for that.

Plato has a recovery mechansm so it is unlikely that code changes will be lost.

Please login to reply.