Determine if only one instance is running: Difference between revisions
Determine if only one instance is running (view source)
Revision as of 16:14, 25 May 2020
, 4 years ago→{{header|Phix}}
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 923:
=={{header|Phix}}==
{{libheader|Phix/pGUI}}
<lang Phix>-- demo\rosetta\Single_instance.exw
include pGUI.e
Line 933 ⟶ 931:
printf(1,"COPYDATA(%s, %d)\n",{peek_string(pCommandLine), size});
return IUP_DEFAULT;
end function
Line 944 ⟶ 938:
Ihandle dlg = IupDialog(IupVbox({IupLabel("hello")},"MARGIN=200x200"))
IupSetAttribute(dlg,"TITLE","Single Instance")
IupCloseOnEscape(dlg)
IupSetCallback(dlg, "COPYDATA_CB", Icallback("copydata_cb"));
IupShow(dlg)
|