/*
 * CDE - Common Desktop Environment
 *
 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these librararies and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */

/*
 *      $XConsortium: pal_textp.c /main/7 1996/10/29 15:21:02 mustafa $
 *
 * @(#)pal_textp.c	1.31 14 Feb 1994      cde_app_builder/src/ab
 *
 *      RESTRICTED CONFIDENTIAL INFORMATION:
 *
 *      The information in this document is subject to special
 *      restrictions in a confidential disclosure agreement between
 *      HP, IBM, Sun, USL, SCO and Univel.  Do not distribute this
 *      document outside HP, IBM, Sun, USL, SCO, or Univel without
 *      Sun's specific written approval.  This document and all copies
 *      and derivative works thereof must be returned or destroyed at
 *      Sun's request.
 *
 *      Copyright 1993 Sun Microsystems, Inc.  All rights reserved.
 *
 */


/*
 * pal_textp.c - Implements Palette TextPane object functionality
 */
#include <stdio.h>
#include <Xm/Xm.h>
#include <ab_private/util.h>
#include <ab_private/ab.h>
#include <ab_private/pal.h>
#include <ab_private/prop.h>
#include <ab_private/abobj.h>
#include <ab_private/abobj_set.h>
#include <ab_private/ui_util.h>
#include "textp_ui.h"

const    int    textp_init_height = 80;
const    int    textp_init_width  = 80;

typedef struct  PROP_TEXTP_SETTINGS
{
    Widget                      prop_sheet;
    PropFieldSettingRec         name;
    PropRadioSettingRec         scrolling;
    PropGeometrySettingRec      pos;
    PropGeometrySettingRec      size;
    PropOptionsSettingRec       size_metric;
    PropCheckboxSettingRec      wrap;
    PropRadioSettingRec         op;
    PropFieldSettingRec         init_value;
    PropCheckboxSettingRec      init_state;
    PropOptionsSettingRec       frame;
    PropColorSettingRec         bg_color;
    PropColorSettingRec         fg_color;
    PropMenunameSettingRec      menuname;
    PropFieldSettingRec         menu_title;
    ABObj                       current_obj;
} PropTextpSettingsRec, *PropTextpSettings;

/*************************************************************************
**                                                                      **
**       Private Function Declarations                                  **
**                                                                      **
**************************************************************************/
/*
 * Methods
 */
static int	textp_initialize(
                    ABObj   obj
                );
static Widget   textp_prop_init(
                    Widget  parent,
                    AB_PROP_TYPE type
                );
static int	textp_prop_activate(
		    AB_PROP_TYPE type,
		    BOOL 	 active
		);
static int	textp_prop_clear(
                    AB_PROP_TYPE type
                );
static int      textp_prop_load(
                    ABObj   	 obj,
                    AB_PROP_TYPE type,
		    unsigned long loadkey
                );
static int	textp_prop_apply(
		    AB_PROP_TYPE type
		);
static BOOL	textp_prop_pending(
		    AB_PROP_TYPE type
		);

static BOOL	verify_props(
		    AB_PROP_TYPE type
		);
static void	turnoff_changebars(
		    AB_PROP_TYPE type
		);


/*************************************************************************
**                                                                      **
**       Data 		                                                **
**                                                                      **
**************************************************************************/
PalItemInfo textp_palitem_rec = {

    /* type             */  AB_TYPE_TEXT_PANE,
    /* name             */  "Text Pane",
    /* animation pixmaps*/  NULL,
    /* number of pixmaps*/  0,
    /* rev_prop_frame   */  NULL,
    /* fix_prop_dialog  */  NULL,
    /* initialize       */  textp_initialize,
    /* is_a_test        */  obj_is_text_pane,
    /* prop_initialize  */  textp_prop_init,
    /* prop_activate	*/  textp_prop_activate,
    /* prop_clear	*/  textp_prop_clear,
    /* prop_load        */  textp_prop_load,
    /* prop_apply	*/  textp_prop_apply,
    /* prop_pending	*/  textp_prop_pending

};

