IUP

Check-in [97e8ed5dd3]
Login

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: 97e8ed5dd3fe2266e0f941d10b9701ebf0802ff6
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
Unified Diff Ignore Whitespace Patch
Changes to racket/info.rkt.
1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16
17
18
19
20
#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.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")










|


>







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)