[Firebird-checkins] CVS: interbase/pyxis edit.e,1.1.1.1,1.2

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/firebird/interbase/pyxis
In directory slayer.i.sourceforge.net:/tmp/cvs-serv14592/interbase/pyxis

Modified Files:
	edit.e 
Log Message:
Changes to get edit.e through gpre 6.0
Still have to find out why gpre isn't processing
PYXYS FORM FIELDS correctly.
Probably no one ever will need this.
But who cares :-)

Index: edit.e
===================================================================
RCS file: /cvsroot/firebird/interbase/pyxis/edit.e,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** edit.e	2000/08/03 20:53:45	1.1.1.1
--- edit.e	2000/11/20 17:17:17	1.2
***************
*** 20,23 ****
--- 20,31 ----
   * All Rights Reserved.
   * Contributor(s): ______________________________________.
+  * $Log$
+  * Revision 1.2  2000/11/20 17:17:17  fsg
+  * Changes to get edit.e through gpre 6.0
+  * Still have to find out why gpre isn't processing
+  * PYXYS FORM FIELDS correctly.
+  * Probably no one ever will need this.
+  * But who cares :-)
+  *
   */

***************
*** 185,199 ****
  	    if (c != PYXIS__KEY_ENTER && c != '\n')
  		PYXIS_return_char (window, c);
! 	    CASE_MENU (MENU_HANDLE MENU1 HORIZONTAL) "Edit options: "

! 		MENU_ENTREE "SELECT":
  		    continue;

! 		MENU_ENTREE "MOVE":
  		    if (!object)
  			break;
  		    change |= move (window, form, object, attribute);

! 		MENU_ENTREE "ADD":
  		    if (next = add_object (window, form, object, dbb, transaction))
            		{
--- 193,207 ----
  	    if (c != PYXIS__KEY_ENTER && c != '\n')
  		PYXIS_return_char (window, c);
! 	    CASE_MENU (MENU_HANDLE MENU1 HORIZONTAL) 'Edit options: '

! 		MENU_ENTREE 'SELECT':
  		    continue;

! 		MENU_ENTREE 'MOVE':
  		    if (!object)
  			break;
  		    change |= move (window, form, object, attribute);

! 		MENU_ENTREE 'ADD':
  		    if (next = add_object (window, form, object, dbb, transaction))
            		{
***************
*** 202,206 ****
            		}

! 		MENU_ENTREE "CHANGE":
  		    if (!object)
  			break;
--- 210,214 ----
            		}

! 		MENU_ENTREE 'CHANGE':
  		    if (!object)
  			break;
***************
*** 219,223 ****
  			edit_field (window, object, x, y, dbb, transaction);

! 		MENU_ENTREE "DELETE":
  		    if (!object)
  			break;
--- 227,231 ----
  			edit_field (window, object, x, y, dbb, transaction);

! 		MENU_ENTREE 'DELETE':
  		    if (!object)
  			break;
***************
*** 228,232 ****
  		    change = TRUE;

! 		MENU_ENTREE "REVERSE":
  		    if (object)
  			if (attribute->att_name == att_label)
--- 236,240 ----
  		    change = TRUE;

! 		MENU_ENTREE 'REVERSE':
  		    if (object)
  			if (attribute->att_name == att_label)
***************
*** 239,246 ****
  			    change |= reverse (object);

! 		MENU_ENTREE "SAVE":
  		    save_form (window, form, dbb, transaction);

! 		MENU_ENTREE "Exit":
  		    /* set_prototypes (form, TRUE); */
  		    return change;
--- 247,254 ----
  			    change |= reverse (object);

! 		MENU_ENTREE 'SAVE':
  		    save_form (window, form, dbb, transaction);

! 		MENU_ENTREE 'Exit':
  		    /* set_prototypes (form, TRUE); */
  		    return change;
***************
*** 317,322 ****
  USHORT	c, x, y, change;

! CASE_MENU (MENU_HANDLE MENU2 HORIZONTAL) "Add options: ";
!     MENU_ENTREE "TEXT":
  	x = y = 0;
  	if (object)
--- 325,330 ----
  USHORT	c, x, y, change;

! CASE_MENU (MENU_HANDLE MENU2 HORIZONTAL) 'Add options: ';
!     MENU_ENTREE 'TEXT':
  	x = y = 0;
  	if (object)
***************
*** 331,335 ****
  	return (ATT) field;

!     MENU_ENTREE "FIELD":
  	field = (OBJ) PYXIS_create_object (NULL_PTR, 0);
  	default_position (form, att_field, &x, &y);
--- 339,343 ----
  	return (ATT) field;

!     MENU_ENTREE 'FIELD':
  	field = (OBJ) PYXIS_create_object (NULL_PTR, 0);
  	default_position (form, att_field, &x, &y);
***************
*** 342,352 ****
  	 return add_field (form, field);

!     MENU_ENTREE "DATABASE FIELDS":
  	 return (ATT) copy_fields (window, form, object, dbb, transaction);

!     MENU_ENTREE "REPEATING SUB-FORM":
  	return (ATT) add_repeating (window, form, object, dbb, transaction);

!     MENU_ENTREE "Exit":
  	 return NULL;

--- 350,360 ----
  	 return add_field (form, field);

!     MENU_ENTREE 'DATABASE FIELDS':
  	 return (ATT) copy_fields (window, form, object, dbb, transaction);

!     MENU_ENTREE 'REPEATING SUB-FORM':
  	return (ATT) add_repeating (window, form, object, dbb, transaction);

!     MENU_ENTREE 'Exit':
  	 return NULL;

***************
*** 713,719 ****

  if (prototype = GET_OBJECT (field, att_prototype))
