IUP

Check-in [6d25af7227]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Make mgllabel title argument optional
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6d25af7227a04edc8d40daab6601d1ed766e6649
User & Date: murphy 2015-05-01 17:08:22
Context
2015-05-01
17:13
Documentation update check-in: 4693332543 user: murphy tags: trunk
17:08
Make mgllabel title argument optional check-in: 6d25af7227 user: murphy tags: trunk
17:00
Racket bindings for the IupMglPlot controls check-in: 62b8ff14c4 user: murphy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to racket/mglplot.rkt.

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    "IupMglPlot" libiup-mglplot
    (_fun -> [handle : _ihandle]))))

(define mgllabel
  (make-constructor-procedure
   (get-ffi-obj
    "IupMglLabel" libiup-mglplot
    (_fun [title : _string/utf-8] -> [handle : _ihandle]))))

;; Plotting functions

(define call-with-mglplot
  (letrec ([mglplot-begin
            (get-ffi-obj
             "IupMglPlotBegin" libiup-mglplot







|







18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    "IupMglPlot" libiup-mglplot
    (_fun -> [handle : _ihandle]))))

(define mgllabel
  (make-constructor-procedure
   (get-ffi-obj
    "IupMglLabel" libiup-mglplot
    (_fun ([title #f]) :: [title : _string/utf-8] -> [handle : _ihandle]))))

;; Plotting functions

(define call-with-mglplot
  (letrec ([mglplot-begin
            (get-ffi-obj
             "IupMglPlotBegin" libiup-mglplot