[futurebasic] Pop-Menu

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : January 1999 : Group Archive : Group : All Groups

From: "Terrald J. Smith, M.D." <tjsmith@...>
Date: Fri, 08 Jan 1999 15:39:29 -0600
I am still having random crashes with my program that does the list 
stuff....can't find or had any suggestions of any problems with that code.
I was thinking in the middle of the night (STUPID) that the problem may be
with the pop-menu stuff I am doing with that window.  On some rows I don't
want the pop-menu to show and on some other selections, I do.  I am using
the following code to hide and then show this.  Does this look like a
potential source of my crashes?  I have heard that messing with the pop-menu
stuff can be painful.
LOCAL FN showUserObj(wClass,objCon,show)
  DIM t,l,b,r
  FN pGgetObj(wClass,objCon)
  LONG IF show
    LONG IF gObjKind > 100
      gObjKind = gObjKind - 100
      LONG IF WINDOW(_outputWClass) = wClass
        DEF COPYRECT(gObjSelT,t)
        t=t-2:l=l-2:b=b+2:r=r+2
        CALL INVALRECT(t)
      END IF
    END IF
  XELSE
    LONG IF gObjKind < 100
      gObjKind = gObjKind + 100
      LONG IF WINDOW(_outputWClass) = wClass
        DEF COPYRECT(gObjSelT,t)
        t=t-2:l=l-2:b=b+2:r=r+2
        CALL ERASERECT(t)
      END IF
    END IF
  END IF
  FN pGputObj(wClass,objCon)
END FN

Thanks, Terrald