From Newsgroup: comp.lang.clipper

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() // maxrow(),maxcol() was in wrong order in your sample

hth,

lohen
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit-a:

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() // maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result
@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit-a:

Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit :

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() // maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is
@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
Med
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit :

Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit :

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()

Med

Hadn't thought of that! :-) Thanks for sharing

lohen
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit-a:

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit :

Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit :

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()

Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried
@0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias() function getalias()
local otb
otb:=getactive():control
return .t.
otb is not the control I expected?
Med
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit :

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit :

Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit :

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()

Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried
@0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()

function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { | oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Le samedi 1 juillet 2023 |a 07:16:23 UTC+1, lohen a |-crit-a:

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit :

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit : >>>> Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit :

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it? >>>>>>
Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() >>>
Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried
@0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()

function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen

For example
When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
but when I use Tab key to navigate everything's good.
function getalias( otb )

alert ( getactive:name)
return .t.

--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Op 2023-07-01 om 08:36 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 07:16:23 UTC+1, lohen a |-crit :

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit :

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit : >>>>>> Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit :

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it? >>>>>>>>
Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() >>>>>
Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried
@0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()


function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen

For example

When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
but when I use Tab key to navigate everything's good.

function getalias( otb )

alert ( getactive:name)
return .t.

getactive() is not being updated from the internals of the GET system,
then only _after_ the when clause yields .T.

For the mouseing misbehaviour in your sample (when you write u i suppose
you mean u1), of the top of my head, only adapting the GET system code
itself will help

l
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Le samedi 1 juillet 2023 |a 08:20:07 UTC+1, lohen a |-crit-a:

Op 2023-07-01 om 08:36 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 07:16:23 UTC+1, lohen a |-crit :

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit :

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit : >>>>>> Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit :

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it? >>>>>>>>
Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() // >>>>>>> maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()

Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried
@0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias() >>>

function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen

For example

When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
but when I use Tab key to navigate everything's good.

function getalias( otb )

alert ( getactive:name)
return .t.

getactive() is not being updated from the internals of the GET system,
then only _after_ the when clause yields .T.

For the mouseing misbehaviour in your sample (when you write u i suppose
you mean u1), of the top of my head, only adapting the GET system code itself will help

You are right. Now the code becomes:

@ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }
By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing. After this example I plan to code a master-detail tbrowse
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Op 2023-07-01 om 12:21 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 08:20:07 UTC+1, lohen a |-crit :

Op 2023-07-01 om 08:36 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 07:16:23 UTC+1, lohen a |-crit :

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit :

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit : >>>>>>>> Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit :

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it? >>>>>>>>>>
Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() // >>>>>>>>> maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() >>>>>>>
Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried
@0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias() >>>>>

function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen

For example

When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
but when I use Tab key to navigate everything's good.

function getalias( otb )

alert ( getactive:name)
return .t.

getactive() is not being updated from the internals of the GET system,
then only _after_ the when clause yields .T.

For the mouseing misbehaviour in your sample (when you write u i suppose
you mean u1), of the top of my head, only adapting the GET system code
itself will help

You are right. Now the code becomes:

@ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }

@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }

By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.

After this example I plan to code a master-detail tbrowse

Beware that when evaluating the WHEN clause, as far as i saw in the GET
system code, the argument from the internals to the WHEN Block isn't the
GET object itself, but the GET:control object, so that your two WHEN
clauses (perhaps?) need to be

when {| control |alert(control:cargo),.T.}

.oO although the GET system i draw this conclusion from is a heavily adapted one

lohen

--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Le samedi 1 juillet 2023 |a 11:44:22 UTC+1, lohen a |-crit-a:

Op 2023-07-01 om 12:21 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 08:20:07 UTC+1, lohen a |-crit :

Op 2023-07-01 om 08:36 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 07:16:23 UTC+1, lohen a |-crit :

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit :

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit : >>>>>>>> Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit : >>>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time? >>>>>>>>>>
Nb: I believe that oTB2 is displayed when we set the focus on it? >>>>>>>>>>
Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() // >>>>>>>>> maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable() >>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()

Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried
@0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias() >>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias() >>>>>

function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen

For example

When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
but when I use Tab key to navigate everything's good.

function getalias( otb )

alert ( getactive:name)
return .t.

getactive() is not being updated from the internals of the GET system,
then only _after_ the when clause yields .T.

