Re: [Hwgui-developers] Hwgui-developers Digest, Vol 69, Issue 3

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Hi!
This example demonstrates correct the problem !
Only if open another Dialog for valid clause

#include "hwgui.ch"

Function Main
Local oDlg, oObjGet, cVarGet := "1"
INIT DIALOG oDlg SIZE 120, 120 STYLE WS_SYSMENU+DS_CENTER
@ 10,10 get oObjGet var cVarGet  Size 55,20 VALID {||FuncXYZ()}

@ 10,50 BUTTON "Ok" ON CLICK {||close()}

oDlg:Activate()
Return Nil

Function close
 hwg_EndDialog()
return .t.

Function FuncXYZ
Local oDlg, oObjGet, cVarGet := "1"
INIT DIALOG oDlg SIZE 120, 120 STYLE WS_SYSMENU+DS_CENTER

@ 10,50 BUTTON "Ok" ON CLICK {||hwg_endDialog()}

oDlg:Activate()
Return .t.

*Best regards,
Itamar M. Lins Jr.
*
2013/3/16 <hwg...@li...>

> Send Hwgui-developers mailing list submissions to
>         hwg...@li...
>
> To subscribe or unsubscribe via the World Wide Web, visit
>         https://lists.sourceforge.net/lists/listinfo/hwgui-developers
> or, via email, send a message with subject or body 'help' to
>         hwg...@li...
>
> You can reach the person managing the list at
>         hwg...@li...
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Hwgui-developers digest..."
>
>
> Today's Topics:
>
>    1. Re: hwg_Textout() warning (oleksa)
>    2. Re: HWG_SETFOCUS (Alexander S.Kresin)
>    3. Re: hwg_Textout() warning (Alexander S.Kresin)
>    4. No maker hwguidyn.hbp (Itamar M. Lins Jr. Lins)
>    5. Context menu browse of TAB control (Itamar M. Lins Jr. Lins)
>    6. Re: Context menu browse of TAB control (Alexander S.Kresin)
>    7. Serious Bug Dialog Get with Valid no close
>       (Itamar M. Lins Jr. Lins)
>    8. Re: Serious Bug Dialog Get with Valid no close (Alex)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Mon, 11 Mar 2013 23:23:32 +0200
> From: "oleksa" <m.o...@uk...>
> Subject: Re: [Hwgui-developers] hwg_Textout() warning
> To: hwg...@li...
> Message-ID: <851...@ff...>
> Content-Type: text/plain; charset="windows-1251"
>
> Hi!
>
> We have CLASS hWinPrn (textout not used) or i sought bad win_prn.
>
> Regards,
> Alexey Myronenko
>
>   --- ??????????? ???????????? ---
>  ??? ????: "Itamar M. Lins Jr. Lins" <ita...@gm...>
>   ????: 11 ??????? 2013, 20:28:06
>
>
> > Hi!
> > The Class win_prn use Textout
> >
> > I use snr2 utility and change this line below
> >
> > oPrn := win_prn():New(cPrint)
> > ...
> > oPrn:hwg_Textout("XXX",.t.)
> >
> >
> >
> > Error BASE/1004 ?Message not found: WIN_PRN:HWG_TEXTOUT
> > Called from ->__ERRRT_SBASE(0)
> > Called from ../../../tobject.prg->WIN_PRN:ERROR(0)
> > Called from ../../../tobject.prg->(b)HBOBJECT(0)
> >
> > Called from ../../../tobject.prg->WIN_PRN:MSGNOTFOUND(0)
> > Called from ../../../tobject.prg->WIN_PRN:HWG_TEXTOUT(0)
> >
> >
> > Obviously?clase win_prn not use function hwg_textout.
> >
> >
> > Best regards,
> > Itamar M. Lins Jr.
> >
> >
> >
> ------------------------------------------------------------------------------
> > Symantec Endpoint Protection 12 positioned as A LEADER in The Forrester
> > Wave(TM): Endpoint Security, Q1 2013 and "remains a good choice" in the
> > endpoint security space. For insight on selecting the right partner to
> > tackle endpoint security challenges, access the full report.
> > http://p.sf.net/sfu/symantec-dev2dev
> >
> > _______________________________________________
> > Hwgui-developers mailing list
> > Hwg...@li...
> > https://lists.sourceforge.net/lists/listinfo/hwgui-developers
>
>
>
> ------------------------------
>
> Message: 2
> Date: Tue, 12 Mar 2013 10:35:12 +0400
> From: "Alexander S.Kresin" <al...@be...>
> Subject: Re: [Hwgui-developers] HWG_SETFOCUS
> To: Hwgui Desenvolvedores <hwg...@li...>
> Message-ID: <513...@be...>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Itamar M. Lins Jr. Lins ?????:
> > !Hi
> > I get erro while use HWG_SETFOCUS() in HEDIT or HBROWSE.
> >
> > Error BASE/1004  Message not found: HEDIT:HWG_SETFOCUS
> > ...
>
>   This goes somewhere from your prg, isn't it ? There is something like
> oEdit:hwg_Setfocus() ?
>
> So, as I wrote before, you need to change the method calls
> oEdit:hwg_Setfocus() to oEdit:Setfocus() in your prgs.
>
> Regards, Alexander.
>
>
>
> ------------------------------
>
> Message: 3
> Date: Tue, 12 Mar 2013 11:07:33 +0400
> From: "Alexander S.Kresin" <al...@be...>
> Subject: Re: [Hwgui-developers] hwg_Textout() warning
> To: Hwgui Desenvolvedores <hwg...@li...>
> Message-ID: <513...@be...>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Itamar M. Lins Jr. Lins ?????:
> > Hi!
> > The Class win_prn use Textout
> >
> > I use snr2 utility and change this line below
> >
> > oPrn := win_prn():New(cPrint)
> > ...
> >      oPrn:hwg_Textout("XXX",.t.)
> >
> > Error BASE/1004  Message not found: WIN_PRN:HWG_TEXTOUT
> > Called from ->__ERRRT_SBASE(0)
> > Called from ../../../tobject.prg->WIN_PRN:ERROR(0)
> > Called from ../../../tobject.prg->(b)HBOBJECT(0)
> > Called from ../../../tobject.prg->WIN_PRN:MSGNOTFOUND(0)
> > Called from ../../../tobject.prg->WIN_PRN:HWG_TEXTOUT(0)
> >
> > Obviously clase win_prn not use function hwg_textout.
> >
>
>    There was textout() function in drawtext.c, which is renamed now to
> hwg_textout() and appropriate rule is included in hwgcompat.ch.
>    As I understand, you use a win_prn class from harbour\contrib\hbwin,
> which have :textout() method and after using the snr2 lines like
> oPrn:textout() was changed to oPrn:hwg_textout(). this may occur not
> only with :textout() method, but with some other win_prn methods, which
> have names identical to the names of HwGUI functions.
>    You can search all occurrences of :hwg_ in you prgs and drop the hwg_
> from there or you can use snr2 again to fix all such things, for example:
>
>     snr2 -s:hwg_ -i: -w- -b -v *.prg
>
> This will change all ":hwg_" to ":" - i.e. drop all hwg_ prefixes from
> method calls. The -w- swith is needed here to turn off "Whole words"
> option.
>
> Regards, Alexander.
>
>
>
> ------------------------------
>
> Message: 4
> Date: Thu, 14 Mar 2013 17:56:33 -0300
> From: "Itamar M. Lins Jr. Lins" <ita...@gm...>
> Subject: [Hwgui-developers] No maker hwguidyn.hbp
> To: hwg...@li...
> Message-ID:
>         <CAHGjjAqbZ1m4rx43n63skhK=
> HFW...@ma...>
> Content-Type: text/plain; charset="iso-8859-1"
>
> C:\devl\hwgui>hbmk2 hwguidyn.hbp -rebuild
> hbmk2: Harbour: Compilando m?dulos...
> Error F0034  Bad command line option 'no'
> hbmk2: Erro: Executando o compilador Harbour (interno): 1
> (c:\hb32\bin\harbour.exe) -n1 source\herrsys.prg source\hipedit.prg
> source\draww
> idg.prg source\guimain.prg source\barcode.prg source\hbrowse.prg
> source\hcheck.p
> rg source\hcombo.prg source\hcontrol.prg source\hctrlex.prg
> source\hcwindow.prg
> source\hdatepic.prg source\hdialog.prg source\hedit.prg source\hfreeimg.prg
> sour
> ce\hgraph.prg source\hgrid.prg source\hgridex.prg source\hlistbox.prg
> source\hto
> ol.prg source\hmonthc.prg source\htrackbr.prg source\hanimat.prg source\
> hnice.pr
> g source\hownbtn.prg source\hpanel.prg source\hprinter.prg
> source\hprogres.prg s
> ource\hradio.prg source\hpager.prg source\hrebar.prg source\hriched.prg
> source\h
> sayimg.prg source\hshbtn.prg source\hsplash.prg source\hsplit.prg source\
> htab.pr
> g source\htimer.prg source\htree.prg source\hrect.prg source\hupdown.prg
> source\
> hwindow.prg source\hwinprn.prg source\menu.prg source\printdos.prg source\
> hdc.pr
> g source\hhyper.prg -nohbc -n1 -q0 -w -es2 -olib\.hbmk\win\mingw\hbdyn\
> -ic:\HB3
> 2\include -iinclude
>
> Best regards,
> Itamar M. Lins Jr.
> -------------- next part --------------
> An HTML attachment was scrubbed...
>
> ------------------------------
>
> Message: 5
> Date: Thu, 14 Mar 2013 18:54:12 -0300
> From: "Itamar M. Lins Jr. Lins" <ita...@gm...>
> Subject: [Hwgui-developers] Context menu browse of TAB control
> To: hwg...@li...
> Message-ID:
>         <
> CAH...@ma...>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Hi!
>
> Error BASE/1005  Message not found: HTAB:_OPOPUP
> Called from ->__ERRRT_SBASE(0)
> Called from ../../../tobject.prg->HTAB:ERROR(0)
> Called from ../../../tobject.prg->(b)HBOBJECT(0)
> Called from ../../../tobject.prg->HTAB:MSGNOTFOUND(0)
> Called from ../../../tobject.prg->HTAB:_OPOPUP(0)
> Called from source\menu.prg->HMENU:SHOW(34)
>
> Hwgui  * $Id: Changelog 2019 2013-03-14 10:53:33Z omm $
>
> Best regards,
> Itamar M. Lins Jr.
> -------------- next part --------------
> An HTML attachment was scrubbed...
>
> ------------------------------
>
> Message: 6
> Date: Fri, 15 Mar 2013 10:09:21 +0400
> From: "Alexander S.Kresin" <al...@be...>
> Subject: Re: [Hwgui-developers] Context menu browse of TAB control
> To: Hwgui Desenvolvedores <hwg...@li...>
> Message-ID: <514...@be...>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Itamar M. Lins Jr. Lins writes:
> > Hi!
> >
> > Error BASE/1005  Message not found: HTAB:_OPOPUP
> > Called from ->__ERRRT_SBASE(0)
> > Called from ../../../tobject.prg->HTAB:ERROR(0)
> > Called from ../../../tobject.prg->(b)HBOBJECT(0)
> > Called from ../../../tobject.prg->HTAB:MSGNOTFOUND(0)
> > Called from ../../../tobject.prg->HTAB:_OPOPUP(0)
> > Called from source\menu.prg->HMENU:SHOW(34)
> >
>
>   Hmm... HTab really hasn't and never had oPopup member.
> Did this work before ?
> Could you provide a small sample to demonstrate a problem ?
>
>
> Regards, Alexander.
>
>
>
> ------------------------------
>
> Message: 7
> Date: Fri, 15 Mar 2013 20:02:51 -0300
> From: "Itamar M. Lins Jr. Lins" <ita...@gm...>
> Subject: [Hwgui-developers] Serious Bug Dialog Get with Valid no close
> To: hwg...@li...
> Message-ID:
>         <CAHGjjApQX=7QQi4pz_qyCBeVNyOfvGr0VgOk29fmoeF=
> cR...@ma...>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Hi!
>
> Local oDlg
> INIT DIALOG oDlg ... Style WS_SYSMENU+DS_CENTER
> //Same if I click in Close Dialog [x] into window no close :(
>
> @ x,y get oObjGet var cVarGet  Size 55,20 VALID {||FuncXYZ(...)}
>
> @ a,b button  ... on click {||close()} // No close dialog
>
> oDlg:Activate()
>
> Function close
> //If I add oDlg:Close()
> //or add oDlg:End()
> //or hwg_EndDialog()
> //No close dialog :(
> return .t.
>
> Function FuncXYZ
> Local oDlg
> INIT Dialog ...
> ...
> oDlg:Activate()
>
> Return .T.
>
> Best regards,
> Itamar M. Lins Jr.
> -------------- next part --------------
> An HTML attachment was scrubbed...
>
> ------------------------------
>
> Message: 8
> Date: Sat, 16 Mar 2013 11:16:59 +0400
> From: Alex <al...@be...>
> Subject: Re: [Hwgui-developers] Serious Bug Dialog Get with Valid no
>         close
> To: hwg...@li...
> Message-ID: <144bf11847118334fb5fe16c2d2042b2@83.234.176.3>
> Content-Type: text/plain;       charset="koi8-r"
>
>  I can't confirm this. The following simple snippet works normaly:
>
> #include "hwgui.ch"
> Function Main
> Local oDlg, oObjGet, cVarGet := "1"
> INIT DIALOG oDlg SIZE 120, 120 STYLE WS_SYSMENU+DS_CENTER
> @ 10,10 get oObjGet var cVarGet  Size 55,20 // VALID {||FuncXYZ(...)}
>
> @ 10,50 BUTTON "Ok" ON CLICK {||close()}
>
> oDlg:Activate()
> Return Nil
>
> Function close
>  hwg_EndDialog()
> return .t.
>
>
> ________________________________________________
>
>
>
>
>
> ------------------------------
>
>
> ------------------------------------------------------------------------------
> Everyone hates slow websites. So do we.
> Make your web apps faster with AppDynamics
> Download AppDynamics Lite for free today:
> http://p.sf.net/sfu/appdyn_d2d_mar
>
> ------------------------------
>
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers
>
>
> End of Hwgui-developers Digest, Vol 69, Issue 3
> ***********************************************
>