November 2003 - Oberon - mailman3.inf.ethz.ch

Re (2): [Oberon] Feedback: WEbDAV via n-o Ver.2001
by shark＠gulfnet.sd64.bc.ca 26 Nov '03

26 Nov '03

Edgar, es> ... perhaps reading the documentation in the Bluebottle release of WebDAV also on my homepage. Many thanks for porting WebDAV to Oberon. Specially considering that you use Bluebottle and don't really need this port yourself. Your efforts are very generous and community spirited. Regards, Peter E. http://carnot.pathology.ubc.ca/

2 1

Re: [Oberon] Feedback: WEbDAV via n-o Ver.2001
by edgar＠edgarschwarz.de 25 Nov '03

25 Nov '03

easlab(a)absamail.co.za wrote: > Here's my first connect to WebDAV - from a spare 'safety' partition. > Connect to ISP and do normal stuff (to confirm ISP connection) then:- > 1. WebDAVClient.SetTraceLevel 2 ==no feedback None expected. Configuration command. Do you think something should go to System.Log ? > 2. DCT.SetHost "webdav.ethz.ch" ==no feedback None expected. Configuration command. Do you think something should go to System.Log ? > 3. Desktops.OpenDoc"http://webdav.ethz.ch/" == see Frame new since last time > 4. DCT.Propfind ^ <on /temp/WebDAV.Text etc. of Frame Received from 3.> > == can't see on new Frame: /temp/WebDAV.Text > try: select "/index.html" and do: DCT.Propfind ^ > == see System.Log trace !! > select: /ppp/ & do: DCT.Propfind ^ > == see System.Log trace !! I'm not perfectly sure what you did. But if you do a DCT.Propfind "/temp" "1" D:getcontentlength D:getlastmodified D:resourcetype ~ You should get the following System.Log trace (Some comments added): Logging info: - Request header {HTTP Client : PROPFIND http://webdav.ethz.ch/temp} {HTTP Client : Host: webdav.ethz.ch} {HTTP Client : Depth: 1} {HTTP Client : Authorization: Basic ...} {HTTP Client : Content-Type: text/xml; charset="UTF-8"} {HTTP Client : Content-Length: 178} {HTTP Client : <?xml version="1.0" encoding="UTF-8" standalone='yes'?> - Request body <D:propfind xmlns:D="DAV:"> <D:prop> <D:getcontentlength/> <D:getlastmodified/> <D:resourcetype/> </D:prop> </D:propfind> } - no.AosTCP.Mod Trace {Connection.Receive: size, min, read, res 4096 1 1 0} {Connection.Receive: size, min, read, res 4096 1 180 0} - Reply header {HTTP Client : BEGIN HTTP-Reply Header information (25.11.03 22:18:54 )} {HTTP Client : Status Code: 207 Reason: Multi-Status} {HTTP Client : Server: Aos HTTP Server/0.3} {HTTP Client : Date: Tue, 25 Nov 2003, 22:22:33 GMT} {HTTP Client : Content-Type: text/xml; charset="UTF-8"} {HTTP Client : Content-Length: -1} {HTTP Client : Transfer-Encoding: chunked} {HTTP Client : END HTTP-Reply Header information} {HTTP Client : } {HTTP Client : } {HTTP Client : HTTP/1.1 207} - no.AosTCP.Mod Trace {Connection.Receive: size, min, read, res 4096 1 1608 0} {Connection.Receive: size, min, read, res 4096 1 44 0} - Payload: "Directory listing" of http://webdav.ethz.ch/temp/ {HTTP Client : http://webdav.ethz.ch/temp/equal 231 Sat, 22 Nov 2003 23:11:00 GMT} {HTTP Client : http://webdav.ethz.ch/temp/WebDAVPlugin.Sun 60928 Sun, 05 Oct 2003 13:39:40 GMT} {HTTP Client : http://webdav.ethz.ch/temp/sub0 0 Wed, 04 Jun 2003 20:56:36 GMT} {HTTP Client : http://webdav.ethz.ch/temp/WebDAV.Text 11638 Wed, 12 Nov 2003 19:47:48 GMT} {HTTP Client : http://webdav.ethz.ch/temp/Data.Text 231 Sun, 23 Nov 2003 00:15:10 GMT} With DCT.Propfind "/temp/WebDAV.Text" "1" D:getcontentlength D:getlastmodified D:resourcetype "D:creator-displayname" "D:checked-in" "D:checked-out" ~ you should get the following payload: {HTTP Client : http://webdav.ethz.ch/temp/WebDAV.Text 11638 Wed, 12 Nov 2003 19:47:48 GMT} {HTTP Client : Edgar Schwarz checked-in /hist/0es.WebDAV.Text.4} SO DO YOU SEE THIS STUFF ? IF you get this far you can do WebDAVClient.SetTraceLevel 0 to get less logging noise. Also you could turn of the trace in no.AosTCP.Mod if you like and start RTFM meaning browse RFC 2518 WebDAV and RFC 3253 DeltaV. > Log off ppp. > 5. System.Directory XmlIn*.Log\d == > XmlIn0.Log 25.11.2003 20:28:30 440 > XmlIn1.Log 25.11.2003 20:29:57 3851 > 6. EditTools.OpenAscii XmlIn0.Log == see ?xml Frame > EditTools.OpenAscii XmlIn1.Log == see other ?xml Frame > 7. Now what ? > 8. Can n-o view/use the XML files ? The XML files are the response of the WebDAV server to the request. For the NO client they are parsed and the payload is shown on System.Log For Bluebottle there is DAVDocs which gives a nicer output. OTOH you can do what you like with the raw data given as XML. Just speak up how you would like to see the data presented. Also porting DAVDocs from Bluebottle shouldn't be too hard. > You don't tell which command makes the connection to the server. > eg. equivalent to: Desktops.OpenDoc"<server>" > What is the (possible) selection for DCT.Propfind ^ ? > Is "/temp/WebDAV.Text" 'wired into' your code ? DCT.Propfind is sortof System.Directory where you can tell which properties of a file or directory you want to see. > > > Q1. Which command tries to connect to the server ? > The most important question - you did not answer. > > > Q2. Does it normally get a confirmation response ? > > In HTTP 1.0 you connect anew with any command (E.g. PROPFIND) > > and then you will get a response hopefully. > What is 'PROPFIND' ? > I'm guessing this is a 'command' to be used AFTER connection, > analagous to 'Dir' AFTER a ftp connection has been made ? I tried to answer but perhaps assumed too much background knowledge (Meaning HTTP). In HTTP 1.0 there are commands like GET, PUT and POST. For every command your browser sends it connects to the server. After your browser gets his reply the server closes the connection. This is different from FTP. I'm careful to say 1.0 because HTTP 1.1 allows to keep a connection open to use it for followup commands. To keep my WebDAV client simple for now it closes the connection after each command. WebDAV commands like PROPFIND, VERSION-CONTROL, CHECKIN, ... are also HTTP commands so the same applies to them. That clear ? But finally again the question: Did you get the stuff in System.Log I showed above ? Then your client connected and you could go on doing real work after perhaps reading the documentation in the Bluebottle release of WebDAV also on my homepage. Regards, Edgar -- edgar(a)edgarschwarz.de "http://www.edgarschwarz.de" "http://www.edgar-schwarz.de/forum/oberon" Running Active Oberon Make it as simple as possible, but not simpler. Albert Einstein