PalItemInfo *ab_textp_palitem = &textp_palitem_rec;
PropTextpSettingsRec prop_textp_settings_rec[AB_PROP_TYPE_NUM_VALUES];


/*************************************************************************
**                                                                      **
**       Function Definitions                                           **
**                                                                      **
**************************************************************************/

static int
textp_initialize(
    ABObj     obj
)
{
    ABObj	parent = obj_get_root(obj_get_parent(obj));

    obj_set_unique_name(obj, "textpane");

    if (obj_is_layers(parent)) /* Size already defined in pixels */
    {
	obj_set_num_rows(obj, -1);
	obj_set_num_columns(obj, -1);
    }
    else  /* Default Size should be in chars */
    {
    	obj_set_num_rows(obj, 4);
    	obj_set_num_columns(obj, 8);

        obj_set_textpane_width(obj, 400);
        obj_set_textpane_height(obj, 400);
    }
    obj_set_vscrollbar_policy(obj, AB_SCROLLBAR_ALWAYS);
    obj_set_word_wrap(obj, True);
    obj_set_hscrollbar_policy(obj, AB_SCROLLBAR_NEVER);

    abobj_init_pane_position(obj);

    return OK;

}

static Widget
textp_prop_init(
    Widget parent,
    AB_PROP_TYPE type
)
{
    DtbTextpPropDialogInfoRec	rev_textp_prop_dialog; /* Revolving Props */
    DtbTextpPropDialogInfo	cgen = &dtb_textp_prop_dialog; /* Codegen structure */
    DtbRevolvPropDialogInfo	rpd = &(dtb_revolv_prop_dialog);
    PropTextpSettingsRec    	*pts = &(prop_textp_settings_rec[type]);
    Widget			item[10];
    int				item_val[10];
    int				n;

    if (type == AB_PROP_REVOLVING)
    {
	/* Cloning Trick:
	 * Only the Attributes ControlPanel needs to be created within
	 * the existing Revolving Prop dialog, so fill out all other
	 * fields with the Revolving Prop dialog equivelents, so the
	 * dtb initialize proc will skip those non-NULL fields...
	 */
        dtbTextpPropDialogInfo_clear(&rev_textp_prop_dialog);

	cgen = &(rev_textp_prop_dialog);
	cgen->prop_dialog = rpd->prop_dialog;
        cgen->prop_dialog_shellform = rpd->prop_dialog_shellform;
	cgen->prop_dialog_panedwin = rpd->prop_dialog_panedwin;
	cgen->prop_dialog_form = rpd->prop_dialog_form;
	cgen->objlist_panel = rpd->objlist_panel;
	cgen->objlist_label = rpd->objlist_label2;
	cgen->objlist_scrolledwin = rpd->objlist_scrolledwin;
	cgen->objlist = rpd->objlist;
	cgen->attrs_ctrlpanel_frame = rpd->attrs_ctrlpanel_frame;
	cgen->activate_panel = rpd->activate_panel;
	cgen->apply_button = rpd->apply_button;
        cgen->ok_button = rpd->ok_button;
        cgen->cancel_button = rpd->cancel_button;
	cgen->reset_button = rpd->reset_button;
	cgen->help_button = rpd->help_button;

    }
    else /* AB_PROP_FIXED */
    	cgen = &dtb_textp_prop_dialog;

    if (dtb_textp_prop_dialog_initialize(cgen, parent) == 0)
    {
        pts->prop_sheet = cgen->attrs_ctrlpanel;
        pts->current_obj = NULL;

	if (type == AB_PROP_REVOLVING)
        	XtVaSetValues(parent,
                        XmNuserData, pts->current_obj,
                        NULL);

        /* Dialog/Object List */
	if (type == AB_PROP_FIXED)
	{
            prop_fixed_dialog_init(ab_textp_palitem,
			cgen->prop_dialog_shellform, cgen->objlist);
            prop_activate_panel_init(type, ab_textp_palitem,
                        cgen->ok_button, cgen->apply_button,
                        cgen->reset_button, cgen->cancel_button,
                        cgen->help_button);
	}

	/* Alternate Editor Buttons */
	prop_editors_panel_init(type, ab_textp_palitem,
		    cgen->attach_button, cgen->conn_button, cgen->helptxt_button);

	/*
	  * Prop Sheet Settings....
	 */

	/* Name */
	prop_field_init(&(pts->name), cgen->name_field_label,
			    cgen->name_field, cgen->name_cb);

	/* Scrolling */
        n = 0;
        item[n] = cgen->scroll_rbox_items.Never_item;
        item_val[n] = AB_SCROLLBAR_NEVER; n++;
        item[n] = cgen->scroll_rbox_items.Always_item;
        item_val[n] = AB_SCROLLBAR_ALWAYS; n++;
        prop_radiobox_init(&(pts->scrolling), cgen->scroll_rbox_label,
                cgen->scroll_rbox, n, item, (XtPointer*)item_val,
                cgen->scroll_cb);

        /* Border Frame */
        n = 0;
        item[n] = cgen->bframe_opmenu_items.None_item;
        item_val[n] = AB_LINE_NONE; n++;
        item[n] = cgen->bframe_opmenu_items.Shadow_Out_item;
        item_val[n] = AB_LINE_SHADOW_OUT; n++;
        item[n] = cgen->bframe_opmenu_items.Shadow_In_item;
        item_val[n] = AB_LINE_SHADOW_IN; n++;
        item[n] = cgen->bframe_opmenu_items.Etched_Out_item;
        item_val[n] = AB_LINE_ETCHED_OUT; n++;
        item[n] = cgen->bframe_opmenu_items.Etched_In_item;
        item_val[n] = AB_LINE_ETCHED_IN; n++;
        prop_options_init(&(pts->frame), cgen->bframe_opmenu_label,
                            cgen->bframe_opmenu, cgen->bframe_opmenu_menu,
                            n, item, (XtPointer*)item_val,
                            cgen->bframe_cb);

        /* Operation */
        n = 0;
        item[n] = cgen->op_rbox_items.Editable_item;
        item_val[n] = False; n++;
        item[n] = cgen->op_rbox_items.Read_Only_item;
        item_val[n] = True; n++;
        prop_radiobox_init(&(pts->op), cgen->op_rbox_label,
                cgen->op_rbox, n, item, (XtPointer*)item_val,
                cgen->op_cb);

        /* Wrap */
        n = 0;
        item[n] = cgen->wordwrap_ckbox_items.nolabel_item;
        item_val[n] = True; n++;
        prop_checkbox_init(&(pts->wrap), cgen->wordwrap_ckbox_label,
                            cgen->wordwrap_ckbox, n, item, item_val,
                            cgen->wordwrap_cb);

	/* Menu Title */
        prop_field_init(&(pts->menu_title), cgen->menutitle_field_label,
                            cgen->menutitle_field, cgen->menutitle_cb);

        /* Menu Name */
        prop_menuname_init(&(pts->menuname), type, cgen->menu_label,
			cgen->menu_mbutton, cgen->menu_field,
                        cgen->name_field, cgen->menu_cb,
			&(pts->menu_title),
                        &(pts->current_obj), True);

        /* Initial Value */
        prop_field_init(&(pts->init_value), cgen->ivalue_label,
                            cgen->ivalue_textpane, cgen->ivalue_cb);

	/* Position */
	prop_geomfield_init(&(pts->pos), cgen->pos_label,
			    cgen->x_field_label, cgen->x_field,
			    cgen->y_field_label, cgen->y_field,
			    NULL, NULL, NULL, NULL,
			    cgen->pos_cb);

	/* Size */
        prop_geomfield_init(&(pts->size), cgen->size_opmenu_label,
			    NULL, NULL, NULL, NULL,
                            cgen->width_field_label, cgen->width_field,
                            cgen->height_field_label, cgen->height_field,
                            cgen->size_cb);

	n = 0;
	item[n] = cgen->size_opmenu_items.Characters_item;
	item_val[n] = SIZE_IN_CHARS_KEY; n++;
	item[n] = cgen->size_opmenu_items.Pixels_item;
	item_val[n] = SIZE_IN_PIXELS_KEY; n++;
	prop_options_init(&(pts->size_metric), cgen->size_opmenu_label,
			   cgen->size_opmenu,
			   cgen->size_opmenu_menu,
			   n, item, (XtPointer*)item_val,
			   cgen->size_cb);

	/* Initial State */
	n = 0;
	item[n] = cgen->istate_ckbox_items.Visible_item;
	item_val[n] = AB_STATE_VISIBLE; n++;
	item[n] = cgen->istate_ckbox_items.Active_item;
	item_val[n] = AB_STATE_ACTIVE; n++;
	prop_checkbox_init(&(pts->init_state), cgen->istate_ckbox_label,
			    cgen->istate_ckbox, n, item, item_val,
			    cgen->istate_cb);

	/* Color */
	prop_colorfield_init(&(pts->bg_color), cgen->bg_mbutton,
                cgen->bg_mbutton_bg_mbutton_menu_items.None_item,
                cgen->bg_mbutton_bg_mbutton_menu_items.Color_Chooser_item,
		cgen->bg_swatch, cgen->bg_field, cgen->bg_cb);

	prop_colorfield_init(&(pts->fg_color), cgen->fg_mbutton,
                cgen->fg_mbutton_fg_mbutton_menu_items.None_item,
                cgen->fg_mbutton_fg_mbutton_menu_items.Color_Chooser_item,
                cgen->fg_swatch, cgen->fg_field, cgen->fg_cb);

	prop_changebars_cleared(pts->prop_sheet);

	return (cgen->prop_dialog_shellform);
    }
    else
	return NULL;
}

