Форум » LetoDB, HbNetio. » compile manage.prg on ubuntu » Ответить

compile manage.prg on ubuntu

Jan: Hello, I am trying to compile letodb/utils/manager/manage.prg: I have to put get libs and headers on command line with `pkg-config --cflags --libs gtk+-2.0` I changed lib directives in hbp file to portable version like this one: #{mingw|mingw64}-l${hwgui_dir}lib/${hb_plat}/${hb_comp}/libhbxml.a {mingw|mingw64}-L${hwgui_dir}lib/${hb_plat}/${hb_comp} {mingw|mingw64}-lhwgui {mingw|mingw64}-lprocmisc {mingw|mingw64}-lhbxml then compiling ends with error: /usr/bin/ld: /usr/local/src/hwgui-code/hwgui/lib/libhwgui.a(misc.o): undefined reference to symbol 'cos@@GLIBC_2.2.5' //lib/x86_64-linux-gnu/libm.so.6: error adding symbols: DSO missing from command line I have added -lm on command line: hbmk2 manage `pkg-config --cflags --libs gtk+-2.0` -lm and there is only one unresolved function hbmk2: Error: Referenced, missing, but unrecognized Harbour function(s): HWG_GETEDITTEXT() After adding dummy function HWG_GETEDITTEXT() rerturn "" and filling correct values for IP and port (and refresh nterval) directly in manage.prg I can compile and run manage.prg succesfully So my qusestion is: Is there any portable control or function for getting text from this input fields? best regards Jan

Ответов - 2

alkresin: cIp := oApp:oCombo:value is a most appropriate and portable way.

Jan: Спасибо, compile&run succesfully. --- manage.prg.orig 2016-11-29 20:49:53.287431381 +0100 +++ manage.prg 2016-11-29 20:50:39.888304982 +0100 @@ -157,8 +157,8 @@ Local cIp, nPort, nRes, cErrText, nItem, aLogin IF oApp:oTimer == Nil - cIp := hwg_GetEditText( oApp:oCombo:oParent:handle, oApp:oCombo:id ) - nPort := Val( oApp:oGetPort:GetText() ) + cIp := oApp:oCombo:value + nPort := oApp:oGetPort:value IF !Empty(cIp) .AND. !Empty(nPort) IF oApp:nItemCurr > 0 .AND. oApp:aServers[oApp:nItemCurr] == cIp .AND. ; @@ -521,7 +521,7 @@ Static nTM := 0 nTM ++ - IF nTM >= Val( oApp:oGetRefr:GetText() ) + IF nTM >= oApp:oGetRefr:value nTM := 0 IF !oApp:lSend IF oApp:nInfoType == 1

полная версия страницы