[fixed] Why CTRL+R not equal to MMB ?

Code:

get_mouse_state() ->

    wx:batch(fun() ->

             MS = wx_misc:getMouseState(),

             #wxMouseState{x=X0, y=Y0,  %% integer()

                   leftDown=Left,

                   middleDown=Middle,

                   rightDown=Right %% bool()

                  } = MS,

             {X,Y} = wxWindow:screenToClient(get(gl_canvas), {X0,Y0}),



             C = wings_io:is_modkey_pressed(?CTRL_BITS),

             if (C andalso Right) ->  % example ... used by Nendo two button folks.

                 {gui_state([{Left,   ?SDL_BUTTON_LMASK},

                     {true, ?SDL_BUTTON_MMASK},

                     {false,  ?SDL_BUTTON_RMASK}], 0), X, Y};

             true ->

                 {gui_state([{Left,   ?SDL_BUTTON_LMASK},

                     {Middle, ?SDL_BUTTON_MMASK},

                     {Right,  ?SDL_BUTTON_RMASK}], 0), X, Y}

             end

         end).

Code:

:

popup_events(Dialog, Panel, Entries, Magnet, Previous, Ns, Owner) ->

    receive

    #wx{id=Id, obj=Obj, event=#wxMouse{type=enter_window}} ->

        Set = fun() ->

:

    #wx{id=Id0, event=Ev=#wxMouse{type=_What, y=Y, x=X}} ->     [*** changes here ***]

        Id = case Id0 > 0 orelse find_active_panel(Panel, X, Y) of

             true -> Id0;

             {false, _} = No -> No;

             {AId, _} -> AId

         end,

            What = mouse_button(Ev),     [*** That is new ***]

        case Id of

        {false, outside} when What =:= right_up ->

            wxPopupTransientWindow:dismiss(Dialog),

            wings_wm:psend(Owner, restart_menu);

        {false, _} ->

:

        end;

    #wx{event=#wxShow{}} ->

:

    end.

:

:

mouse_index(left_up) -> 1;

mouse_index(middle_up) -> 2;

mouse_index(right_up) -> 3.



[*** That is new ***]

mouse_button(#wxMouse{type=What, controlDown = Ctrl, altDown = Alt, metaDown = Meta}) ->

        case wings_pref:get_value(num_buttons) of

            1 ->

                case {What,Alt,Ctrl} of

                    {left_up,true,false} -> middle_up;

                    {left_up,false,true} -> right_up;

                    _ -> What

                end;

            2 ->

                case {What,(Ctrl or Meta)} of

                    {right_up,true} -> middle_up;

                    _ -> What

                end;

            _ -> What

        end.