rebol tcp/udp differences between Linux and Windows (resend)
[1/7] from: andy::flyingcat::com at: 24-Sep-2002 13:51
(sorry if this is a duplicate, but I didn't see it show up on the list)
Hi:
I'm playing around with the same scripts on both Windows and Linux. (I
develop on Linux, and send out the scripts for people to look at under
Windows)
I've noticed a confusing difference between the two: basically, a
simple script works as I expect under Windows, but doesn't under Linux.
On Linux I get the "rotating, flashing R logo" in the lower right corner
of the main view of the netproblem.r window. On Windows I don't. I'm
not quite sure why I'm seeing the R logo at all. Can someone help
explain this behavior ?
I obviously don't want that R logo there :-)
Thanks,
Andy
Here's the netproblem.r script, and the "simulated remote" script which
I use to test things.
-----
REBOL [ ]
menu_key: func [input_line] [
print ["input line: " input_line]
either (stat = none) [
main/offset: 0x0
stat: "view"
view main
] [
if(input_line = "attention")[ print "attention!" stat:
none
unview main ]
]
]
main: layout/offset [
size 400x200
backcolor blue
style btn button font [colors: [254.254.254] ]
across
pad 0
return
at 20x100 btn 40x20 "Quit" with [effect: [1x0 tab ]] font [colors:
[100.100.100]] [ close fp quit ]
at 20x140 btn 40x20 "Halt" with [effect: [1x0 tab ]] font [colors:
[100.100.100]] [ halt ]
] 0x0
fp: open/lines udp://:5239
fp/awake: func [fp] [
print "awake"
command: to-string copy fp
command_block: parse command " "
user: command_block/1
menu_key command_block/2
true
]
insert tail system/ports/wait-list fp ; add my port to the system wait
queue
print "ready"
stat: none
forever [ wait none ]
close fp
----------------
Remote control
-----------------
REBOL [ ]
e: func [t] [
either error? try [
fp: open/write udp://localhost:5239 ][
err: "No Listener on port" ] [ insert fp rejoin [ "guest " t ]
close fp ]
]
std_size: 80x30
panel: layout [
backcolor gray
origin 0x00
space 1x1
pad 0x10
size 400x280
across
tabs 40
style button button with [ effect: [oval ] mycommand: none ] [ e
face/mycommand ]
button std_size "Menu" with [ mycommand: "attention" ]
tab tab
button std_size "Up" with [ mycommand: "cursor-up" ]
tab tab
button std_size "Power" with [ mycommand: "power" ]
return
button std_size "Zap left" with [ mycommand: "zap-left" ]
button std_size "Left" with [ mycommand: "cursor-left" ]
button std_size "Select" with [ mycommand: "select" ]
button std_size "Right" with [ mycommand: "cursor-right" ]
button std_size "Zap right" with [ mycommand: "zap-right" ]
return
tab
button std_size "Record" with [ mycommand: "record" ]
tab
button std_size "Down" with [ mycommand: "cursor-down" ]
tab
button std_size "Stop" with [ mycommand: "stop" ]
return
pad 0x10
button std_size "Vol +" with [ mycommand: "volume-up" ]
tab tab tab tab tab tab
button std_size "Channel +" with [ mycommand: "channel-up" ]
return
button std_size "Vol -" with [ mycommand: "volume-down" ]
tab
button 50x30 "1" with [ mycommand: "1" ]
button 50x30 "2" with [ mycommand: "2" ]
button 50x30 "3" with [ mycommand: "3" ]
tab tab
button std_size "Channel -" with [ mycommand: "channel-down" ]
return
button std_size "Mute" with [ mycommand: "mute" ]
pad 40x0
button 50x30 "4" with [ mycommand: "4" ]
button 50x30 "5" with [ mycommand: "5" ]
button 50x30 "6" with [ mycommand: "6" ]
tab tab
button std_size "Info" with [ mycommand: "information" ]
return pad 120x0
button 50x30 "7" with [ mycommand: "7" ]
button 50x30 "8" with [ mycommand: "8" ]
button 50x30 "9" with [ mycommand: "9" ]
return pad 120x0
button 50x30 "0" with [ mycommand: "0" ]
button 50x30 "*" with [ mycommand: "star" ]
button 50x30 "#" with [ mycommand: "pound" ]
tab tab
button std_size "Cancel" with [ mycommand: "cancel" ]
]
view/title panel "Remote Control"
[2/7] from: g:santilli:tiscalinet:it at: 24-Sep-2002 21:24
Hi Andy,
On Tuesday, September 24, 2002, 7:51:09 PM, you wrote:
AF> I obviously don't want that R logo there :-)
I don't think there's a way to avoid it... Anyone?
Regards,
Gabriele.
--
Gabriele Santilli <[g--santilli--tiscalinet--it]> -- REBOL Programmer
Amigan -- AGI L'Aquila -- REB: http://web.tiscali.it/rebol/index.r
[3/7] from: chris:langreiter at: 24-Sep-2002 21:59
AF>> I obviously don't want that R logo there :-)
> I don't think there's a way to avoid it... Anyone?
If not, this logo really isn't necessary - RT, please add an
option to disable it (I can remember trying and not finding a
possibility to do so).
-- Chris
[4/7] from: rotenca:telvia:it at: 24-Sep-2002 21:45
Hi, Andy
> I've noticed a confusing difference between the two: basically, a
> simple script works as I expect under Windows, but doesn't under Linux.
<<quoted lines omitted: 3>>
> explain this behavior ?
> I obviously don't want that R logo there :-)
It is a (bad) Rebol standard for network activity.
I see it on Windows 98. It cannot be deleted for what i know.
But, good new, i do not see it any more on the new 1.2.8 beta, under Window
98.
Perhaps you are using the new beta under Window and the standard View version
under Linux.
---
Ciao
Romano
[5/7] from: greggirwin:mindspring at: 24-Sep-2002 14:21
<< I don't think there's a way to avoid it... Anyone? >>
I was hoping someone would chime in with a solution. :) I've never been able
to avoid it showing up during network activity. Can't even put anything over
it to hide it. OK, I never went to *great* lengths to try. :)
--Gregg
[6/7] from: anton:lexicon at: 25-Sep-2002 18:29
That's good. I hadn't noticed that til now.
On windows 2k I see it in beta 1.2.5.3.1 and below,
but not in the latest beta 1.2.8.3.1 :)
Here's the quick code I used to test:
view layout [button [read http://google.com]]
Anton.
[7/7] from: andy:flyingcat at: 25-Sep-2002 20:44
That's good; I'm glad its not in the current beta release. I might
have to start using that for my prototype work.
Andy
Notes
- Quoted lines have been omitted from some messages.
View the message alone to see the lines that have been omitted