[futurebasic] Re: Chg Btn with Opt key

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : March 1998 : Group Archive : Group : All Groups

From: MacMuse <MacMuse@...>
Date: Sun, 22 Mar 1998 18:24:27 EST
>>Does anyone have code to change the name of a button depending on whether
>>the option key is down or not? Is this best handled in the FN directed
>>from ON EVENT, or from ON EDIT or in some other way?
>
>You can do it in either. Doing it in ON EVENT is dealing with it at a lower
>level than DO DIALOG and, in general, you're better off doing it at the
>highest possible level. Check this out...

Charlie & Mark, thanks for the suggestions. Here is my current code with 
one problem remaining...

  SELECT CASE WINDOW (_activeWnd)
    CASE _addNmListScrn
      '--- check for option key -------
      modKey% = EVENT%
      optKeyDown% = modKey% AND _optionKey%
      LONG IF optKeyDown%
        LONG IF gOptFlag% = _false
          BUTTON 1,_activeBtn,"Import Names"
          gOptFlag% = _ztrue
        END IF
      XELSE
        LONG IF gOptFlag% = _ztrue
          BUTTON 1,_activeBtn,"Add Name"
          gOptFlag% = _false
        END IF
      END IF
      '----------------------------

I tried this in both FN doDialog and FN doMacEvent and it works exactly 
the same either way. That is the button is not changed until the cursor 
is moved over the button. I would like the button to be changed as soon 
as the option key is pressed or released. Using WINDOW FILL made no 
difference. Neither did turning AUTOCLIP off. I suspect that no dialog or 
event is being generated by the option key. Any ideas on how I can get 
the button to change with the key press?

TIA again



Roger M. Clary
MacMUSE Software
MacMuse@...
http://members.aol.com/macmuse