Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Racket binding for IUP Scintilla control |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
97e8ed5dd3fe2266e0f941d10b9701eb |
User & Date: | murphy 2015-05-01 13:17:58.032 |
Context
2015-05-01
| ||
13:52 | CHICKEN bindings for the IupPlot control check-in: 7433020851 user: murphy tags: trunk | |
13:17 | Racket binding for IUP Scintilla control check-in: 97e8ed5dd3 user: murphy tags: trunk | |
12:23 | CHICKEN binding for IUP Scintilla control check-in: e83db8b5c4 user: murphy tags: trunk | |
Changes
Changes to racket/info.rkt.
1 2 3 4 5 6 7 8 9 10 | #lang setup/infotab (define name "IUP") (define blurb '("Bindings to the IUP GUI library")) (define categories '(ui)) (define repositories '("4.x")) (define version | | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | #lang setup/infotab (define name "IUP") (define blurb '("Bindings to the IUP GUI library")) (define categories '(ui)) (define repositories '("4.x")) (define version "1.3.0") (define release-notes '((dl (dt "1.3.0") (dd "Additional complex controls") (dt "1.2.0") (dd "Additional default dialogs") (dt "1.0.1") (dd "Windows linkage tweaks") (dt "1.0.0") (dd "Initial release")))) (define primary-file "main.rkt") (define homepage "http://www.chust.org/fossils/iup") |
Added racket/scintilla.rkt.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | #lang racket (require ffi/unsafe "base.rkt") (define libiup-scintilla (case (system-type 'os) [(windows) (ffi-lib "iup_scintilla")] [else (ffi-lib "libiup_scintilla")])) ;; Scintilla text editor control (define scintilla (make-constructor-procedure (get-ffi-obj "IupScintilla" libiup-scintilla (_fun -> [handle : _ihandle])))) ;; Library setup (letrec ([open (get-ffi-obj "IupScintillaOpen" libiup-scintilla (_fun -> _void))]) (open)) (provide scintilla) |