Point Application_get_default_window_borders( char * dummy, int borderStyle) { Point ret = { 0,0}; switch ( borderStyle) { case bsNone: ret.x = svXbsNone; ret.y = svYbsNone; break; case bsSizeable: ret.x = svXbsSizeable; ret.y = svYbsSizeable; break; case bsSingle: ret.x = svXbsSingle; ret.y = svYbsSingle; break; case bsDialog: ret.x = svXbsDialog; ret.y = svYbsDialog; break; default: return ret; } ret. x = apc_sys_get_value( ret. x); ret. y = apc_sys_get_value( ret. y); return ret; }
Point Application_get_scroll_rate( Handle self) { Point ret; ret. x = apc_sys_get_value( svAutoScrollFirst); ret. y = apc_sys_get_value( svAutoScrollNext); return ret; }
Point Application_get_default_scrollbar_metrics( char * dummy) { Point ret; ret. x = apc_sys_get_value( svXScrollbar); ret. y = apc_sys_get_value( svYScrollbar); return ret; }
Bool Application_wantUnicodeInput( Handle self, Bool set, Bool want_ui) { if ( !set) return var-> wantUnicodeInput; if ( apc_sys_get_value( svCanUTF8_Input)) var-> wantUnicodeInput = want_ui; return 0; }
Bool Application_wantUnicodeInput( Handle self, Bool set, Bool want_ui) { if ( !set) return var-> wantUnicodeInput; #ifdef PERL_SUPPORTS_UTF8 if ( apc_sys_get_value( svCanUTF8_Input)) var-> wantUnicodeInput = want_ui; #endif return 0; }
int Application_get_system_value( char * dummy, int sysValue) { return apc_sys_get_value( sysValue); }
int Application_get_default_cursor_width( char * dummy) { return apc_sys_get_value( svXCursor); }