I copied the simple editor ScriptBasic code from my Linux box to my
Windows 10 laptop and the font dialog works as expected.
On 2022-06-12 21:28, supp...@scriptbasic.org wrote:
In an earlier version of IUP this code worked. (from IUP extension
module)
FUNCTION Font_CB
LOCAL fontdlg, font
fontdlg = IUP::FontDlg()
font = IUP::GetAttribute(multitext, "FONT")
IUP::StoreAttribute(fontdlg, "VALUE", font)
IUP::Popup(fontdlg, IUP_CENTER, IUP_CENTER)
IF IUP::GetInt(fontdlg, "STATUS") = 1 THEN
font = IUP::GetAttribute(fontdlg, "VALUE")
IUP::StoreAttribute(multitext, "FONT", font)
END IF
IUP::Destroy(fontdlg)
Font_CB = IUP_DEFAULT
END FUNCTION
_______________________________________________
Iup-users mailing list
Iup-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/iup-users
