#include "apricot.h"
#include "Popup.h"
#include "Widget.h"
#include <Popup.inc>
#ifdef __cplusplus
extern "C" {
#endif
#undef my
#define inherited CAbstractMenu->
#define my ((( PPopup) self)-> self)
#define var (( PPopup) self)
void
Popup_init( Handle self, HV * profile)
{
dPROFILE;
inherited init( self, profile);
opt_assign( optAutoPopup, pget_B( autoPopup));
CORE_INIT_TRANSIENT(Popup);
}
void
Popup_update_sys_handle( Handle self, HV * profile)
{
dPROFILE;
Handle xOwner = pexist( owner) ? pget_H( owner) : var-> owner;
if ( var-> owner && ( xOwner != var-> owner))
((( PWidget) var-> owner)-> self)-> set_popup( var-> owner, nilHandle);
if ( !pexist( owner)) return;
if ( !apc_popup_create( self, xOwner))
croak("Cannot create popup");
var-> system = true;
}
Bool
Popup_autoPopup( Handle self, Bool set, Bool autoPopup)
{
if ( set)
opt_assign( optAutoPopup, autoPopup);
return is_opt( optAutoPopup);
}
Bool
Popup_selected( Handle self, Bool set, Bool selected)
{
if ( !set)
return CWidget( var-> owner)-> get_popup( var-> owner) == self;
if ( var-> stage > csFrozen)
return false;
if ( selected)
CWidget( var-> owner)-> set_popup( var-> owner, self);
else if ( my-> get_selected( self))
CWidget( var-> owner)-> set_popup( var-> owner, nilHandle);
return false;
}
void
Popup_popup( Handle self, int x, int y, int ancLeft, int ancBottom, int ancRight, int ancTop)
{
int i;
PWidget owner = ( PWidget) var-> owner;
ColorSet color;
Rect anchor;
int stage = owner-> stage;
if ( var-> stage > csNormal) return;
anchor. left = ancLeft;
anchor. bottom = ancBottom;
anchor. right = ancRight;
anchor. top = ancTop;
owner-> stage = csFrozen;
memcpy( color, owner-> popupColor, sizeof( ColorSet));
for ( i = 0; i < ciMaxId + 1; i++)
apc_menu_set_color( self, color[ i], i);
memcpy( owner-> popupColor, color, sizeof( ColorSet));
apc_menu_set_font( self, &owner-> popupFont);
owner-> stage = stage;
apc_popup( self, x, y, &anchor);
}
#ifdef __cplusplus
}
#endif