FWH 13.07 Tsbutton problem

FWH 13.07 Tsbutton problem

Postby betoncu » Mon Sep 09, 2013 12:09 pm

After I moved to FWH 13.07 all of my dialogs having a SBUTTON are ending with the following error.

Code: Select all  Expand view
Application
===========
   Path and name: C:\TSBUTTON\SAMPLES\test.exe (32 bits)
   Size: 2,966,016 bytes
   Compiler version: Harbour 3.2.0dev (r1306132159)
   FiveWin  Version: FWH 13.07
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 2 secs
   Error occurred at: 09/09/13, 14:55:01
   Error description: Error BASE/1003  Variable does not exist: SUPER

Stack Calls
===========
   Called from: SOURCE\Classes\TSBUTTON.PRG => TSBUTTON:NEW( 349 )
   Called from: test.prg => TRYME( 35 )
   Called from: test.prg => (b)BUILDMENU( 21 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 463 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1043 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 996 )
   Called from: test.prg => MAIN( 10 )

System
======
   CPU type: Intel(R) Core(TM)2 Duo CPU     E7500  @ 2.93GHz 2933 Mhz
   Hardware memory: 4095 megs

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

   Windows total applications running: 9
      1 ,
      2 , C:\Program Files (x86)\Glary Utilities 3\Integrator.exe
      3 , C:\Program Files (x86)\Google\Drive\googledrivesync.exe
      4 , C:\Program Files (x86)\Google\Google Toolbar\GoogleToolbarUser_32.exe
      5 , C:\Program Files (x86)\Internet Explorer\IEXPLORE.EXE
      6 , C:\Program Files (x86)\UltraEdit\uedit32.exe
      7 Testing Sbuttons, C:\TSBUTTON\SAMPLES\test.exe
      8 UltraEdit DOS Command Window, C:\PROGRA~2\ULTRAE~1\UEDOS32.EXE
      9 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}, C:\Program Files (x86)\Google\GoogleToolbarNotifier\GoogleToolbarNotifier.exe

Variables in use
================
   Procedure     Type   Value
   ==========================
   TSBUTTON:NEW
     Param   1:    O    Class: ERROR
   TRYME
     Param   1:    N    59
     Param   2:    N    61
     Param   3:    C    ""
     Param   4:    O    Class: TDIALOG
     Param   5:    U    
     Param   6:    U    
     Param   7:    A    Len:    2
     Param   8:    L    .T.
     Param   9:    B    {|| ... }
     Param  10:    U    
     Param  11:    U    
     Param  12:    L    .F.
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    N    0
     Param  17:    C    "BORDER"
     Param  18:    L    .F.
     Param  19:    L    .F.
     Param  20:    U    
     Param  21:    N    5
     Param  22:    L    .F.
     Param  23:    U    
     Param  24:    C    "RECT"
     Param  25:    U    
     Local   1:    L    .F.
     Local   2:    L    .F.
     Local   3:    L    .F.
     Local   4:    C    ""
     Local   5:    N    1
     Local   6:    N    2
     Local   7:    N    -1425991926
     Local   8:    N    8
     Local   9:    N    12
     Local  10:    U    
     Local  11:    A    Len:    3
     Local  12:    A    Len:    5
     Local  13:    A    Len:    2
     Local  14:    A    Len:    5
     Local  15:    L    .F.
     Local  16:    A    Len:    4
     Local  17:    A    Len:    8
     Local  18:    S    
     Local  19:    U    
     Local  20:    O    Class: TSBUTTON
     Local  21:    U    
   (b)BUILDMENU
     Local   1:    O    Class: TDIALOG
     Local   2:    U    
   TMENU:COMMAND
     Param   1:    O    Class: TMENUITEM
   TWINDOW:COMMAND
     Param   1:    N    20001
     Local   1:    O    Class: TMENUITEM
   TWINDOW:HANDLEEVENT
     Param   1:    N    20001
     Param   2:    N    0
     Local   1:    N    0
     Local   2:    N    20001
     Local   3:    N    0
   _FWH
     Param   1:    N    273
     Param   2:    N    20001
     Param   3:    N    0
   WINRUN
     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
   TWINDOW:ACTIVATE
     Param   1:    N    3867742
   MAIN
     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:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    

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

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

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TWINDOW
     5 TMENU
     6 TMENUITEM
     7 TBRUSH
     8 TFONT
     9 TRECT
    10 TDIALOG
    11 TCONTROL
    12 TSBUTTON
    13 TREG32

