March 2007 - Oberon - mailman3.inf.ethz.ch

Re. BlueBottle on xbox ?
by Chris Glur 25 Mar '07

25 Mar '07

Bernhard Treutwein wrote: > Anyone tried to run BlueBottle on a Xbox? > > Since the Xbox is essentially a PC, it should be feasible ... > > see: http://www.xbox-linux.org/wiki/Getting_Started#3 Good, N-O's browser can read the wiki. Can BlueBottle's browser write to it ? } The Xbox comes in a nice, portable form-factor, is smaller and lighter } than most PCs, and is quieter. So if it's got no fan, it uses much less power too ? But it still practically can't be battery driven ? } The best feature is that any television can serve as a monitor .. What resolution does the TV give, ie. char-len for full width ? You'd still be dependant on M$, who would pull the carpet once you started relying on it. That it's half the price of new PCs is irrelevant, since if you avoid M$ bloat you can use FREE trashed PC's. How many ample PCs will be thrown out now that Vista is released ? Or perhaps Xbox's [apparent] advanced video/sound is an attraction ? == Chris Glur.

1 0

PS3
by Søren Renner 24 Mar '07

24 Mar '07

Attention Sony! If someone ports Bluebottle to the PS3, I will buy one right away!

2 1

BlueBottle on xbox ?
by Bernhard Treutwein 24 Mar '07

24 Mar '07

Anyone tried to run BlueBottle on a Xbox? Since the Xbox is essentially a PC, it should be feasible ... see: http://www.xbox-linux.org/wiki/Getting_Started#3 regards Bernhard

1 0

SMTP/SSH tunnel
by Easthope 22 Mar '07

22 Mar '07

Folk, I'm still trying to make the SMTP/SSH tunnel work. In SSH.Tool this is one of Guenter's examples. SSH.StartForwarding fld@relayhost 1025:mailhost:25 ~ In this case, would Mail.Mod be recompiled with DefSMTPPort* = 25? If so, what is the point other than consistency with the tunnel port? Thanks, ... Peter E.

2 1

WMDialogs.Mod
by Yaroslav Romanchenko 21 Mar '07

21 Mar '07