static int
textp_prop_activate(
    AB_PROP_TYPE type,
    BOOL	 active
)
{
    ui_set_active(prop_textp_settings_rec[type].prop_sheet, active);

    return OK;
}

static int
textp_prop_clear(
    AB_PROP_TYPE type
)
{
    PropTextpSettingsRec	*pts = &(prop_textp_settings_rec[type]);

    if (pts->current_obj == NULL)
	return OK;

    /* Clear Name */
    prop_field_set_value(&(pts->name), "", False);

    /* Clear Scrolling */
    prop_radiobox_set_value(&(pts->scrolling),
                            (XtPointer)AB_SCROLLBAR_NEVER, False);

    /* Clear Border Frame */
    prop_options_set_value(&(pts->frame), (XtPointer)AB_LINE_NONE, False);

    /* Clear Operation */
    prop_radiobox_set_value(&(pts->op), (XtPointer)False, False);

    /* Clear Wrap */
    prop_checkbox_set_value(&(pts->wrap), True, True, False);

    /* Clear Menu Name/Title */
    prop_menuname_set_value(&(pts->menuname), "", False);
    prop_field_set_value(&(pts->menu_title), "", False);

    /* Clear Initial Value*/
    prop_field_set_value(&(pts->init_value), "", False);

    /* Clear Position */
    prop_geomfield_clear(&(pts->pos), GEOM_X);
    prop_geomfield_clear(&(pts->pos), GEOM_Y);

    /* Clear Size */
    prop_geomfield_clear(&(pts->size), GEOM_WIDTH);
    prop_geomfield_clear(&(pts->size), GEOM_HEIGHT);

    /* Clear Initial State */
    prop_checkbox_set_value(&(pts->init_state), AB_STATE_VISIBLE, True, False);
    prop_checkbox_set_value(&(pts->init_state), AB_STATE_ACTIVE, True, False);

    /* Clear Color */
    prop_colorfield_set_value(&(pts->bg_color), "", False);
    prop_colorfield_set_value(&(pts->fg_color), "", False);

    pts->current_obj = NULL;

    turnoff_changebars(type);

    return 0;
}


