[q-lang-cvs] qcalc qcalc.q,1.147,1.148

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv26583

Modified Files:
	qcalc.q 
Log Message:
fix vertical alignment in custom table items

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.147
retrieving revision 1.148
diff -C2 -d -r1.147 -r1.148
*** qcalc.q	15 Nov 2007 10:22:52 -0000	1.147
--- qcalc.q	15 Nov 2007 13:20:01 -0000	1.148
***************
*** 49,52 ****
--- 49,54 ----
    // maximum entries in the recent files menu
    MAXFILES = 8,
+   // alignment of custom table items
+   ALIGNMENT = qt_val "Qt" "AlignAuto" or qt_val "Qt" "AlignTop",
    // create a connector object implementing the custom slots
    SLOTS =
***************
*** 944,951 ****
  		      (if null DATA then
  		       [("createEditor",create_editor),
! 			("setContentFromEditor",content_from_editor)]
  		       else [])
  		      [] [];
  
  make_check_table_item (I,J,S|DATA)
  		= qt TABLE "setItem" (I,J,IT) ||
--- 946,956 ----
  		      (if null DATA then
  		       [("createEditor",create_editor),
! 			("setContentFromEditor",content_from_editor),
! 			("alignment",alignment)]
  		       else [])
  		      [] [];
  
+ alignment _ _ _	= ALIGNMENT;
+ 
  make_check_table_item (I,J,S|DATA)
  		= qt TABLE "setItem" (I,J,IT) ||