void
Window_init( Handle self, HV * profile)
{
dPROFILE;
SV * sv;
inherited init( self, profile);
opt_set( optSystemSelectable);
opt_assign( optOwnerIcon, pget_B( ownerIcon));
opt_assign( optMainWindow, pget_B( mainWindow));
my-> set_icon( self, pget_H( icon));
my-> menuColorIndex( self, true, ciFore, pget_i( menuColor) );
my-> menuColorIndex( self, true, ciBack, pget_i( menuBackColor) );
my-> menuColorIndex( self, true, ciHiliteText, pget_i( menuHiliteColor) );
my-> menuColorIndex( self, true, ciHilite, pget_i( menuHiliteBackColor) );
my-> menuColorIndex( self, true, ciDisabledText, pget_i( menuDisabledColor) );
my-> menuColorIndex( self, true, ciDisabled, pget_i( menuDisabledBackColor));
my-> menuColorIndex( self, true, ciLight3DColor, pget_i( menuLight3DColor) );
my-> menuColorIndex( self, true, ciDark3DColor, pget_i( menuDark3DColor) );
SvHV_Font( pget_sv( menuFont), &Font_buffer, "Window::init");
my-> set_menu_font ( self, Font_buffer);
if ( SvTYPE( sv = pget_sv( menuItems)) != SVt_NULL)
my-> set_menuItems( self, sv);
my-> set_modalResult( self, pget_i( modalResult));
my-> set_modalHorizon( self, pget_B( modalHorizon));
CORE_INIT_TRANSIENT(Window);
}
Bool
Timer_start( Handle self)
{
if ( is_opt( optActive)) return true;
opt_assign( optActive, apc_timer_start( self));
return is_opt( optActive);
}
SV *
Widget_hint( Handle self, Bool set, SV *hint)
{
enter_method;
if ( set) {
if ( var-> stage > csFrozen) return nilSV;
my-> first_that( self, (void*)hint_notify, (void*)hint);
free( var-> hint);
var-> hint = duplicate_string( SvPV_nolen( hint));
opt_assign( optUTF8_hint, prima_is_utf8_sv(hint));
if ( application && (( PApplication) application)-> hintVisible &&
(( PApplication) application)-> hintUnder == self)
{
SV * hintText = my-> get_hint( self);
Handle hintWidget = (( PApplication) application)-> hintWidget;
if ( strlen( var-> hint) == 0)
my-> set_hintVisible( self, 0);
if ( hintWidget)
CWidget(hintWidget)-> set_text( hintWidget, hintText);
sv_free( hintText);
}
opt_clear( optOwnerHint);
} else {
hint = newSVpv( var-> hint ? var-> hint : "", 0);
if ( is_opt( optUTF8_hint)) SvUTF8_on( hint);
return hint;
}
return nilSV;
}
Bool
Window_mainWindow( Handle self, Bool set, Bool mainWindow)
{
if ( !set)
return is_opt( optMainWindow);
opt_assign( optMainWindow, mainWindow);
return false;
}
Bool
Application_showHint( Handle self, Bool set, Bool showHint)
{
if ( !set)
return inherited showHint( self, set, showHint);
opt_assign( optShowHint, showHint);
return false;
}
Bool
Widget_packPropagate( Handle self, Bool set, Bool propagate)
{
Bool repack;
if ( !set) return is_opt( optPackPropagate);
repack = !(is_opt( optPackPropagate)) && propagate;
opt_assign( optPackPropagate, propagate);
if ( repack) geometry_reset(self,-1);
return is_opt( optPackPropagate);
}
Bool
Window_modalHorizon( Handle self, Bool set, Bool modalHorizon)
{
if ( !set)
return is_opt( optModalHorizon);
if ( is_opt( optModalHorizon) == modalHorizon) return false;
my-> cancel_children( self);
opt_assign( optModalHorizon, modalHorizon);
return modalHorizon;
}
Bool
Window_ownerIcon( Handle self, Bool set, Bool ownerIcon)
{
if ( !set)
return is_opt( optOwnerIcon);
opt_assign( optOwnerIcon, ownerIcon);
if ( is_opt( optOwnerIcon) && var-> owner) {
Handle icon = ( var-> owner == application) ?
CApplication( application)-> get_icon( application) :
CWindow( var-> owner)-> get_icon( var-> owner);
my-> set_icon( self, icon);
opt_set( optOwnerIcon);
}
return false;
}
SV *
Widget_text( Handle self, Bool set, SV *text)
{
if ( set) {
if ( var-> stage > csFrozen) return nilSV;
free( var-> text);
var-> text = duplicate_string( SvPV_nolen( text));
opt_assign( optUTF8_text, prima_is_utf8_sv(text));
} else {
text = newSVpv( var-> text ? var-> text : "", 0);
if ( is_opt( optUTF8_text)) SvUTF8_on( text);
return text;
}
return nilSV;
}