static int
textp_prop_load(
    ABObj    	 obj,
    AB_PROP_TYPE type,
    unsigned long loadkey
)
{
    PropTextpSettingsRec 	*pts = &(prop_textp_settings_rec[type]);
    int				width, height;
    BOOL			load_all = (loadkey & LoadAll);

    if (obj == NULL)
    {
        if (pts->current_obj != NULL)
            obj = pts->current_obj;
        else
            return ERROR;
    }
    else if (!obj_is_text_pane(obj))
        return ERROR;
    else
        pts->current_obj = obj;

    /* Load Name */
    if (load_all || loadkey & LoadName)
    	prop_field_set_value(&(pts->name), obj_get_name(obj), False);

    if (load_all)
    {
	/* Load Scrolling */
	prop_radiobox_set_value(&(pts->scrolling),
		(XtPointer)obj_get_vscrollbar_policy(obj), False);

	/* Load Border Frame */
	prop_options_set_value(&(pts->frame), (XtPointer)obj_get_border_frame(obj), False);

	/* Load Word Wrap */
	prop_checkbox_set_value(&(pts->wrap), True,
				obj->info.text.word_wrap, False);

	/* Load Operation */
	prop_radiobox_set_value(&(pts->op),
                                (XtPointer)obj_get_read_only(obj), False);

	/* Load Menu Name/Title */
	prop_menuname_set_value(&(pts->menuname), obj_get_menu_name(obj), False);
	prop_field_set_value(&(pts->menu_title), obj_get_menu_title(obj), False);

	/* Load Initial Value */
	prop_field_set_value(&(pts->init_value), obj_get_initial_value_string(obj), False);

	/* Load Initial State */
	prop_checkbox_set_value(&(pts->init_state), AB_STATE_VISIBLE,
		obj_is_initially_visible(obj), False);
    	prop_checkbox_set_value(&(pts->init_state), AB_STATE_ACTIVE,
		obj_is_initially_active(obj), False);

    	/* Load Color */
    	prop_colorfield_set_value(&(pts->bg_color), obj_get_bg_color(obj), False);
    	prop_colorfield_set_value(&(pts->fg_color), obj_get_fg_color(obj), False);

    	turnoff_changebars(type);
    }

    /* Load Position */
    if (load_all || loadkey & LoadPosition)
	prop_load_obj_position(obj, &(pts->pos));

    /* Load Size */
    if (load_all || loadkey & LoadSize)
    {
        if (obj_get_num_columns(obj) == -1) /* Size in Pixels */
        {
            prop_options_set_value(&(pts->size_metric), (XtPointer)SIZE_IN_PIXELS_KEY, False);
            width = abobj_get_comp_width(obj);
            height = abobj_get_comp_height(obj);
        }
        else /* Size in Chars */
        {
            prop_options_set_value(&(pts->size_metric), (XtPointer)SIZE_IN_CHARS_KEY, False);
            width = obj_get_num_columns(obj);
            height = obj_get_num_rows(obj);
        }
        prop_geomfield_set_value(&(pts->size), GEOM_WIDTH, width, False);
        prop_geomfield_set_value(&(pts->size), GEOM_HEIGHT,height, False);
    }

    return OK;
}