For the mouseing misbehaviour in your sample (when you write u i suppose >> you mean u1), of the top of my head, only adapting the GET system code
itself will help

You are right. Now the code becomes:

@ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }

@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }

By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.

After this example I plan to code a master-detail tbrowse

Beware that when evaluating the WHEN clause, as far as i saw in the GET system code, the argument from the internals to the WHEN Block isn't the
GET object itself, but the GET:control object, so that your two WHEN
clauses (perhaps?) need to be

when {| control |alert(control:cargo),.T.}

.oO although the GET system i draw this conclusion from is a heavily adapted one

lohen

In
FUNCTION getAlias(ctrl)
LOCAL objGet
objGet := GETACTIVE(ctrl)
alert(ctrl:classname+' '+objget:classname) // GIVE GET object So ctrl:control :classname and objget:classname are TBROWSE
Med
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Op 2023-07-01 om 18:15 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 11:44:22 UTC+1, lohen a |-crit :

Op 2023-07-01 om 12:21 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 08:20:07 UTC+1, lohen a |-crit :

Op 2023-07-01 om 08:36 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 07:16:23 UTC+1, lohen a |-crit :

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit :

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit : >>>>>>>>>> Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit : >>>>>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time? >>>>>>>>>>>>
Nb: I believe that oTB2 is displayed when we set the focus on it? >>>>>>>>>>>>
Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() // >>>>>>>>>>> maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display() >>>>>>>>> I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable() >>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()

Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried
@0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias() >>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias() >>>>>>>

function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen

For example

When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
but when I use Tab key to navigate everything's good.

function getalias( otb )

alert ( getactive:name)
return .t.

getactive() is not being updated from the internals of the GET system, >>>> then only _after_ the when clause yields .T.

For the mouseing misbehaviour in your sample (when you write u i suppose >>>> you mean u1), of the top of my head, only adapting the GET system code >>>> itself will help

You are right. Now the code becomes:

@ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }

@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }

By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing. >>>
After this example I plan to code a master-detail tbrowse

Beware that when evaluating the WHEN clause, as far as i saw in the GET
system code, the argument from the internals to the WHEN Block isn't the
GET object itself, but the GET:control object, so that your two WHEN
clauses (perhaps?) need to be

when {| control |alert(control:cargo),.T.}

.oO although the GET system i draw this conclusion from is a heavily adapted one

lohen

In

FUNCTION getAlias(ctrl)
LOCAL objGet
objGet := GETACTIVE(ctrl)
alert(ctrl:classname+' '+objget:classname) // GIVE GET object So ctrl:control :classname and objget:classname are TBROWSE

Med

what is said earlier, control being oGet:control wasn't correct, it
should have read:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { | oGet, oControl | getalias( oControl ) }
@11, 0, maxcol(), maxrow() GET u2 TBROWSE oTB2 send .... when { | oGet, oControl | getalias( oControl ) }

when calling GETACTIVE() with an argument, it is pbly best to restore
the return value of that first GETACTIVE() call with another call to GETACTIVE() providing the return variable of the first call - and doing
so is only meaningful during a READ

So ctrl:control :classname and objget:*control:*classname are TBROWSE

l

--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Le samedi 1 juillet 2023 |a 17:56:23 UTC+1, lohen a |-crit-a:

Op 2023-07-01 om 18:15 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 11:44:22 UTC+1, lohen a |-crit :

Op 2023-07-01 om 12:21 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 08:20:07 UTC+1, lohen a |-crit :

Op 2023-07-01 om 08:36 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 07:16:23 UTC+1, lohen a |-crit :

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit : >>>>>>>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit :

Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit : >>>>>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time? >>>>>>>>>>>>
Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() // >>>>>>>>>>> maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display() >>>>>>>>> I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable() >>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()

Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried >>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias() >>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()


function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { | >>>>>> oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen

For example

When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
but when I use Tab key to navigate everything's good.

function getalias( otb )

alert ( getactive:name)
return .t.

getactive() is not being updated from the internals of the GET system, >>>> then only _after_ the when clause yields .T.

For the mouseing misbehaviour in your sample (when you write u i suppose
you mean u1), of the top of my head, only adapting the GET system code >>>> itself will help

You are right. Now the code becomes:

@ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }

@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }

By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.

After this example I plan to code a master-detail tbrowse

