Error en Ejemplo testfldm.prg Con Xharbour en 7.05

[audisys]

Antonio,

Cuando compilo el ejemplo de testfldm.prg con Xharbour(el que viene con la version 7.05) Genera el Siguiente Error.


PD. Ojo no Sucede con Harbour.


Application
===========
Path and name: c:\FWH2007\samples\testfldm.exe (32 bits)
Size: 1,284,608 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 05/18/07, 11:00:33
Error description: Error BASE/1004 Message not found: TGET:TCONTROL

Stack Calls
===========
Called from: tobject.prg => TGET:ERROR(311)
Called from: tobject.prg => TGET:MSGNOTFOUND(340)
Called from: tobject.prg => TGET:TCONTROL(0)
Called from: TGET.PRG => TGET:INITIATE(0)
Called from: => __OBJSENDMSG(0)
Called from: HARBOUR.PRG => OSEND(0)
Called from: HARBOUR.PRG => ASEND(0)
Called from: DIALOG.PRG => TDIALOG:INITIATE(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => CREATEDLG(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: folder.PRG => TFOLDER:DEFAULT(0)
Called from: folder.PRG => TFOLDER:INITIATE(0)
Called from: => __OBJSENDMSG(0)
Called from: HARBOUR.PRG => OSEND(0)
Called from: HARBOUR.PRG => ASEND(0)
Called from: DIALOG.PRG => TDIALOG:INITIATE(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: testfldm.prg => SNGLFOLD(87)
Called from: testfldm.prg => (b)BUILDMENU(22)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: testfldm.prg => MAIN(12)

System
======
CPU type: Intel(R) Pentium(R) M processor 1.86GHz 800 Mhz
Hardware memory: 1015 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 26
1
2 M
3 Default IME
4 CiceroUIWndFrame
5 TF_FloatingLangBar_WndTitle
6 Menú Inicio
7 Create MSDS
8 Folders Test
9 C:\WINDOWS\system32\cmd.exe - buildx testfldm
10 MED CX - unregistered - [c:\FWH2007\samples\Buildx.bat]
11 Total Commander 7.0 release candidate 4 - José David Angulo Urzola
12 Lister - [c:\FWH2007\samples\Buildx.bat]
13 Folder loading pages test
14 Launcher 1.5.5
15 560CEE382FE04EEE8EE428712CD776BE
16 launcher
17 Available Networks
18 Connections Tray
19 Medidor de energía
20 MS_WebcheckMonitor
21 Intel(R) PROSet/Wireless - TF - Intel(R) PROSet/Wireless
22 Progreso de descarga de eTrust ITM
23 Realmon
24 WLKeeperWindow
25 IWMSWindow
26 Program Manager

Variables in use
================
Procedure Type Value
==========================
TGET:ERROR
Param 1: C "Message not found"
Param 2: C "TGET"
Param 3: C "TCONTROL"
Param 4: N 1004
Local 1: U
Local 2: O Class: TGET
Local 3: N 13
TGET:MSGNOTFOUND
Param 1: C "TCONTROL"
Local 1: O Class: TGET
TGET:TCONTROL
TGET:INITIATE
Param 1: N 525022
Local 1: O Class: TGET
Local 2: U
__OBJSENDMSG
Param 1: O Class: TGET
Param 2: C "INITIATE"
Param 3: N 525022
OSEND
Param 1: O Class: TGET
Param 2: C "INITIATE"
Param 3: N 525022
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: N 1
Local 11: U
ASEND
Param 1: A Len: 1
Param 2: C "INITIATE()"
Param 3: N 525022
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: N 1
Local 11: N 1
TDIALOG:INITIATE
Param 1: N 590552
Param 2: N 525022
Local 1: O Class: TDIALOG
Local 2: L .T.
Local 3: U
Local 4: U
Local 5: L .F.
Local 6: U
TDIALOG:HANDLEEVENT
Param 1: N 272
Param 2: N 590552
Param 3: N 525022
Local 1: O Class: TDIALOG
CREATEDLG
Param 1: N 4194304
Param 2: C "dialog_1"
Param 3: N 262940
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .F.
Param 5: B {|| ... }
Param 6: L .F.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: L .T.
Local 1: O Class: TDIALOG
Local 2: N 262940
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
TFOLDER:DEFAULT
Local 1: O Class: TFOLDER
Local 2: N 1
Local 3: N 7
Local 4: O Class: TDIALOG
Local 5: N 0
TFOLDER:INITIATE
Param 1: N 525012
Local 1: O Class: TFOLDER
Local 2: N 8
__OBJSENDMSG
Param 1: O Class: TFOLDER
Param 2: C "INITIATE"
Param 3: N 525012
OSEND
Param 1: O Class: TFOLDER
Param 2: C "INITIATE"
Param 3: N 525012
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: N 1
Local 11: U
ASEND
Param 1: A Len: 4
Param 2: C "INITIATE()"
Param 3: N 525012
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: N 1
Local 11: N 1
TDIALOG:INITIATE
Param 1: N 394016
Param 2: N 525012
Local 1: O Class: TDIALOG
Local 2: L .T.
Local 3: U
Local 4: U
Local 5: L .F.
Local 6: U
TDIALOG:HANDLEEVENT
Param 1: N 272
Param 2: N 394016
Param 3: N 525012
Local 1: O Class: TDIALOG
DIALOGBOX
Param 1: N 4194304
Param 2: C "shel_ent"
Param 3: N 2293932
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: L .T.
Local 1: O Class: TDIALOG
Local 2: N 2293932
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
SNGLFOLD
Local 1: O Class: TDIALOG
Local 2: O Class: TFOLDER
Local 3: O Class: TGET
Local 4: C " "
(b)BUILDMENU
Param 1: O Class: TMENUITEM
TMENU:COMMAND
Param 1: N 20001
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20001
Param 2: N 0
Local 1: O Class: TWINDOW
Local 2: N 0
Local 3: N 20001
Local 4: N 0
TWINDOW:HANDLEEVENT
Param 1: N 273
Param 2: N 20001
Param 3: N 0
_FWH
Param 1: N 0
Param 2: N 273
Param 3: N 20001
Param 4: N 0
Param 5: N 1
Local 1: O Class: TWINDOW
WINRUN
Param 1: N 2293932
TWINDOW:ACTIVATE
Param 1: C "NORMAL"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: U
Param 18: U
Param 19: U
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U
MAIN

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use
================

Classes in use:
===============
1 HASHENTRY
2 HBCLASS
3 HBOBJECT
4 TWINDOW
5 TMENU
6 TMENUITEM
7 TBRUSH
8 TFONT
9 TDIALOG
10 TCONTROL
11 TFOLDER
12 TGET
13 GET
14 TCLIPGET
15 TBUTTON
16 ERROR
17 TREG32

Memory Analysis
===============
106 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes

[Antonio Linares]

José David,

Parece un bug de xHarbour. Vamos a probar con el código más reciente del CVS de xHarbour por si ya estuviese arreglado. Gracias,

[audisys]

Antonio,

Espero cualquier cambio.

Mil Gracias

[audisys]

Antonio,

En que quedo la revison del xHarbour, con el error anterior.

Sigo a la espera

Mil gracias

[Antonio Linares]

José David,

Es un error confirmado de xHarbour y han comentado que están próximos a arreglarlo. Estamos a la espera