int
textp_prop_apply(
    AB_PROP_TYPE   type
)
{
    PropTextpSettingsRec 	*pts = &(prop_textp_settings_rec[type]);
    ABObj			chg_root = pts->current_obj;
    ABObj			pobj;
    STRING			value;
    int				border, metric, new_w, new_h;
    BOOL			size_chg = False;
    BOOL			reset_bg = False;
    BOOL			reset_fg = False;

    if (!verify_props(type))
        return ERROR;

    if (prop_changed(pts->name.changebar))
    {
        value = prop_field_get_value(&(pts->name));
        abobj_set_name(pts->current_obj, value);
        util_free(value);
    }
    if (prop_changed(pts->scrolling.changebar))
    {
        abobj_set_scrollbar_state(pts->current_obj,
            (AB_SCROLLBAR_POLICY)prop_radiobox_get_value(&(pts->scrolling)));

        size_chg = True;
    }

    pobj = obj_get_root(obj_get_parent(pts->current_obj));

    if (prop_changed(pts->pos.changebar))
    {
	if (obj_is_layers(pobj))
	    chg_root = pobj;

	if (abobj_is_movable(pts->current_obj))
	    abobj_set_xy(chg_root,
	   	prop_geomfield_get_value(&(pts->pos), GEOM_X),
	     	prop_geomfield_get_value(&(pts->pos), GEOM_Y));
    }
    if (prop_changed(pts->size.changebar))
    {
	metric = (int)prop_options_get_value(&(pts->size_metric));
        new_w = prop_geomfield_get_value(&(pts->size), GEOM_WIDTH);
        new_h = prop_geomfield_get_value(&(pts->size), GEOM_HEIGHT);

        border = /* assumption! */
            ((prop_options_get_value(&(pts->frame)) != (XtPointer)AB_LINE_NONE)? 4 : 0);

        if (obj_is_layers(pobj))
        {
	    if (metric == SIZE_IN_PIXELS_KEY)
            	abobj_layer_set_size(pobj, new_w, new_h);
            chg_root = pobj;
        }
        else
        {
       	    abobj_set_num_rows(pts->current_obj,
                metric == SIZE_IN_CHARS_KEY? new_h : -1);
            abobj_set_num_columns(pts->current_obj,
                metric == SIZE_IN_CHARS_KEY? new_w : -1);

            abobj_set_pixel_width(pts->current_obj,
                metric == SIZE_IN_PIXELS_KEY? new_w : -1, border);
            abobj_set_pixel_height(pts->current_obj,
                metric == SIZE_IN_PIXELS_KEY? new_h : -1, border);
        }
        size_chg = True;
    }
    if (prop_changed(pts->wrap.changebar))
    {
        abobj_set_word_wrap(pts->current_obj,
		prop_checkbox_get_value(&(pts->wrap),True));
    }
    if (prop_changed(pts->op.changebar))
    {
	abobj_set_read_only(pts->current_obj,
		prop_radiobox_get_value(&(pts->op)));

    }
    if (prop_changed(pts->init_value.changebar))
    {
        value = prop_field_get_value(&(pts->init_value));
        abobj_set_initial_value(pts->current_obj, value, 0);
        util_free(value);
    }
    if (prop_changed(pts->init_state.changebar))
    {
        abobj_set_visible(pts->current_obj,
		prop_checkbox_get_value(&(pts->init_state), AB_STATE_VISIBLE));
        abobj_set_active(pts->current_obj,
		prop_checkbox_get_value(&(pts->init_state), AB_STATE_ACTIVE));
    }
    if (prop_changed(pts->frame.changebar))
    {
        abobj_set_border_frame(pts->current_obj,
                (AB_LINE_TYPE)prop_options_get_value(&(pts->frame)));
    }
    if (prop_changed(pts->fg_color.changebar))
    {
	value = prop_colorfield_get_value(&(pts->fg_color));
        abobj_set_foreground_color(pts->current_obj, value);
	if (util_strempty(value))
	    reset_fg = True;
        util_free(value);
        prop_colorfield_set_value(&(pts->fg_color),
		obj_get_fg_color(pts->current_obj), False);
    }
    if (prop_changed(pts->bg_color.changebar))
    {
        value = prop_colorfield_get_value(&(pts->bg_color));
        abobj_set_background_color(pts->current_obj, value);
	if (util_strempty(value))
	    reset_bg = True;
        util_free(value);
        prop_colorfield_set_value(&(pts->bg_color),
		obj_get_bg_color(pts->current_obj), False);
    }
    if (prop_changed(pts->menuname.changebar))
    {
        value = prop_menuname_get_value(&(pts->menuname));
        abobj_set_menu_name(pts->current_obj, value);
        util_free(value);
        prop_menuname_set_value(&(pts->menuname),
		obj_get_menu_name(pts->current_obj), False);
    }
    if (prop_changed(pts->menu_title.changebar))
    {
        value = prop_field_get_value(&(pts->menu_title));
        abobj_set_menu_title(pts->current_obj, value);
        util_free(value);
    }
    abobj_instantiate_changes(pts->current_obj);
    if (chg_root != pts->current_obj)
        abobj_tree_instantiate_changes(chg_root);

    if (reset_bg || reset_fg) /* Set back to No Color */
        abobj_reset_colors(pts->current_obj, reset_bg, reset_fg);
    if (size_chg)
        abobj_force_dang_form_resize(pts->current_obj);

    turnoff_changebars(type);

    return OK;

}