1 0

Feedback: WEbDAV via n-o Ver.2001
by easlab＠absamail.co.za 25 Nov '03

25 Nov '03

Here's my first connect to WebDAV - from a spare 'safety' partition. Connect to ISP and do normal stuff (to confirm ISP connection) then:- 1. WebDAVClient.SetTraceLevel 2 ==no feedback 2. DCT.SetHost "webdav.ethz.ch" ==no feedback 3. Desktops.OpenDoc"http://webdav.ethz.ch/" == see Frame new since last time 4. DCT.Propfind ^ <on /temp/WebDAV.Text etc. of Frame Received from 3.> == can't see on new Frame: /temp/WebDAV.Text try: select "/index.html" and do: DCT.Propfind ^ == see System.Log trace !! select: /ppp/ & do: DCT.Propfind ^ == see System.Log trace !! Log off ppp. 5. System.Directory XmlIn*.Log\d == XmlIn0.Log 25.11.2003 20:28:30 440 XmlIn1.Log 25.11.2003 20:29:57 3851 6. EditTools.OpenAscii XmlIn0.Log == see ?xml Frame EditTools.OpenAscii XmlIn1.Log == see other ?xml Frame 7. Now what ? 8. Can n-o view/use the XML files ? == Chris Glur.

1 0

Re: n-o: How to dynamically insert ListGadgets ?
by easlab＠absamail.co.za 25 Nov '03

25 Nov '03