!     CASE_MENU (MENU_HANDLE MENU3 HORIZONTAL) "Change: "

! 	MENU_ENTREE "CHARACTERISTICS":
              manual_load (&NAME_PROMPT, form_field_name);
  	    FOR_FORM (TAG FORM_HANDLE NAME_PROMPT) F IN FIELD_NAME
--- 721,727 ----

  if (prototype = GET_OBJECT (field, att_prototype))
!     CASE_MENU (MENU_HANDLE MENU3 HORIZONTAL) 'Change: '

! 	MENU_ENTREE 'CHARACTERISTICS':
              manual_load (&NAME_PROMPT, form_field_name);
  	    FOR_FORM (TAG FORM_HANDLE NAME_PROMPT) F IN FIELD_NAME
***************
*** 725,751 ****
              return;

! 	MENU_ENTREE "REGION":
  	    size_form (window, field);
  	    return;

! 	MENU_ENTREE "SUB-ITEM":
  	    PYXIS_edit (window, prototype, dbb, transaction);
  	    return;

! 	MENU_ENTREE "SIZE":
  	    size_form (window, prototype);
  	    return;

! 	MENU_ENTREE "Exit":
  	    return;
      END_MENU
  else
!     CASE_MENU (MENU_HANDLE MENU4 HORIZONTAL) "Change: "
! 	MENU_ENTREE "CHARACTERISTICS":

! 	MENU_ENTREE "ENUMERATIONS":
  	    return edit_enumerations (window, field);

! 	MENU_ENTREE "EXIT":
  	    return;
      END_MENU;
--- 733,759 ----
              return;

! 	MENU_ENTREE 'REGION':
  	    size_form (window, field);
  	    return;

! 	MENU_ENTREE 'SUB-ITEM':
  	    PYXIS_edit (window, prototype, dbb, transaction);
  	    return;

! 	MENU_ENTREE 'SIZE':
  	    size_form (window, prototype);
  	    return;

! 	MENU_ENTREE 'Exit':
  	    return;
      END_MENU
  else
!     CASE_MENU (MENU_HANDLE MENU4 HORIZONTAL) 'Change: '
! 	MENU_ENTREE 'CHARACTERISTICS':

! 	MENU_ENTREE 'ENUMERATIONS':
  	    return edit_enumerations (window, field);

! 	MENU_ENTREE 'EXIT':
  	    return;
      END_MENU;
***************
*** 1004,1021 ****
  SLONG	x, y, min_x, min_y, delta_x, delta_y;

! CASE_MENU (MENU_HANDLE MENU5 HORIZONTAL) "Move options: "
!     MENU_ENTREE "ITEM":
  	return move_item (window, form, object);

!     MENU_ENTREE "SOME":
  	option = e_some;

!     MENU_ENTREE "MOST":
  	option = e_most;

!     MENU_ENTREE "ALL":
  	option = e_all;

!     MENU_ENTREE "Exit":
  	return FALSE;
  END_MENU;
--- 1012,1029 ----
  SLONG	x, y, min_x, min_y, delta_x, delta_y;

! CASE_MENU (MENU_HANDLE MENU5 HORIZONTAL) 'Move options: '
!     MENU_ENTREE 'ITEM':
  	return move_item (window, form, object);

!     MENU_ENTREE 'SOME':
  	option = e_some;

!     MENU_ENTREE 'MOST':
  	option = e_most;

!     MENU_ENTREE 'ALL':
  	option = e_all;

!     MENU_ENTREE 'Exit':
  	return FALSE;
  END_MENU;
***************
*** 1244,1264 ****
  SLONG	value;

! CASE_MENU (MENU_HANDLE MENU6 HORIZONTAL) "Reverse options: "
!     MENU_ENTREE "INVERT":
  	value = !GET_VALUE (object, att_reverse_video);
  	REPLACE_ATTRIBUTE (object, att_reverse_video, attype_numeric, value);
  	return TRUE;

!     MENU_ENTREE "REVERSE ON UPDATE":
  	REPLACE_ATTRIBUTE (object, att_reverse_for_update, attype_numeric, TRUE);
  	PYXIS_delete_named_attribute (object, att_reverse_video);
  	return TRUE;

!     MENU_ENTREE "NORMAL":
  	PYXIS_delete_named_attribute (object, att_reverse_for_update);
  	PYXIS_delete_named_attribute (object, att_reverse_video);
  	return TRUE;

!     MENU_ENTREE "Exit":
  	return FALSE;

--- 1252,1272 ----
  SLONG	value;

! CASE_MENU (MENU_HANDLE MENU6 HORIZONTAL) 'Reverse options: '
!     MENU_ENTREE 'INVERT':
  	value = !GET_VALUE (object, att_reverse_video);
  	REPLACE_ATTRIBUTE (object, att_reverse_video, attype_numeric, value);
  	return TRUE;

!     MENU_ENTREE 'REVERSE ON UPDATE':
  	REPLACE_ATTRIBUTE (object, att_reverse_for_update, attype_numeric, TRUE);
  	PYXIS_delete_named_attribute (object, att_reverse_video);
  	return TRUE;

!     MENU_ENTREE 'NORMAL':
  	PYXIS_delete_named_attribute (object, att_reverse_for_update);
  	PYXIS_delete_named_attribute (object, att_reverse_video);
  	return TRUE;

!     MENU_ENTREE 'Exit':
  	return FALSE;

[Firebird-checkins] CVS: interbase/pyxis edit.e,1.1.1.1,1.2

A powerful, cross platform, SQL database system

[Firebird-checkins] CVS: interbase/pyxis edit.e,1.1.1.1,1.2