static BOOL
textp_prop_pending(
    AB_PROP_TYPE type
)
{
    return(prop_changebars_pending(prop_textp_settings_rec[type].prop_sheet));
}

static BOOL
verify_props(
    AB_PROP_TYPE type
)
{
    PropTextpSettingsRec *pts = &(prop_textp_settings_rec[type]);

    if (prop_changed(pts->name.changebar) &&
	!prop_name_ok(pts->current_obj, pts->name.field))
        return False;

    if (prop_changed(pts->pos.changebar) &&
        (!prop_number_ok(pts->pos.x_field,(STRING)XFieldStr, -SHRT_MAX, SHRT_MAX) ||
	 !prop_number_ok(pts->pos.y_field,(STRING)YFieldStr, -SHRT_MAX, SHRT_MAX)))
        return False;

    if (prop_changed(pts->size.changebar) &&
        (!prop_number_ok(pts->size.w_field, (STRING)WFieldStr, 1, SHRT_MAX) ||
	 !prop_number_ok(pts->size.h_field, (STRING)HFieldStr, 1, SHRT_MAX)))
        return False;

    if (prop_changed(pts->fg_color.changebar) && !prop_color_ok(pts->fg_color.field))
        return False;

    if (prop_changed(pts->bg_color.changebar) && !prop_color_ok(pts->bg_color.field))
        return False;

    if (prop_changed(pts->menuname.changebar) && !prop_obj_name_ok(pts->menuname.field,
			obj_get_module(pts->current_obj), AB_TYPE_MENU, "Menu"))
	return False;

    return True;
}