> easlab(a)absamail.co.za wrote: > > We know that > > Gadgets.Insert Lists.NewList ~ > > inserts a ListGadget AT THE CARET, but I can't see how to position it > > on the panel, absolutely or relative to it's 'called by button'. > > You probably should send a consume message. > Have a look at Chapter5.Text . > > Cheers, Edgar > > P.S. Warning: no easy reading :-) Jacques Eloff wrote: > I agree, not easy reading. Have a look at Example 16 (page 217) of the > Oberon Companion. > You first need to locate the container object by using the > ThisFrame procedure in the Gadgets module. > The example uses the mouse pointer coordinates > (Oberon.Pointer.X, Oberon.Pointer.Y), but you can use the > absolute coordinates of the container to obtain a reference to the > Frame that needs to get the Consume message -- OK. Chapter5.Text Example15 & Example16 both demonstrate the method(s) nicely, except when slightly modified (successive refinement) they appear to be bluff-ghosts. I've just added a line to re-set C.u, C.v to absolute values, instead of those returned by the 'pointer'. By incrementing the C.u, C.v values, I expect to see the button be inserted on a diagonal trajectory. Instead it only moves to the left. Ie. the Y coordinate is not changed. Similarly the extra extra statement added to Example16 to effect the Y coordinate has no effect ?! --------------- Compiler.Compile @ \s MODULE Example15; IMPORT Display, Gadgets, Oberon; PROCEDURE Drop*; VAR F: Display.Frame; u, v: INTEGER; C: Display.ConsumeMsg; BEGIN Gadgets.ThisFrame(Oberon.Pointer.X, Oberon.Pointer.Y, F, u, v); (* gets F, u, v *) C.F := F; C.id := Display.drop; C.obj := Gadgets.CreateObject("BasicGadgets.NewButton"); C.u := u; C.v := v; (* relative position in container *) C.u := 44; C.v := 44; Display.Broadcast(C) END Drop; END Example15. Example15.Drop == Insert Button @ F1:star ; modified to insert @ 44,44 --------------- MODULE Example16; IMPORT Display, Gadgets, Oberon, Objects; PROCEDURE Drop*; VAR F: Display.Frame; u, v: INTEGER; C: Display.ConsumeMsg; obj, obj1: Objects.Object; BEGIN Gadgets.ThisFrame(Oberon.Pointer.X, Oberon.Pointer.Y, F, u, v); (* get Display.Frame, u, v *) obj := Gadgets.CreateObject("BasicGadgets.NewCheckBox"); obj1 := Gadgets.CreateObject("BasicGadgets.NewButton"); (* obj1(Gadgets.Frame).X := obj(Gadgets.Frame).W + 10; position it *) obj1(Gadgets.Frame).Y := obj(Gadgets.Frame).H + 10; obj.slink := obj1; (* link gadgets together *) C.F := F; C.id := Display.drop; C.obj := obj; C.u := u; C.v := v; Display.Broadcast(C) END Drop; END Example16. Example16.Drop == Insert CheckBox + Button @ star The documentation tells me that "obj(Gadgets.Frame).W + 10" is to put the button to the right of the width of the CheckBox, instead of on top of it. So with my modified version I expect to see the button displaced verticaly w.r.t. the first inserted object. What am I doing wrong ? == Chris Glur.

1 0

Re: [Oberon] n-o: How to dynamically insert ListGadgets ?
by edgar＠edgarschwarz.de 24 Nov '03

24 Nov '03

easlab(a)absamail.co.za wrote: > We know that > Gadgets.Insert Lists.NewList ~ > inserts a ListGadget AT THE CARET, but I can't see how to position it > on the panel, absolutely or relative to it's 'called by button'. You probably should send a consume message. Have a look at Chapter5.Text. Cheers, Edgar P.S. Warning: no easy reading :-) -- edgar(a)edgarschwarz.de "http://www.edgarschwarz.de" "http://www.edgar-schwarz.de/forum/oberon" Running Active Oberon Make it as simple as possible, but not simpler. Albert Einstein

2 1

NO WebDAV Client 1.3.2 Bug report
by edgar＠edgarschwarz.de 23 Nov '03

23 Nov '03

Hi Chris, easlab(a)absamail.co.za wrote: > I putting WebDAV to it's own SYS partition, so I have to reboot > (a rare task for me) to test/tune it. Thanks for the honor :-) > compiling AosTCP > pos 1117 err 83 undefined record field > pos 1635 err 83 Ooops :-( You found the first bug. A small change forgotten to include in the release. Please do System.CopyFiles NetSystem.Mod => no.NetSystem.Mod and export Send and Receive in ConnectionDesc. Then compile and reboot (sorry) if it's already in use. > I notice, also you email often LineLen>80. > Don't you use the classical UserTrack & SystemTrack layout ? > Perhaps you don't use the VGA resolution, which gives about 80 chars > width with Oberon10.Scn.Fnt ? I use 1024x768 so I get more characters. Except when using Courier. Then I get about 80+. Regards, Edgar -- edgar(a)edgarschwarz.de "http://www.edgarschwarz.de" "http://www.edgar-schwarz.de/forum/oberon" Running Active Oberon Make it as simple as possible, but not simpler. Albert Einstein

