Hi
Przemyslaw Czerpak-2 wrote:
>
> proc main()
> dbCreate( "_tst", { { "F","C",10,0 } } )
> use _tst alias "tst1" new shared
> dbRelease()
> use _tst alias "tst1" new shared
> WorkSpaceEval( {|| doTest() } )
> return
> proc doTest()
> local i, n
> n := select()
> ? "Current workarea: ", ltrim( str( n ) ), "alias:", alias(), ;
> "(verify:" + ltrim( str( select( alias() ) ) ) + ")"
> ? "All active workareas in thread workspace:"
> for i := 1 to 255
> select( i )
> if used()
> ? " workarea:", ltrim( str( i ) ), "alias:", alias()
> endif
> next
> select( n )
> return
>
c:\harbour\tests>wareas
Current workarea: 1 alias: TST1 (verify:1)
All active workareas in thread workspace:
workarea: 1 alias: TST1
Current workarea: 2 alias: (verify:0)
All active workareas in thread workspace:
workarea: 1 alias: TST1
Current workarea: 7 alias: (verify:0)
All active workareas in thread workspace:
workarea: 1 alias: TST1
Current workarea: 183 alias: (verify:0)
All active workareas in thread workspace:
workarea: 1 alias: TST1
Regards
Pritpal Bedi
--
View this message in context:
http://www.nabble.com/MT-workareas-cloning-tp24050058p24076723.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