Folk, I need to extend base object WMDialogs.Dialog and have to copy into my module such procedures as InstantiateButton, FindComponent, FindButton and WireError method because they not exported from module WMDialogs. And will be useful to have ability to read width an height of dialog window for more precise positioning (in center of view, for example). Example of dialog: LoginDlg = OBJECT (WMDialogs.Dialog) VAR editLogin, editPassword: WMEditors.Editor; buttonPanel: WMStandardComponents.Panel; server, ok, abort: WMStandardComponents.Button; content: WMComponents.VisualComponent; width-, height-: LONGINT; serverString-: ARRAY 256 OF CHAR; PROCEDURE &New (serverStr: ARRAY OF CHAR); BEGIN (*serverString := serverStr;*) COPY (serverStr, serverString); errors := FALSE; CreateDialog; WireDialog; width := content.bounds.GetWidth (); height := content.bounds.GetHeight (); Init (width, height, FALSE); SetContent (content); IF editLogin # NIL THEN editLogin.SetFocus; editLogin.SetFocus END END New; PROCEDURE GetServer*(sender, data:PTR); VAR res: LONGINT; BEGIN res := QueryString ("Server", serverString); END GetServer; PROCEDURE CreateDialog; VAR panel: WMStandardComponents.Panel; labelLogin, labelPassword: WMStandardComponents.Label; manager: WM.WindowManager; windowStyle: WM.WindowStyle; CONST width = 12 * 18; height = 12 * 9; BWidth = 12 * 5; BHeight = 20; BEGIN manager := WM.GetDefaultManager (); windowStyle := manager.GetStyle (); NEW (panel); panel.bounds.SetExtents (width, height); panel.fillColor.Set (windowStyle.bgColor); panel.takesFocus.Set (FALSE); NEW (labelLogin); labelLogin.bounds.Set (WMRectangles.MakeRect (12, 12, 12 * 6, 12 + 20)); labelLogin.SetCaption ("UIN:"); labelLogin.alignH.Set (WMGraphics.AlignRight); panel.AddContent (labelLogin); NEW (labelPassword); labelPassword.bounds.Set (WMRectangles.MakeRect (12, 12 * 4, 12 * 6, 12 * 4 + 20)); labelPassword.SetCaption ("Password:"); labelPassword.alignH.Set (WMGraphics.AlignRight); panel.AddContent (labelPassword); NEW (editLogin); editLogin.uid.SetAOC ("Login"); editLogin.tv.defaultTextColor.Set (windowStyle.fgColor); editLogin.tv.defaultTextBgColor.Set (windowStyle.bgColor); editLogin.bounds.Set(WMRectangles.MakeRect (12 * 7, 12, width - 12, 12 + 20)); panel.AddContent (editLogin); editLogin.multiLine.Set (FALSE); editLogin.tv.borders.Set (WMRectangles.MakeRect(5, 2, 3, 2)); editLogin.tv.showBorder.Set (TRUE); NEW (editPassword); editPassword.uid.SetAOC ("Password"); editPassword.tv.defaultTextColor.Set (windowStyle.fgColor); editPassword.tv.defaultTextBgColor.Set (windowStyle.bgColor); editPassword.tv.isPassword.Set (TRUE); editPassword.bounds.Set (WMRectangles.MakeRect (12 * 7, 12 * 4, width - 12, 12 * 4 + 20)); panel.AddContent (editPassword); editPassword.multiLine.Set (FALSE); editPassword.tv.borders.Set (WMRectangles.MakeRect(5, 2, 3, 2)); editPassword.tv.showBorder.Set (TRUE); NEW (buttonPanel); buttonPanel.bounds.SetHeight (BHeight); buttonPanel.alignment.Set (WMComponents.AlignBottom); panel.AddContent (buttonPanel); abort := InstantiateButton (WMDialogs.AbortBtnId, "Abort"); buttonPanel.AddContent (abort); abort.bounds.SetWidth (BWidth); abort.alignment.Set (WMComponents.AlignRight); ok := InstantiateButton (WMDialogs.OkBtnId, "Ok"); buttonPanel.AddContent (ok); ok.bounds.SetWidth (BWidth); ok.alignment.Set (WMComponents.AlignRight); NEW (server); server.caption.SetAOC ("Server..."); buttonPanel.AddContent (server); server.bounds.SetWidth (BWidth); server.alignment.Set (WMComponents.AlignRight); content := panel END CreateDialog; PROCEDURE WireDialog; VAR c: WMComponents.Component; BEGIN c := FindComponent (content, "Login"); IF (c # NIL) & (c IS WMEditors.Editor) THEN editLogin := c (WMEditors.Editor) END; IF editLogin = NIL THEN WireError ("LoginDlg", "Required component 'Login' not found."); RETURN END; c := FindComponent (content, "Password"); IF (c # NIL) & (c IS WMEditors.Editor) THEN editPassword := c (WMEditors.Editor) END; IF editPassword = NIL THEN WireError ("LoginDlg", "Required component 'Password' not found."); RETURN END; ok := FindButton (content, WMDialogs.OkBtnId); abort := FindButton (content, WMDialogs.AbortBtnId); IF ok = NIL THEN WireError ("LoginDlg", "Required component 'Ok' not found."); RETURN END; IF abort = NIL THEN WireError ("LoginDlg", "Required component 'Abort' not found."); RETURN END; ok.onClick.Add (Ok); abort.onClick.Add (Abort); editLogin.onEnter.Add (Ok); editPassword.onEnter.Add (Ok); server.onClick.Add (GetServer); END WireDialog; PROCEDURE WireError(detectedBy, msg: ARRAY OF CHAR); BEGIN errors := TRUE; Out.String ("WMDialogs - Wiring error : "); Out.String(detectedBy); Out.String(" - "); Out.String(msg); Out.Ln; END WireError; END LoginDlg; PROCEDURE QueryLogin*(caption: ARRAY OF CHAR; VAR server, login, password: ARRAY OF CHAR) : LONGINT; VAR ld: LoginDlg; vp: WM.ViewPort; BEGIN NEW(ld, server); IF ~ld.errors THEN ld.SetTitle(Utilities.NewString(caption)); ld.editLogin.SetAsString(login); ld.editLogin.tv.SelectAll(); vp := WM.GetDefaultView (); ld.x := (ENTIER (vp.range.r - vp.range.l) - ld.width) DIV 2; ld.y := (ENTIER (vp.range.b - vp.range.t) - ld.height) DIV 2; ld.Show; IF ld.result = WMDialogs.ResOk THEN ld.editLogin.GetAsString(login); ld.editPassword.GetAsString(password); (*server := ld.serverString;*) COPY (ld.serverString, server); END; RETURN ld.result ELSE RETURN WMDialogs.ResDialogFailure END END QueryLogin; -- Cheers, SAGE http://sage.h15.ru/

