a few ?s - waitkey$ & mouse - and stops

[Doug Ingram]

OK... I'm finding the Graphic Window helpful but missing a couple things.

1) How can I read for mouse moves (or clicks) AND keyboard strokes? It seems I can only do one or the other.
I plotted stock prices on a window and I'm using Graphic Waitkey$ to check for key strokes, but I'd like to concurrently see if the mouse was moved or clicked.

2) I'm new to PB/CC and used to an 'interpretive' world.
Is there a way to find out where a program is "waiting"? Sometimes I can't tell which routine is active and stopping to program in a bunch of stops is time consuming (but what I've been doing).

Thanks!

[Manuel Valdes]

Doug:

A very simple example of mouse clicks and cursor keys capture:

a single click or Up/Down cursor key stroke moves de focus
a double click or Enter key makes selection

#COMPILE EXE
#CONSOLE OFF
DEFLNG a-z
 
GLOBAL OPS$(),clk&,xm!,ym!
GLOBAL CarH,CarW,Sk AS DOUBLE
GLOBAL I%,NO%,XS%,YS%,ST%,G%,hh&
 
FUNCTION PBMAIN () AS LONG
 DIM OPS$(4)
 DESKTOP GET CLIENT TO PixW,PixH
 x1=0
 y1=0
 x2=PixW
 y2=PixH
 DESKTOP GET SIZE TO WinX,WinY
 Caption$="SIMPLE"
 GRAPHIC WINDOW caption$,x1,y1,x2,y2 TO hwin
 GRAPHIC ATTACH hwin,0,REDRAW
 GRAPHIC SET LOC -3,0
 GRAPHIC CLEAR RGB(220,223,220)
 GRAPHIC COLOR %BLACK,RGB(220,223,220)
 GRAPHIC WIDTH 2
 GRAPHIC BOX(10,10)-(WinX-10,WinY-60),,RGB(128,128,128)
 FONT NEW "Courier New",20,0,0,0,Sk TO fnt1
 GRAPHIC SET FONT fnt1
 GRAPHIC CHR SIZE TO CarW,CarH
 MaxCol=PixW/CarW
 MaxRow=PixH/CarH
 OPS$(1)="Option 1"
 OPS$(2)="Option 2"
 OPS$(3)="Option 3"
 OPS$(4)="Exit    "
 NO%=4
 XS%=475
 YS%=25
 G%=1
 ST%=40
 DO
  CALL MENUV(NO%,XS%,YS%,OP$(),G%,T%)
  GRAPHIC COLOR %RED,RGB(220,223,220)
  GRAPHIC SET POS(XS%,YS%+ST%*NO%+50)
  SELECT CASE G%
   CASE 1
    GRAPHIC PRINT "Your selection was "+OPS$(1)
   CASE 2
    GRAPHIC PRINT "Your selection was "+OPS$(2)
   CASE 3
    GRAPHIC PRINT "Your selection was "+OPS$(3)
   CASE 4
    EXIT LOOP
  END SELECT
  GRAPHIC REDRAW
 LOOP
END FUNCTION
 
SUB MENUV(NO%,XS%,YS%,OP$(),G%,T%)
 DO
  DO UNTIL clk&=0                           'CLEAR ALL PREVIOUS CLICKS
   GRAPHIC WINDOW CLICK TO clk&,xm!,ym!
  LOOP
  CALL OPTIONS(XS%,YS%,NO%)
  GRAPHIC WINDOW CLICK TO clk&,xm!,ym!      'MOUSE CLICKS; SINGLES/DOUBLES
  GRAPHIC INKEY$ TO D$                      'CURSOR KEYS
  IF clk& THEN
   IF (xm!>XS% AND xm!<XS%+150) AND (ym!>YS% AND ym!<YS%+ST%*NO%)THEN
    G%=1+(ym!-YS%)\ST%
    IF clk&=2 THEN D$=CHR$(13)
   END IF
  END IF
  IF D$=CHR$(0,72) THEN
   IF G%>1 THEN
    DECR G%
   ELSE
    G%=NO%
   END IF
  ELSEIF D$=CHR$(0,80) THEN
   IF G%<NO% THEN
    INCR G%
   ELSE
    G%=1
   END IF
  ELSEIF D$=CHR$(0,68) THEN
   T%=1
   EXIT LOOP
  ELSEIF D$=CHR$(13) OR FLG%=1 THEN
   CALL OPTIONS(XS%,YS%,NO%)
   SLEEP 10
   EXIT LOOP
  END IF
 LOOP
END SUB
 
SUB OPTIONS(XS%,YS%,NO%)
 FOR I%=1 TO NO%
  IF I%=G% THEN
   GRAPHIC COLOR %RED,RGB(220,223,220)
  ELSE
   GRAPHIC COLOR %BLACK,RGB(220,223,220)
  END IF
  GRAPHIC SET POS(XS%,YS%+ST%*(I%-1)+4)
  GRAPHIC PRINT OPS$(I%)
  GRAPHIC REDRAW
 NEXT
END SUB