Beware that when evaluating the WHEN clause, as far as i saw in the GET >> system code, the argument from the internals to the WHEN Block isn't the >> GET object itself, but the GET:control object, so that your two WHEN
clauses (perhaps?) need to be

when {| control |alert(control:cargo),.T.}

.oO although the GET system i draw this conclusion from is a heavily adapted one

lohen

In

FUNCTION getAlias(ctrl)
LOCAL objGet
objGet := GETACTIVE(ctrl)
alert(ctrl:classname+' '+objget:classname) // GIVE GET object
So ctrl:control :classname and objget:classname are TBROWSE

Med

what is said earlier, control being oGet:control wasn't correct, it
should have read:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { | oGet,
oControl | getalias( oControl ) }
@11, 0, maxcol(), maxrow() GET u2 TBROWSE oTB2 send .... when { | oGet, oControl | getalias( oControl ) }

when calling GETACTIVE() with an argument, it is pbly best to restore
the return value of that first GETACTIVE() call with another call to GETACTIVE() providing the return variable of the first call - and doing
so is only meaningful during a READ

So ctrl:control :classname and objget:*control:*classname are TBROWSE

l

Did you try to make a sample to show the result ?
Regards
Med
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.clipper

Op 2023-07-01 om 20:02 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 17:56:23 UTC+1, lohen a |-crit :

Op 2023-07-01 om 18:15 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 11:44:22 UTC+1, lohen a |-crit :

Op 2023-07-01 om 12:21 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 08:20:07 UTC+1, lohen a |-crit :

Op 2023-07-01 om 08:36 schreef Mohamed Hamza:

Le samedi 1 juillet 2023 |a 07:16:23 UTC+1, lohen a |-crit :

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 17:51:52 UTC+1, lohen a |-crit : >>>>>>>>>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:

Le vendredi 30 juin 2023 |a 16:03:17 UTC+1, Mohamed Hamza a |-crit :

Le vendredi 30 juin 2023 |a 04:32:12 UTC+1, lohen a |-crit : >>>>>>>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time? >>>>>>>>>>>>>>
Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med

Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display() >>>>>>>>>>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() // >>>>>>>>>>>>> maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display() >>>>>>>>>>> I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable() >>>>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()

Med

Hadn't thought of that! :-) Thanks for sharing

lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried >>>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias() >>>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()


function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { | >>>>>>>> oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen

For example

When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
but when I use Tab key to navigate everything's good.

function getalias( otb )

alert ( getactive:name)
return .t.

getactive() is not being updated from the internals of the GET system, >>>>>> then only _after_ the when clause yields .T.

For the mouseing misbehaviour in your sample (when you write u i suppose >>>>>> you mean u1), of the top of my head, only adapting the GET system code >>>>>> itself will help

You are right. Now the code becomes:

@ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }

@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }

By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.

After this example I plan to code a master-detail tbrowse

Beware that when evaluating the WHEN clause, as far as i saw in the GET >>>> system code, the argument from the internals to the WHEN Block isn't the >>>> GET object itself, but the GET:control object, so that your two WHEN
clauses (perhaps?) need to be

when {| control |alert(control:cargo),.T.}

.oO although the GET system i draw this conclusion from is a heavily adapted one

lohen

In

FUNCTION getAlias(ctrl)
LOCAL objGet
objGet := GETACTIVE(ctrl)
alert(ctrl:classname+' '+objget:classname) // GIVE GET object
So ctrl:control :classname and objget:classname are TBROWSE


Med

what is said earlier, control being oGet:control wasn't correct, it
should have read:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { | oGet,
oControl | getalias( oControl ) }
@11, 0, maxcol(), maxrow() GET u2 TBROWSE oTB2 send .... when { | oGet,
oControl | getalias( oControl ) }

when calling GETACTIVE() with an argument, it is pbly best to restore
the return value of that first GETACTIVE() call with another call to
GETACTIVE() providing the return variable of the first call - and doing
so is only meaningful during a READ

So ctrl:control :classname and objget:*control:*classname are TBROWSE

l

Did you try to make a sample to show the result ?

Regards
Med

No, all written above is untested, but behaviour consulted from the
sources to the GET system
From the fact you mention @... GET ... TBROWSE i derive that this is CA-Clipper 5.3
The CA-Clipper 5.2 GET system is quite less complicated

l
--- Synchronet 3.21d-Linux NewsLink 1.2