Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Racket binding for IUP Scintilla control |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
97e8ed5dd3fe2266e0f941d10b9701eb |
| User & Date: | murphy 2015-05-01 13:17:58 |
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.
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
(define blurb
'("Bindings to the IUP GUI library"))
(define categories
'(ui))
(define repositories
'("4.x"))
(define version
"1.2.0")
(define release-notes
'((dl
(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")
|
| > |
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
(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) |