I can't use quotes in SendRexxCommand(), it seems so that they get removed before the command is send to the rexx port!?
Code: Select all
Function p_MOSToast(text$, t)
Local str$
str$ = "BUBBLE \""..text$.."\""
If HaveItem(t, "x") Then str$ = str$.." X "..t.x
If HaveItem(t, "Y") Then str$ = str$.." Y "..t.y
If HaveItem(t, "Font") Then str$ = str$.." Font \""..t.font.."\""
If HaveItem(t, "Skin") Then str$ = str$.." Skin \""..t.skin.."\""
If HaveItem(t, "Image") Then str$ = str$.." Image "..t.image
If HaveItem(t, "Color") Then str$ = str$.." Color "..t.color
If HaveItem(t, "Mouse") Then str$ = str$.." MOUSE"
If HaveItem(t, "Center") Then str$ = str$.." CENTER"
If HaveItem(t, "Duration") Then str$ = str$.." Duration "..t.duration
DebugPrint(str$)
res$ = SendRexxCommand("MAGICBEACON", str$)
If res$ Then DebugPrint("res = "..res$)
Return res$
EndFunction
p_MOSToast("Hello Center", {x=200, y=500, font = "Lux/26", Skin="Woo0t", image="Connected", color="00ff00"})
This is the complete command printed right before SendRexxCommand():
BUBBLE "Hallo Center" X 200 Y 500 Font "Lux/26" Skin "Woo0t" Image Connected Color 00ff00