Post by tsh73 on Jan 31, 2021 7:54:18 GMT -5
Set popupmenu to open on rightButtonDown
Menu opens, but selection doesn't trigger menu event.
As I checked,
leftButtonDown
leftButtonUp
rightButtonUp
works OK.
Found on Win10 in really big program.
It made me scratch my head for a while.
This test written on Win XP, same problem
Run this test written on Win10, same problem
Menu opens, but selection doesn't trigger menu event.
As I checked,
leftButtonDown
leftButtonUp
rightButtonUp
works OK.
Found on Win10 in really big program.
It made me scratch my head for a while.
This test written on Win XP, same problem
Run this test written on Win10, same problem
set event to leftButtonDown
opening popup
got menu selection
set event to leftButtonUp
opening popup
got menu selection
set event to rightButtonDown
opening popup
set event to rightButtonUp
opening popup
got menu selection
'Form created with the help of Freeform 3 v07-31-2015
'Generated on Jan 31, 2021 at 15:28:14
[setup.main.Window]
'-----Begin code for #main
nomainwin
WindowWidth = 520
WindowHeight = 410
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
'-----Begin GUI objects code
graphicbox #main.gr, 0, 22, 340, 90
TexteditorColor$ = "white"
texteditor #main.log, 5, 132, 485, 205
statictext #main.statictext1, "popup menu on mouse click", 5, 5, 167, 20
radiobutton #main.radiobutton3, "LeftButtonDown", [radiobutton3Set], [radiobutton3Reset], 365, 22, 117, 25
radiobutton #main.radiobutton4, "LeftButtonUp", [radiobutton4Set], [radiobutton4Reset], 365, 42, 117, 25
radiobutton #main.radiobutton5, "RightButtonDown", [radiobutton5Set], [radiobutton5Reset], 365, 62, 117, 25
radiobutton #main.radiobutton6, "RightButtonUp", [radiobutton6Set], [radiobutton6Reset], 365, 82, 117, 25
statictext #main.statictext7, "Log", 5, 117, 23, 20
'-----End GUI objects code
'-----Begin menu code
menu #main, "Edit" ' <-- Texteditor menu.
'-----End menu code
open "untitled" for window as #main
print #main.gr, "down; fill white; flush"
print #main, "font ms_sans_serif 10"
print #main, "trapclose [quit.main]"
[main.inputLoop] 'wait here for input event
wait
[radiobutton3Set] 'Perform action for the radiobutton named 'radiobutton3'
'reset all
#main.gr "when leftButtonDown"
#main.gr "when leftButtonUp"
#main.gr "when rightButtonDown"
#main.gr "when rightButtonUp"
#main.log "set event to leftButtonDown"
#main.gr "when leftButtonDown [popup]"
wait
[radiobutton3Reset] 'Perform action for the radiobutton named 'radiobutton3'
wait
[radiobutton4Set] 'Perform action for the radiobutton named 'radiobutton4'
'reset all
#main.gr "when leftButtonDown"
#main.gr "when leftButtonUp"
#main.gr "when rightButtonDown"
#main.gr "when rightButtonUp"
#main.log "set event to leftButtonUp"
#main.gr "when leftButtonUp [popup]"
wait
[radiobutton4Reset] 'Perform action for the radiobutton named 'radiobutton4'
wait
[radiobutton5Set] 'Perform action for the radiobutton named 'radiobutton5'
'reset all
#main.gr "when leftButtonDown"
#main.gr "when leftButtonUp"
#main.gr "when rightButtonDown"
#main.gr "when rightButtonUp"
#main.log "set event to rightButtonDown"
#main.gr "when rightButtonDown [popup]"
wait
[radiobutton5Reset] 'Perform action for the radiobutton named 'radiobutton5'
wait
[radiobutton6Set] 'Perform action for the radiobutton named 'radiobutton6'
'reset all
#main.gr "when leftButtonDown"
#main.gr "when leftButtonUp"
#main.gr "when rightButtonDown"
#main.gr "when rightButtonUp"
#main.log "set event to rightButtonUp"
#main.gr "when rightButtonUp [popup]"
wait
[radiobutton6Reset] 'Perform action for the radiobutton named 'radiobutton6'
wait
[popup]
#main.log "opening popup"
popupmenu "ClickMe", [clicked]
wait
[clicked]
#main.log "got menu selection"
wait
[quit.main] 'End the program
close #main
end