schweizer
3rd February 2005, 10:24
Hi,
First Question, is it possible to use multi occurences fields in a window creted by the create.object(DsCmwindow)?
Second, does anyone know how to use the "DsCtoolBar" .
I found it in the create object.help but I'm not sure about the arguments.
The script looks like this.
#if BAANIV
#define BAANERP 0
#endif
#define COMMAND.ABORT 10
#define COMMAND.EXIT 11
#define COMMAND.FIRST 20
#define COMMAND.LAST 21
#define COMMAND.PREV 22
#define COMMAND.NEXT 23
#define COMMAND.CONTINUE 1
long m_window, uber, work_win, tool_1
function main()
{
create.main.window()
handle.event.loop()
}
function create.main.window()
{
string file(128)
string bufr(1) based
long buflen, fp, idp
m_window = create.object( DsCmwindow, 0,
DsNtitle, "MWindow",
DsNprocessgroup, get.pgrp(pid),
DsNminWidth, 200,
DsNmaxWidth, 200,
DsNminHeight, 200,
DsNmaxHeight, 200)
file = "${BSE}/gif/desktop.gif/printer1"
fp = seq.open(file, "r")
buflen = seq.seek(0, 2, fp)
alloc.mem(bufr, buflen)
seq.rewind(fp)
seq.read(bufr, buflen, fp)
seq.close(fp)
tool_1 = create.object(DsCpixmap, 0,
DsNdata, bufr, buflen,
DsNdataType, DSPIXGIF8 )
create.object(DsCtoolBar,m_window,
DsNcommandList,1,
DsNimageList,tool_1)
update.object(m_window)
}
function handle.event.loop()
{
long x,y
long event(EVTMAXSIZE)
while TRUE
next.event(event)
on case evt.type(event)
case EVTMENUSELECT:
on case evt.menu.return(event)
case COMMAND.ABORT:
message("jljlb")
return
case COMMAND.EXIT:
return
endcase
break
case EVTPUSHBUTTON:
if ( evt.button.return(event) = COMMAND.ABORT OR
evt.button.return(event) = COMMAND.EXIT ) then
return
endif
break
case EVTKEYPRESS:
case KEY_RETURN:
zoom.to$("tdsls4820s000", z.session, "", "", 0)
message("jljlb")
break
case EVTBUTTONDPRESS:
case EVTBUTTON3:
message("da kiegste wa")
x = evt.button.x(event)
y = evt.button.y(event)
break
default:
break
endcase
endwhile
}
Thanks in advance
Schweizer
First Question, is it possible to use multi occurences fields in a window creted by the create.object(DsCmwindow)?
Second, does anyone know how to use the "DsCtoolBar" .
I found it in the create object.help but I'm not sure about the arguments.
The script looks like this.
#if BAANIV
#define BAANERP 0
#endif
#define COMMAND.ABORT 10
#define COMMAND.EXIT 11
#define COMMAND.FIRST 20
#define COMMAND.LAST 21
#define COMMAND.PREV 22
#define COMMAND.NEXT 23
#define COMMAND.CONTINUE 1
long m_window, uber, work_win, tool_1
function main()
{
create.main.window()
handle.event.loop()
}
function create.main.window()
{
string file(128)
string bufr(1) based
long buflen, fp, idp
m_window = create.object( DsCmwindow, 0,
DsNtitle, "MWindow",
DsNprocessgroup, get.pgrp(pid),
DsNminWidth, 200,
DsNmaxWidth, 200,
DsNminHeight, 200,
DsNmaxHeight, 200)
file = "${BSE}/gif/desktop.gif/printer1"
fp = seq.open(file, "r")
buflen = seq.seek(0, 2, fp)
alloc.mem(bufr, buflen)
seq.rewind(fp)
seq.read(bufr, buflen, fp)
seq.close(fp)
tool_1 = create.object(DsCpixmap, 0,
DsNdata, bufr, buflen,
DsNdataType, DSPIXGIF8 )
create.object(DsCtoolBar,m_window,
DsNcommandList,1,
DsNimageList,tool_1)
update.object(m_window)
}
function handle.event.loop()
{
long x,y
long event(EVTMAXSIZE)
while TRUE
next.event(event)
on case evt.type(event)
case EVTMENUSELECT:
on case evt.menu.return(event)
case COMMAND.ABORT:
message("jljlb")
return
case COMMAND.EXIT:
return
endcase
break
case EVTPUSHBUTTON:
if ( evt.button.return(event) = COMMAND.ABORT OR
evt.button.return(event) = COMMAND.EXIT ) then
return
endif
break
case EVTKEYPRESS:
case KEY_RETURN:
zoom.to$("tdsls4820s000", z.session, "", "", 0)
message("jljlb")
break
case EVTBUTTONDPRESS:
case EVTBUTTON3:
message("da kiegste wa")
x = evt.button.x(event)
y = evt.button.y(event)
break
default:
break
endcase
endwhile
}
Thanks in advance
Schweizer