April 2004 - Oberon - mailman3.inf.ethz.ch

RE: Gadgets with long strings
by Patrick.Hunziker＠unibas.ch 21 Apr '04

21 Apr '04

a longer string is a possibility. Texts.Text is a system supplied 'long string' entity; it is also useful if you want to have more functionality not available in a 64Byte string, like text formatting/coloring, and all add-ons (storing,loading,searching etc) are already implemented. I suspect that if you use a Texts.Text as Model Gadget for your visualisation, less specialisation is necessary and more interaction with standard gadgets features is possible, compared to custom-implemented long strings. Greetings Patrick ---- John Stout wrote: ... I have thought a bit more about it and think that since I want to attach a model gadget to a panel I will extend JM's Reminder system for the basic idea, but, and this is the crucial point I think I missed, extend the normal Gadgets.AttrMsg to allow longer strings. This will mean, I think, that Columbus can no longer read/write the SQL statement (unless it is 63 or fewer characters in length), but then I might as well have a specialist panel for handling my Data* models and views. Can you, or anyone else, see a problem with this? ------------------------------------------------- This mail sent through IMP: http://horde.org/imp/

1 0

RE: Gadgets with long strings
by John Stout 19 Apr '04

19 Apr '04

Dear Patrick Thanks for your examples. I have thought a bit more about it and think that since I want to attach a model gadget to a panel I will extend JM's Reminder system for the basic idea, but, and this is the crucial point I think I missed, extend the normal Gadgets.AttrMsg to allow longer strings. This will mean, I think, that Columbus can no longer read/write the SQL statement (unless it is 63 or fewer characters in length), but then I might as well have a specialist panel for handling my Data* models and views. Can you, or anyone else, see a problem with this? John Stout --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com) Version: 6.0.657 / Virus Database: 422 - Release Date: 13/04/2004

1 0

Re: Gadgets with long strings
by Patrick.Hunziker＠unibas.ch 19 Apr '04

19 Apr '04

One way would be to extend a TextFields.TextField for your purpose. Fortunately, Emil Zeller has already done this in a similar way in PasswordFields.Mod : Use that Module as a skeleton, rename it, look at TYPE FrameDesc* and PROCEDURE Handler*() and adapt just those fields/functionalities that are suited to your needs. Alternatively, use a TextGadget.Frame, eliminate the scrollbar and the automatic scrolling (by setting the appropriate flags in .state or .state0 fields), and you have a text displaying gadget with arbitrary length text. Here, you can not access a command string a simple as above, but you would need to parse the text for the command. This means less implementation of Handlers, but a little more implementation on retrieval of the text. Another simple possibility would be to use the TextGadgets.Caption , because this is also a text displaying gadgets with a full Texts.Text as its "hidden" model, that is capable of displaying longer texts than a TextField. A forth possibility of having multiple Textfields displaying multiple parts of your command sequence would be simplest, but probably not adequate. My recommendation: remain in the Gadgets World for Gadgets extension, and use Oberon-1 for such endeavors because currently, Gadgets work on any Oberon compiler. Greetings Patrick John Stout wrote: >I would like to implement a model gadget for the connection/command, which >could then be attached to a panel document and automatically connect to the >ODBC source and open a cursor on the specified command, but the Gadgets >system uses strings which are 64 (63 plus terminator) long, which is not >long enough for arbitrary SQL statements. Does anyone have any suggestions >as to how I can implement this? ------------------------------------------------- This mail sent through IMP: http://horde.org/imp/

1 0

VESA code removed in Bluebottle?
by Stefan Salewski 19 Apr '04

19 Apr '04

Hello, in NO there was a module DisplayLinear.mod with a lot of VESA-Code for selection of diplay properties. In current stable release of Bluebottle there is module AosDiplayLinear.mod without any VESA-Code, and I cant find another module containing some VESA stuff. Seem that currerntly only hardcoded display-mode 1024x768 at 60 Hz is supportet. Does someone know the reason why VESA-Code is removed? Best regards Stefan Salewski

4 8

Re: [Oberon] Gadgets with long strings
by edgar＠edgarschwarz.de 17 Apr '04

17 Apr '04

"John Stout" <jstout(a)cusp.co.uk> wrote: > but the Gadgets > system uses strings which are 64 (63 plus terminator) long, which is not > long enough for arbitrary SQL statements. Does anyone have any suggestions > as to how I can implement this? Once upon a time I also had a problem with these too short strings and I created a workaround for my purposes. Perhaps I can look it up tomorrow. Too late now. If you are lucky this is also something which works for your problem. Cheers, Edgar

1 0

Gadgets with long strings
by John Stout 17 Apr '04

17 Apr '04