1 0

n-o: How to dynamically insert ListGadgets ?
by easlab＠absamail.co.za 23 Nov '03

23 Nov '03

Hi, apart from popup Menues, I've never seen 'dynamically' appearing menues in n-o. I'm enthusiatic to construct a panel which eg. for the: [Add] button displays a suitably populated ListGadget at a predetermined location on the panel; [Copy] button displays TWO suitably populated ListGadgets at predetermined locations on the panel; etc. As each new 'operator' button is executed, obviously the previous ListGadget(s) are replaced by the new/appropriate one(s). We know that Gadgets.Insert Lists.NewList ~ inserts a ListGadget AT THE CARET, but I can't see how to position it on the panel, absolutely or relative to it's 'called by button'. I'm NOT enthusiatic to analyse the existing source code and would greatly appreciate info/advice to avoid having to do this. Thanks, == Chris Glur.

1 0

n-o: How to dynamically insert ListGadgets ?
by easlab＠absamail.co.za 23 Nov '03

23 Nov '03

Hi, apart from popup Menues, I've never seen 'dynamically' appearing menues in n-o. I'm enthusiatic to construct a panel which eg. for the: [Add] button displays a suitably populated ListGadget at a predetermined location on the panel; [Copy] button displays TWO suitably populated ListGadgets at predetermined locations on the panel; etc. As each new 'operator' button is executed, obviously the previous ListGadget(s) are replaced by the new/appropriate one(s). We know that Gadgets.Insert Lists.NewList ~ inserts a ListGadget AT THE CARET, but I can't see how to position it on the panel, absolutely or relative to it's 'called by button'. I'm NOT enthusiatic to analyse the existing source code and would greatly appreciate info/advice to avoid having to do this. Thanks, == Chris Glur.

1 0

ANN: NO WebDAV Client 1.3.2
by edgar＠edgarschwarz.de 23 Nov '03

23 Nov '03

Hi, I finally did it. I made the NO WebDAV client ! So no simple excuses anymore not to try versioning with Oberon :-) Have a look at my homepage and get "http://www.edgarschwarz.de/oberon/NODAV.1.3.2.Zip". Have fun. Edgar -- edgar(a)edgarschwarz.de "http://www.edgarschwarz.de" "http://www.edgar-schwarz.de/forum/oberon" Running Active Oberon Make it as simple as possible, but not simpler. Albert Einstein

1 0

Re: V4-folding, Version Elements / Literate Programming
by easlab＠absamail.co.za 21 Nov '03

21 Nov '03

Treutwein Bernhard wrote: > See: http://www.literateprogramming.com/ > and even more in the Oberon world:=20 > Reverse Literate Programming=20 > by Markus Knasm=FCller (http://www.literateprogramming.com/rlp.pdf > or http://www.ssw.uni-linz.ac.at/Research/Projects/RevLitProg/ > and (sorrily the author vaporized and it is very Mac > specific) "Folds are not enough" by Mayson G. Lancaster > http://www.oberon.ch/services/odf/tribune/trib3/Outliner.html > > and the extension to V4 fold-elements called=20 > version elements (search for "Version elements" > on http://www.ssw.uni-linz.ac.at/Services/Downloads/#oberon This is very exciting stuff. Manual code entry like we did it in the 70's is punishment for typists. Watson is a very succesful tool in the right direction. My newly discovered outlines-gadgets seems to offer great improvement possibilities. FTP.Open ftp.ssw.uni-linz.ac.at/ = connecting failed at present. Perhaps it will work tomorrow. Hopefully we can leaverage some of the work from V4 to use in S3 ? Thanks, == Chris Glur. PS. my oberon(a)inf.ethz.ch postings are going off the rails. I don't know what has been posted and what is still pending. Did I post that : > The mailing-list (archives) via > http://www.mail.inf.ethz.ch/lists/listinfo/oberon > has a 'recursive loop' via:-- > > Moved Permanently > > The document has moved here. > > > Apache/1.3.26 Server at www.lists.inf.ethz.ch Port 80 > http://www.lists.inf.ethz.ch/

2 1