diff options
author | Alessio Treglia <alessio@debian.org> | 2010-10-27 00:50:23 +0200 |
---|---|---|
committer | Alessio Treglia <alessio@debian.org> | 2010-10-27 00:50:23 +0200 |
commit | 36cf8384e5699cda3f1ca607753fe4d4a8515b01 (patch) | |
tree | d088c80da01f71ae38378f8893899df62fe8ed64 /examp.fs | |
parent | 21c0acaad1b1fa3d17c911ff7e4ad05d63310195 (diff) |
Imported Upstream version 11.10
Diffstat (limited to 'examp.fs')
-rw-r--r-- | examp.fs | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -3,7 +3,7 @@ \ Author: Michael Scholz <mi-scholz@users.sourceforge.net> \ Created: Tue Jul 05 13:09:37 CEST 2005 -\ Changed: Thu Jan 07 00:33:30 CET 2010 +\ Changed: Wed Aug 18 19:07:45 CEST 2010 \ Commentary: \ @@ -127,6 +127,8 @@ <'> noop alias hide-widget \ ( a -- b ) <'> noop alias widget-size \ ( a -- b ) : set-widget-size ( a b -- c ) drop ; + : window-property ( a b -- c ) drop ; + : set-window-property ( a b c -- d ) 2drop ; [then] \ #( #( snd0 chn0 ) #( snd0 chn1 ) ... ) @@ -493,11 +495,10 @@ y0 and y1 are ignored." #( 44100 48000 32000 0 ) srate-index array-ref mpegnum / { srate } $" %s: %s Hz, %s, MPEG-%s" #( mpgfile srate chans 1 = if "mono" else "stereo" then mpeg-layer ) clm-message - $" mpg123 -s %s > %s" #( mpgfile rawfile ) string-format file-system { stat } - stat if + $" mpg123 -s %s > %s" #( mpgfile rawfile ) string-format file-system if rawfile chans srate little-endian? if mus-lshort else mus-bshort then open-raw-sound drop else - $" system in %s: %s" #( get-func-name stat ) clm-message + $" system in %s: %s" #( get-func-name exit-status ) clm-message then then ; |