Re: settextboxcontents/gettextboxcontents sequence

null@example.com (jeff) — Tue, 08 Mar 2022 17:19:34 +0000

If you're using the code above as-is, the program just executes straight through immediately. There is no "wait" state in the code.

You'd actually want something like:

       integer i1, ii1
       character*5 sa_text
       common /texts/ sa_text
       character*20 buffer
       common /buffer/ buffer

       sa_text = '0'
       call settextboxcontents (i1, sa_text)
       call settextboxentercallback (i1, enter_pressed)
       call loop()
       ii1 = gettextboxcontents (i1, buffer)
       read (buffer, *) start_angle

and add a subroutine enter_pressed:

       subroutine enter_pressed
       use appgraphics, only: stopidle
       implicit none

           call stopidle()

       end subroutine enter_pressed

that will cause the main program to break out of the call to loop when the user presses enter in a text box.

settextboxcontents/gettextboxcontents sequence

null@example.com (tun_day) — Tue, 08 Mar 2022 04:34:53 +0000

Why is the following not getting me user text input?

integer i1, ii1
character*5 sa_text
common /texts/ sa_text
character*20 buffer
common /buffer/ buffer

sa_text = '0'
call settextboxcontents (i1, sa_text)
call settextboxentercallback (i1, get_buffer)
ii1 = gettextboxcontents (i1, buffer)
read (buffer, *) start_angle

The buffer value does not change no matter what the user enters. What am I doing wrong?

Approximatrix Forums — settextboxcontents/gettextboxcontents sequence

Re: settextboxcontents/gettextboxcontents sequence

settextboxcontents/gettextboxcontents sequence