コード例 #1
0
ファイル: Application.c プロジェクト: Spchelkin/Prima
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;
}
コード例 #2
0
ファイル: Application.c プロジェクト: Spchelkin/Prima
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;
}
コード例 #3
0
ファイル: Application.c プロジェクト: Spchelkin/Prima
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;
}
コード例 #4
0
ファイル: Application.c プロジェクト: Spchelkin/Prima
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;
}
コード例 #5
0
ファイル: Application.c プロジェクト: Teslos/Prima
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;
}
コード例 #6
0
ファイル: Application.c プロジェクト: Spchelkin/Prima
int
Application_get_system_value( char * dummy, int sysValue)
{
   return apc_sys_get_value( sysValue);
}
コード例 #7
0
ファイル: Application.c プロジェクト: Spchelkin/Prima
int
Application_get_default_cursor_width( char * dummy)
{
   return apc_sys_get_value( svXCursor);
}