fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

See changelog 2001-09-09 17:30 GMT -3

Browse Source
This commit is contained in:
Luiz Rafael Culik
2001-09-09 20:33:26 +00:00
parent f9a7e9c430
commit cf24f1f54d
4 changed files with 46 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
harbour/include/hbgetcmt.ch
View File

@@ -131,6 +131,34 @@
[; ATail(GetList):Control:<guimsg>] ;
; ATail(GetList):Control:Display()
#command @ <top>, <left>, <bottom>, <right> GET <var> ;
LISTBOX <items> ;
[VALID <valid>] ;
[WHEN <when>] ;
[CAPTION <caption>] ;
[MESSAGE <message>] ;
[COLOR <color>] ;
[FOCUS <fblock>] ;
[STATE <sblock>] ;
[<drop: DROPDOWN>] ;
[<scroll: SCROLLBAR>] ;
[SEND <msg>] ;
[GUISEND <guimsg>] ;
;
=> SetPos( <top>, <left> ) ;
; AAdd( GetList, ;
_GET_( <var>, <(var)>, NIL, <{valid}>, <{when}> ) ) ;
; ATail(GetList):Control := _ListBox_( ATail(Getlist):row, ;
ATail(Getlist):col, ;
<bottom>, <right>, <var>, <items>, <caption>, <message>, ;
<color>, <{fblock}>, <{sblock}>, <.drop.>, ;
<.scroll.> ) ;
; ATail(GetList):reader := { | a, b, c, d | ;
GuiReader( a, b, c, d ) } ;
[; ATail(GetList):<msg>] ;
[; ATail(GetList):Control:<guimsg>] ;
; ATail(GetList):Control:Display()
#command READ [MSG AT <nRow>, <nLeft>, <nRight> ;
[MSG COLOR <cColor>]] ;

16
harbour/makefile.bc
View File

@@ -319,6 +319,7 @@ RTL_LIB_OBJS = \
$(OBJ_DIR)\getlist.obj \
$(OBJ_DIR)\getsys.obj \
$(OBJ_DIR)\input.obj \
$(OBJ_DIR)\listbox.obj \
$(OBJ_DIR)\memoedit.obj \
$(OBJ_DIR)\memvarbl.obj \
$(OBJ_DIR)\menuto.obj \
@@ -331,6 +332,7 @@ RTL_LIB_OBJS = \
$(OBJ_DIR)\radiogrp.obj \
$(OBJ_DIR)\readkey.obj \
$(OBJ_DIR)\readvar.obj \
$(OBJ_DIR)\scrollbr.obj \
$(OBJ_DIR)\setfunc.obj \
$(OBJ_DIR)\setta.obj \
$(OBJ_DIR)\tbcolumn.obj \
@@ -1440,6 +1442,13 @@ $(OBJ_DIR)\lennum.obj : $(RTL_DIR)\lennum.c
$(CC) $(CLIBFLAGS) -o$@ $**
tlib $(RTL_LIB) $(ARFLAGS) -+$@,,
$(OBJ_DIR)\listbox.c : $(RTL_DIR)\listbox.prg
$(HARBOUR_EXE) $(HARBOURFLAGS) $** -o$@
$(OBJ_DIR)\listbox.obj : $(OBJ_DIR)\listbox.c
$(CC) $(CLIBFLAGS) -o$@ $**
tlib $(RTL_LIB) $(ARFLAGS) -+$@,,
$(OBJ_DIR)\math.obj : $(RTL_DIR)\math.c
$(CC) $(CLIBFLAGS) -o$@ $**
tlib $(RTL_LIB) $(ARFLAGS) -+$@,,
@@ -1658,6 +1667,13 @@ $(OBJ_DIR)\scroll.obj : $(RTL_DIR)\scroll.c
$(CC) $(CLIBFLAGS) -o$@ $**
tlib $(RTL_LIB) $(ARFLAGS) -+$@,,
$(OBJ_DIR)\scrollbr.c : $(RTL_DIR)\scrollbr.prg
$(HARBOUR_EXE) $(HARBOURFLAGS) $** -o$@
$(OBJ_DIR)\scrollbr.obj : $(OBJ_DIR)\scrollbr.c
$(CC) $(CLIBFLAGS) -o$@ $**
tlib $(RTL_LIB) $(ARFLAGS) -+$@,,
$(OBJ_DIR)\seconds.obj : $(RTL_DIR)\seconds.c
$(CC) $(CLIBFLAGS) -o$@ $**
tlib $(RTL_LIB) $(ARFLAGS) -+$@,,

2
harbour/makefile.vc
View File

@@ -339,6 +339,7 @@ RTL_LIB_OBJS = \
$(OBJ_DIR)\getlist.obj \
$(OBJ_DIR)\getsys.obj \
$(OBJ_DIR)\input.obj \
$(OBJ_DIR)\listbox.obj \
$(OBJ_DIR)\memoedit.obj \
$(OBJ_DIR)\memvarbl.obj \
$(OBJ_DIR)\menuto.obj \
@@ -351,6 +352,7 @@ RTL_LIB_OBJS = \
$(OBJ_DIR)\radiogrp.obj \
$(OBJ_DIR)\readkey.obj \
$(OBJ_DIR)\readvar.obj \
$(OBJ_DIR)\scrollbr.obj \
$(OBJ_DIR)\setfunc.obj \
$(OBJ_DIR)\setta.obj \
$(OBJ_DIR)\tbcolumn.obj \

1
harbour/todo.txt
View File

@@ -24,7 +24,6 @@ string copies)
Finish HbMake Luiz Rafael Culik
CaClipper remaining classes Luiz Rafael Culik
Map Harbour functions 10 chars to be Luiz Rafael Culik
compatible with Caclipper