From 15835ddd94c670dc77e6b10311ea3ab19df5a356 Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Sun, 10 Aug 2014 11:42:46 +0200 Subject: [PATCH] Changeset: 401 fdbozzo - 10/08/2014 11:42:25: --- .../classlib_method_order_bug_test.vc2 | 205 ++++++++++++++++++ .../classlib_method_order_bug_test.vct | Bin 0 -> 9576 bytes .../classlib_method_order_bug_test.vcx | Bin 0 -> 3104 bytes 3 files changed, 205 insertions(+) create mode 100644 TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2 create mode 100644 TESTS/DATOS_READONLY/classlib_method_order_bug_test.vct create mode 100644 TESTS/DATOS_READONLY/classlib_method_order_bug_test.vcx diff --git a/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2 b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2 new file mode 100644 index 0000000..1d465d4 --- /dev/null +++ b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2 @@ -0,0 +1,205 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.19" SourceFile="classlib_method_order_bug_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS grdbase AS grid + *< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Column2.Text1" UniqueID="" Timestamp="" /> + + * + *m: canresort + *m: commoncolumnclick && Generic column click handler + *m: createtag && Create a grid indexd tag for sorting + *m: resizecover + *m: visible_assign + * + + ColumnCount = 2 + Height = 200 + Name = "grdbase" + Width = 320 + Column1.Name = "Column1" + Column2.Name = "Column2" + + ADD OBJECT 'Column1.Header1' AS header WITH ; + Caption = "Header1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Column2.Header1' AS header WITH ; + Caption = "Header1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE canresort + * + * CanResort + * + RETURN .T. + ENDPROC + + PROCEDURE Click + * + * Do some things here + * + DODEFAULT() + ENDPROC + + PROCEDURE commoncolumnclick && Generic column click handler + * + * Common behavior when clicked + * + LPARAMETERS toColumn + ENDPROC + + PROCEDURE createtag && Create a grid indexd tag for sorting + * + * Index on each column's ControlSource + * + ENDPROC + + PROCEDURE DblClick + * + * Double-clicked! + * + RETURN DODEFAULT() + ENDPROC + + PROCEDURE Destroy + * + * Destroy the grid + * + RETURN .T. + ENDPROC + + PROCEDURE Resize + * + * React to resizing the grid + * + ENDPROC + + PROCEDURE resizecover + * + * ResizeCover if one exists + * + ENDPROC + + PROCEDURE visible_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.Visible = m.vNewVal + + ENDPROC + + PROCEDURE When + * + * When what? + * + ENDPROC + + PROCEDURE Column1.Text1.Click + * + * Call common method + * + this.Parent.Parent.commoncolumnclick(this) + ENDPROC + + PROCEDURE Column2.Text1.Click + * + * Call common method + * + this.Parent.Parent.commoncolumnclick(this) + ENDPROC + +ENDDEFINE + +DEFINE CLASS grdgeneral AS grdbase OF "classlib.vcx" + *< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" /> + + Name = "grdgeneral" + Column1.Header1.Name = "Header1" + Column1.Name = "Column1" + Column1.Text1.Name = "Text1" + Column2.Header1.Name = "Header1" + Column2.Name = "Column2" + Column2.Text1.Name = "Text1" + + PROCEDURE canresort + * + * Call default logic. + * + IF NOT DODEFAULT() + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE commoncolumnclick && Generic column click handler + *!****************************************************************************** + *!* Method: grdGeneral::CommonColumnClick() + *!* Returns: Logical + LPARAMETERS toColumn + + * + * Call default logic. + * + IF NOT DODEFAULT() + RETURN .F. + ENDIF + + * + * Measure Success + * + LOCAL llSuccess as Boolean + llSuccess = .T. + + ** TODO + + * + * Return logical, success(T) or failure(F) + * + RETURN llSuccess + ENDPROC + + PROCEDURE Init + * + * Call default logic. + * + IF NOT DODEFAULT() + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE Column1.Text1.Click + * + * Call default logic. + * + IF NOT DODEFAULT() + RETURN .F. + ENDIF + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vct b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vct new file mode 100644 index 0000000000000000000000000000000000000000..1894eb37475f7f052efbf1346d76bba36ea98231 GIT binary patch literal 9576 zcmeHMUu+yl8K1k@aeV2uNvhI91DXV)I>9;lF11vQs&d{tH>aNO!rj>^Pt|&Fe79u1 zOZN60r%x3;!9z={(o(5vg~S8uLn~UTQXddc2vvv*i9YfI0wgMg1Og&NV)OfEXZH5u zb(}_4(uy13=l$m2H#;-me7|qLW$Z+kF_r?2(*NfQ(B2u)o`NYw^z)bP}%+G>x7} z$G6+b-T$!pk1d|27kFP09tr7pHEMGLbV1cVgXccb(<)DotNT#2#MtN9{p^*i2D`%8 zKk-Y^@84;5Z48Ck%~WP0K%W(FBRTt!VSX#HF=YrpD@?pCiPysoN>uM12Aoh0Rjd77DJd~G(z8#$ zp3xb+t$L;h{1|%n{ZreHDSuqJ!nZA)ayl(so?YHG-L@lq9CpieebMv$fFrYR_v{r% zJOwLicU&s5d|?J6Fgx6k95*?cQ*OI$vC-yKv5Lb?0&KT~4iIKPEi7+c_~;+5S^6iD zoqaCN7*TSXS)m?eXFpU8-o=t10sjImy-M27X4nLK3r3dgYKk3Tt$JuhseJybDeWy| zM|Guxr@3k_9{rg|^Fr-}};*lIto3iq>y+=3sfyn>V0 zRrUZYtvC__-cltKtR#AY?_K`6Di~wuyTbjo$^m~^LDEHbJavZ6%D)#;MnrWF%a-wf zv{|1AX>=l_yaaj?Gyxh1y$5;_4YPP20DTpF2Xrs^Nziw}zX5sxJZZ%*!T$wBau0&W zp+%=b$H9|~D)>vFDe(7zegOVGP!2pH<%i(^43ck4Xt{$LVu!9QKaU%rH z711@@0piiKdY`WM%94MJ@lv_)U8qc+I ziJgaaC7X$lx?U5PmQ4p@S{`qEb9~Wj+pCv30XO%(K2EHVr#I*dUJQ@Cb^^#p$t{QG z05G|hi-aYf*4iz#F90)5+tE)`ULp>~-3q^C9Uf;KbY#MnFgY}5%w2~Gov>|PZ zy$Z2{iw(OM^mY;vc8GeLR)8(wQZTF(7C=ZVwo~`Ghg9-l+~9{`(cDgtcZDCmc&T10 zFBF%mt*N*VG?;}xW$GnLULS__w6wmWeN2|Bt=&~pcsjM9FgHAhU6h25v+7PPbkz(V zlLgW8<2*p|S=?9lL!C9ez8gRV3fatAVRyQcpMl?Y-fjn7RGcXwqn#(^o57t5d*^ey zM&+ZL!gV!;frodUlYf^*ZoOl#35c{WK^&HPhG2pZ=ca_k_)*TNxs2~Y@gzFYb37-w1Y!;pyBJ$b|JTV?HcU}vj#^! zf^c=laL4P|7Hl^_qq4wj^%fsG@00rIE`;{IvJkVcN}GQbc~5VngeWwn;wI>1&%~>i5e7%|(%wp* z{gGW{MMj?KaH4_l13d{MUS3CccvGt1u8Jdlj#;QXU|~l3OlqssNS{q7rjNVfTK^En zMx~ntgIfTLds)Jwgup~W%@9cnH;pI+W8Vh-0z|Wr2(!cVM+oD7@=j#>*}-v%Jd3^d zm|{c7`?)oUS7WGSr}i{SiTI8o)1r)?&*5I#mJv78nVSn^1mQ7|Hi7Pncnj5~A%ec| z_U3q%d_=ma$8Yb0n86+`k`l8h%wFFYyxF%b(F?E8)w)rva>r3+-0bmr&vS%{YvZ8w z(J%@DIj4B5UaDs^N@O^Z(AA}{IK5ExRO=*1WMtK}9Sk_NK$FjAl*1c|jrqHS-AgbX zYOKAsr$3AA>5pMHh?3Kn4p0z_oa+x%0}5DCVCl25J~wMmD>^6{^TCe}`QS&`n^#io z>;HvYUawcn#oFdU)K{~gd5!AoPm!`{&9kFFE+iR=>; zut@)PaF&xIs3S{^5b~$O65j@>uDEs>>sH^R_abyMP`}#-CFy+;lzarEM3kJ~cybIC z1SNk{4KAWBg-;%j_0dpr=b>UZDA}z(0atWHDHddUR<6a?))*sw(Abg)JRhj0^l2&y za5V7fXL7uXJ|w+^1*bJ9(D^MG0-y)M69DDG2MT})=U)T=d(fA`OF-IThe_TY1El`} D;k+(t literal 0 HcmV?d00001 diff --git a/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vcx b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vcx new file mode 100644 index 0000000000000000000000000000000000000000..3ffee3fd9d00a464f2e4a8c16c5ef418ee0e06c9 GIT binary patch literal 3104 zcmeHJ&1=*^6d!AAw?bR3U$t1fiaoSa%*(TZ6B3delwkjSfsHmV9 zFM=}R^M3PwFE2BjR%weh zZy|)l8qdQ9rC~iGrGn;+m=*(~uY-vNw~%tt7%NjF&+!(RjS}t{jM|RIN`w@79~svR znr*u^tQ)>js;}S$Q%9QZ3BiXon+gur8-km|hl?7coR#&3;3dtXMTf(L4TRyAS)!I> zP@AwsIPOs0p?Co-9fC9J95VBj3E5x>j_1?Oy!(6yD|qk?n1u=kgfK0vzCe>4gjA*s zRuf`Tn_A;Ek7s8FHdVtx!uTOq!&AV=YTzpHat$2shE3MMGr*76z_Y-oYv4KHr$X>D z#z&e9n}Lz%Ypp>4Oidk(J4o1lc0|d+1B(Es?9k z8w#&(Ho7v|B|&@!{une5{ffUHT&}>+OK0LD)$PCA=zYHY_t9Ub3F6K*Ht=)w2X5oh z)TpVrljV}h)ZunQ(rtto&>UherxAzAN#K)WkB487*8Se^tlnhTMd7?e;1NghH6}}` zT^)qH0r?^{hM3E5(d^wOOugC7ahn9*C-!*RA!!|XGA0VABm$2(imyJInpJ*mCFDNH zpFuw&=JHlFdx(ERnnaH08@6F;-%{E?`BmsF zVlEFvv)S#04DWDr+};CzTkP?&Po#C^$zF)UR}z6o9L3j|ETzos#yNnzbtfSch`H=X z%;gXK-Cb_X?M>j9#U3wvM_Nao?2#yZE)jUdQGD>*=>LMGGuh>RgnR?}GW0uQE}cED iUxNR%*NwUD=q02D>X#mA9r@chAPR>h0zY}Zxa%)vz5QeW literal 0 HcmV?d00001