Background I am working on a number of ODBC extensions which are modelled on the idea of the Visual Basic DataEnvironment, which contains DataConnections (which connect to a particular database) which in turn contain DataCommands which link to a particular database table or query. Our sixth form students currently use VB for their coursework and I think I can only get Oberon accepted as an alternative if I can duplicate VB's ease of use with databases. I have the DataEnvironment, DataConnection and DataCommand working, and have implemented DataTextField and DataCaption gadgets which are like a normal TextField and Caption gadgets but have a string attribute expressed as connectionName.commandName.fieldName, e.g. PublicData.Attendance.Description. When the cursor held by a DataCommand alters position it broadcasts an update message to all gadgets with the value of connectionName.commandName, e.g. PublicData.Attendance, and the Data* gadgets can then retrieve and display the current field value. Question I would like to implement a model gadget for the connection/command, which could then be attached to a panel document and automatically connect to the ODBC source and open a cursor on the specified command, but the Gadgets system uses strings which are 64 (63 plus terminator) long, which is not long enough for arbitrary SQL statements. Does anyone have any suggestions as to how I can implement this? I wonder if I should be using proper OBJECTs instead (I'm intending this for use with WinAos) but can't see how to integrate these with the Gadgets system. I haven’t done any programming under Aos/WinAos but if this is a solution then I'd consider it. John Stout --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com) Version: 6.0.657 / Virus Database: 422 - Release Date: 13/04/2004

1 0

UDP
by Aubrey McIntosh 12 Apr '04

12 Apr '04

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 I wish to use UDP to interact with a custom piece of hardware. My first preference is to use BlackBox. If that will not work, I will decide between writing some C code that runs on windows, or else trying to do it on Native Oberon or BlueBottle. Has anyone used UDP on BlackBox? -----BEGIN PGP SIGNATURE----- Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com> iQA/AwUBQHrxrwKlSw8yssF7EQJZLgCgm/Dv/GpvU+U7VnD2SsIE6xkL9w0An0gH v7fVHR31TYIjX1SnlOqhZPwV =e9ah -----END PGP SIGNATURE-----

1 0

VESA code removed in Bluebottle?
by Paul Reed 06 Apr '04

06 Apr '04

> Date: Fri, 2 Apr 2004 16:42:56 +0200 > From: Stefan Salewski <Salewski(a)PHYSnet.Uni-Hamburg.de> > Yes, screen-resolution up to 1280x1024 can be selected in a simple way > using code-numbers. I think this was the way before VESA 3.0, and it > gives default refresh rates, which is only 60 Hz for my Matrox G450. > Vesa 3.0 allows even higher screen resolution and arbitrary refresh > rate, but programming this is much more complicated. In the > VESA-Manual strange terms like "FAR-POINTER", NEAR-POUNTER", "REAL > MODE", "PROTECTED MODE" occur. So extending VESA-Code is not a simple > task. But there was module DisplayLinear.mod in last release of > Native-Oberon with much VESA-3.0-Code (if I remember correctly). > Maybe we can port this to BlueBotttle. > > If I should decide to go on playing with Bluebottle, then I have to do > something against the 60 Hz flicker of my CRT. > > The fastest and simplest solution is to use a 1280x1024 TFT. We have > a few here in the institute, maybe I can exange my CRT. > > Having a working VESA-3.0-Display-Driver seems to be very important > for BlueBottle, but I am not sure if I will be able to do it. Not too > much time, not much knowledge about dirty low level 80x86 > hardware-programming, and no one like Pieter Muller behind me. Stefan, I can probably help with your hardware programming and VESA issues (I've implemented a banked VESA 1.x driver for my own version of the Oberon system) but I have a couple of comments before we start: 1. I've actually had the OPPOSITE problem with Linux (Knoppix) and my TFT, which only does 60Hz vsync. The default refresh rate for my video card in 1280x1024 seems to be 85Hz (it's an SiS chip), and my TFT goes blank, saying out of range. Aaargh! 2. Are you saying that the Native DisplayLinear.Mod works correctly on your system? 3. (Not for Stefan!) Why was the display driver changed anyway? Pieter seemed to keep the drivers in step between Aos and Native, for exactly this kind of reason, I presume. :) Paul Reed

2 1

Re (4): [Oberon] n-o trap analysis confuses me
by edgar＠edgarschwarz.de 01 Apr '04

01 Apr '04

Hi Chris, > Happily the trap is now back:- > TRAP -14 NIL reference ( 00000014H ) (PC Native 11.10.2001) > HTMLImages.ImgIcon PC = 5551 > key = 2040 > keyAttr = "IMGKey" > HTMLImages.IMG PC = 7583 Some code: > obj := Gadgets.FindPublicObj("Icons.Picture"); Probably original error location. > Links.GetLink(obj, "Model", obj); Doesn't references 'obj'. > C.id := Objects.shallow; Objects.Stamp(C); <-- var-par > C.dlink := NIL; C.obj := NIL; obj.handle(obj, C); ^ error position: obj = NIL Cheers, Edgar

1 0

Re (4): [Oberon] n-o trap analysis confuses me
by shark＠gulfnet.sd64.bc.ca 01 Apr '04

01 Apr '04

Edgar, es> ... when you try to access it BANG: Trap -14 ! I hope this isn't too detailed. But you asked for it :-) Very helpful, thanks. I learned about records and pointers and nil pointers years ago with modula 2. This small case study is a good opportunity to integrate the elementary ideas with trap analysis. Regards, Peter E. http://carnot.pathology.ubc.ca/

1 0