static void
turnoff_changebars(
    AB_PROP_TYPE type
)
{
    PropTextpSettingsRec *pts = &(prop_textp_settings_rec[type]);

    prop_set_changebar(pts->name.changebar,    		PROP_CB_OFF);
    prop_set_changebar(pts->scrolling.changebar,	PROP_CB_OFF);
    prop_set_changebar(pts->pos.changebar,    		PROP_CB_OFF);
    prop_set_changebar(pts->size.changebar,    		PROP_CB_OFF);
    prop_set_changebar(pts->wrap.changebar,    		PROP_CB_OFF);
    prop_set_changebar(pts->op.changebar, 		PROP_CB_OFF);
    prop_set_changebar(pts->init_value.changebar, 	PROP_CB_OFF);
    prop_set_changebar(pts->init_state.changebar,	PROP_CB_OFF);
    prop_set_changebar(pts->frame.changebar,		PROP_CB_OFF);
    prop_set_changebar(pts->bg_color.changebar, 	PROP_CB_OFF);
    prop_set_changebar(pts->fg_color.changebar, 	PROP_CB_OFF);
    prop_set_changebar(pts->menuname.changebar, 	PROP_CB_OFF);
    prop_set_changebar(pts->menu_title.changebar, 	PROP_CB_OFF);

    prop_changebars_cleared(pts->prop_sheet);

}