iup-defcallback by 'orivej'