Freebell-Status

Hi! I have now implemented more than 50% of all action! and native! values. Freebell runs (slow) on a Psion PDAs, too. You can see the status of the project at: http://proton.cl-ki.uni-osnabrueck.de/Freebell/status.html and try Freebell/Core 0.05 at http://proton.cl-ki.uni-osnabrueck.de/Freebell/ I implemented a way to handle java-object!'s with REBOL. Try "do demo" in the Freebell-Input-Field. Demo is defined: demo: func [/local win mem tmp] [ mem: [] if not empty? mem [ win: first mem win/setVisible [no] clear mem ] insert mem win: make java-object! "java.awt.Frame" ["Demo"] win/setLayout [make java-object! "java.awt.BorderLayout" []] win/add [make java-object! "java.awt.Label" [ "Freebell can open windows!" ] "North" ] win/add [tmp: make java-object! "java.awt.Button" ["Ok"] "Center"] tmp/addActionListener [make java-object! "Freebell.ActionListener" [ to java-object! [win/setVisible [no]] ]] win/setSize [300 100] win/setVisible [yes] () ] You can create a java-object! using make java-object! "path.package.Class" [arguments for constructor] (the block of Arguments is reduced) or make java-object! "path.package.Class" none (to get the Class-Object itself for invoking static methods) or to java-object! value (to get the FreebellValue-Object) You can load a java-object! to get a REBOL-Representation of it: load make java-object! "java.lang.String" ["Hello"] == "Hello" Having a java-object! you can use a path on it. a: make java-object! "java.lang.StringBuffer" ["Hello"] load a/append/toString ["!!"] [] == "Hello!!" As you can see, this works like: a: make java-object! "java.lang.StringBuffer" ["Hello"] b: a/append ["!!"] load b/toString [] == "Hello!!" Have fun, Frank

Frank (and others working on spec'ing REBOL), If you have any tests that you've written to validate the results of your implementation, please forward them to [feedback--rebol--com]. We're always looking for more good tests to add to our test suite. Thanks in advance for your efforts to help make REBOL better. -Bo On 27-Feb-2001/16:48:20+1:00, [fsievert--uos--de] wrote:

>Hi! >I have now implemented more than 50% of all action! and native! values. >[rebol-request--rebol--com] with "unsubscribe" in the >subject, without the quotes.