Memory Analysis
===============
      203 Static variables

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



Here is my build file that I used to build SButtonH.lib
Code: Select all  Expand view
@ECHO OFF
CLS
set fwh=c:\fwh
set include=.\INCLUDE;c:\fwh\include;%INCLUDE%
set hdir=c:\harbour
set bcdir=c:\bcc582\bin
set def=HB_API_MACROS

%hdir%\bin\harbour SOURCE\Classes\TSBAR.PRG /n /i%fwh%\include;%hdir%\include /oOBJ\TSBAR.C
%hdir%\bin\harbour SOURCE\Classes\TSBUTTON.PRG /n /i%fwh%\include;%hdir%\include /oOBJ\TSBUTTON.C
%hdir%\bin\harbour SOURCE\Classes\TSLINES.PRG /n /i%fwh%\include;%hdir%\include /oOBJ\TSLINES.C
%hdir%\bin\harbour SOURCE\Classes\TSRADIO.PRG /n /i%fwh%\include;%hdir%\include /oOBJ\TSRADIO.C
%hdir%\bin\harbour SOURCE\Classes\TSTSAY.PRG /n /i%fwh%\include;%hdir%\include /oOBJ\TSTSAY.C

rem INICIO Modulos C Generados por Harbour !!!

%bcdir%\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\include  -oOBJ\TSBAR.OBJ  OBJ\TSBAR.C
%bcdir%\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\include  -oOBJ\TSBUTTON.OBJ  OBJ\TSBUTTON.C
%bcdir%\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\include  -oOBJ\TSLINES.OBJ  OBJ\TSLINES.C
%bcdir%\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\include  -oOBJ\TSRADIO.OBJ  OBJ\TSRADIO.C
%bcdir%\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\include  -oOBJ\TSTSAY.OBJ  OBJ\TSTSAY.C

@del OBJ\*.c

rem Modulos C Nativos !!!

%bcdir%\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\include;%include%  -oOBJ\BPAINTH.OBJ  source\function\BPAINTH.C

@del LIB\SButtonH.LIB

%bcdir%\Tlib lib\SButtonH +obj\TSBar     > Lib.log
%bcdir%\Tlib lib\SButtonH +obj\TSBUtton  >> Lib.log
%bcdir%\Tlib lib\SButtonH +obj\TSLines   >> Lib.log
%bcdir%\Tlib lib\SButtonH +obj\TSRadio   >> Lib.log
%bcdir%\Tlib lib\SButtonH +obj\TSTSay    >> Lib.log
%bcdir%\Tlib lib\SButtonH +obj\BPaintH   >> Lib.log

rem @del tmplib.bc

@echo Library built
pause
 


Please Help
Birol Betoncu
Birol Betoncu
birol.betoncu@gmail.com
Using Harbour, FWH 19.05, BCC7
User avatar
betoncu
 
Posts: 126
Joined: Sat Oct 08, 2005 9:38 pm
Location: Cyprus (North)

Re: FWH 13.07 Tsbutton problem

Postby Antonio Linares » Mon Sep 09, 2013 1:43 pm

Birol,

In Class TSButton please replace all Super with ::Super

It is a change in Harbour
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42094
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: FWH 13.07 Tsbutton problem

Postby betoncu » Mon Sep 09, 2013 2:04 pm

Dear Antonio, Thank you very much.
Birol Betoncu
birol.betoncu@gmail.com
Using Harbour, FWH 19.05, BCC7
User avatar
betoncu
 
Posts: 126
Joined: Sat Oct 08, 2005 9:38 pm
Location: Cyprus (North)


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 92 guests