2 3

Re (2): [Oberon] Re^2: RX.Tool scope limited to 1 line ?
by peasthope＠cablelan.net 20 Mar '07

20 Mar '07

At Tue, 20 Mar 2007 16:49:40 +0100 Gérard Meunier wrote, > My last little improvements were made under BlackBox (see Helmut Zinn's site). But the latter example works easily under Oberon: in Regul.Panel, ... Thanks Gérard, ... Peter E. Desktops.OpenDoc http://carnot.pathology.ubc.ca/

1 0

Re^2: RX.Tool scope limited to 1 line ?
by Easthope 20 Mar '07

20 Mar '07

Chris, cg> Can this utility eg. find and remove all such 4 lines from a marked frame: <anyString> <space> "cat" <anyString> <anyString for line 2> <anyString for line 3> <anyString> <space> "dog" ? Yes, I expect that Regul can do it ... but I've never tried a similar problem. Incidently, if the literals are enclosed with " ", the names needn't be enclosed with < >. Conversely, if the names are in < >, then the literals, except for the blank, needn't be enclosed. So these are two simpler notations with the same meaning. String " cat" String EOL String EOL String EOL String " dog" <String> " " cat <String> <EOL> <String> <EOL> <String> <EOL> <String> " " dog Gerard has made improvements since the release of Babel/Regul which I used last. Would be best to get the improvements but I don't know the release status. Regards, ... Peter E.

2 1

Boot Manager tangent
by Aubrey.McIntosh＠Alumni.UTexas.Net 19 Mar '07

19 Mar '07

In the BSD Unix distribution, the boot block switches to protected mode, then back, so that a boot image larger than 640k can be loaded. I wonder if anyone has that source online? I have taken down my BSD box and don't want to do an install just to find this source. -- -- Aubrey McIntosh, Ph.D.

1 0

Re: Oberon Digest, Vol 42, Issue 12
by Søren Renner 19 Mar '07

19 Mar '07

"When installing the Bluebottle Boot Manager on a system with Windows Vista installed, it breaks the Boot Manager of Windows Vista. Even worse: After automatic repair (Vista CD), the Vista Boot Manager works again, but Windows Vista does not." Is this properly understood as a bug or a feature?

1 0

Internet Real Time Transport Protocol RTP
by Patrick.Hunziker＠unibas.ch 19 Mar '07

19 Mar '07

RTP (RFC 3550)(and RTCP) is an internet protocol built on the UDP protocol. Only the latter is in the distribution: Does somebody know about an RTP (and RTCP) Oberon implementation ? Greetings Patrick ---------------------------------------------------------------- This message was sent using IMP, the Internet Messaging Program.

3 2