suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

check set-alpha argument between 0 and 1

Browse Source 
svn: r7442
This commit is contained in:
Matthew Flatt 2007-10-06 15:42:39 +00:00
parent c9e87fe9ab
commit 8a7f3947bd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/wxs/wxs_dc.cxx
View File

@ -1167,7 +1167,7 @@ static Scheme_Object *os_wxDCSetAlpha(int n, Scheme_Object *p[])
VAR_STACK_PUSH(0, p);
x0 = WITH_VAR_STACK(objscheme_unbundle_double(p[POFFSET+0], "set-alpha in dc<%>"));
x0 = WITH_VAR_STACK(objscheme_unbundle_double_in(p[POFFSET+0], 0, 1, "set-alpha in dc<%>"));
WITH_VAR_STACK(((wxDC *)((Scheme_Class_Object *)p[0])->primdata)->SetAlpha(x0));

2
src/mred/wxs/wxs_dc.xc
View File

@ -720,7 +720,7 @@ START_XFORM_SKIP;
@ "glyph-exists?" : bool GlyphAvailable(mzchar,wxFont^=NULL) : : /CheckOk[METHODNAME("dc<%>","glyph-exists?")]
@ "set-alpha" : void SetAlpha(double);
@ "set-alpha" : void SetAlpha(rdouble[0|1]);
@ "get-alpha" : double GetAlpha();
@END