Change the wh to minwh. They used to be synonyms, but now only minwh works.
On Aug 30, 2013, at 2:55 PM, "Tom Arneson" <[email protected]> wrote: > After installing the new binaries: > > JVERSION > Engine: j701/2011-01-10/11:25 > Library: 8.01.012 > Qt IDE: 1.0.18/4.8.5 > Platform: Win 64 > Installer: j801 beta install > InstallPath: c:/users/tom arneson/j801a_win64/j64-801 > > > One of my applications won't run. The script follows: > > NB. ========================================================= > Note 0 > module: pedometer.ijs > purpose: to send daily pedometer readings to a data file > later additions will do anyalisis of theis data > > 2013-03-15 convert to J801 & Qt > ) > NB. ========================================================= > > require 'droidwd wdclass' > require^:(-.IFJ6) ::0: 'gtkwd' > coinsert 'wdbase' > > NB. ========================================================= > > FILENAME=: '~Projects/data/pedometer/pedometer.txt' > > NB. --------------------------------------------------------- > readfile=: 3 : 0 > 0".[;._2 (fread FILENAME)-.CR > ) > > NB. --------------------------------------------------------- > nextdate=: 3 : 0 > todate >:todayno 3{._1{ readfile '' > ) > > NB. nosize seems to work, but nomin does not > > NB. --------------------------------------------------------- > PEDFORM=: 0 : 0 > pc pedform escclose closebutton nosize;pn "Pedometer Data Entry"; wh 200 20; > menupop "File"; > menu view "&View" "" "" ""; > menusep; > menu exit "&Exit" "" "" ""; > menupopz; > rem Note setup for J801; > bin vh; > cc s0 static;cn "Date:"; > cc s1 static;cn "2013 03 16"; > bin zh; > cc s3 static;cn "Steps:"; > cc edit1 edit right; > bin zh; > cc sbar statusbar 255 0 0; > set sbar addlabel sb0; > pas 6 6;pcenter; > rem form end; > ) > > > NB. --------------------------------------------------------- > pedform_run=: 3 : 0 > wd PEDFORM > NB. initialize form here > DATE=: nextdate'' > wd 'setcaption s1 *',":DATE > set edit1 focus; > wd 'set sbar setlabel sb0 "Enter steps, then press enter key"' > wd 'pshow;' > ) > > NB. --------------------------------------------------------- > NB. write the date and steps to the data file > pedform_saveBut_button=: 3 : 0 > if. (0<#edit1)*.0~:0{DATE do. > z=. (d=. (;'q< >5.0,q< >r<0>3.0,q< >r<0>3.0' 8!:0 DATE),edit1) fappends > FILENAME > if. z~:_1 do. > NB. wd 'sbarset status0 -1 "',d,' saved to file"' > wd 'set edit1 text *' > DATE=: todate >:todayno DATE NB. increment date > wd 'setcaption s1 *',":DATE > wd 'setfocus edit1' > else. > wdinfo 'Error';'Data not saved' > end. > else. > if. 0~:0{DATE do. > wd 'sbarset status0 -1 "No steps to Save!"' > wd 'setfocus stepsEdit' > else. > NB. wd 'sbarset status0 -1 "Invalid date!"' > pedform_dateButton_button'' > end. > end. > ) > > NB. --------------------------------------------------------- > pedform_close=: 3 : 'wd''pclose''' > pedform_cancel_button=: 3 : 'pedform_close''''' > > NB. --------------------------------------------------------- > pedform_edit1_button=: 3 : 'pedform_saveBut_button''''' > pedform_exit_button=: 3 : 'pedform_close''''' > pedform_view_button=: 3 : 'fview jpath FILENAME' > > pedform_run'' > NB. ========================================================= > > NB. ERROR ******************************************** > |wh : command not found: wd > | (wd ::(''"_)'qer') (13!:8)3 > NB. ERROR ******************************************** > > NB. ERROR occurs at: wd PEDFORM in verb pedform_run > > The script worked fine before today's update. My other application works OK. > > Thanks, Tom > > -----Original Message----- > From: [email protected] > [mailto:[email protected]] On Behalf Of bill lam > Sent: Monday, July 22, 2013 19:03 > To: JBeta > Subject: [Jbeta] Updated binaries > > Binaries for mac and win have been updated to 1.0.14 on jsoftware. > > set select for edit, multiple select for listbox, to 1.0.14 fix recent > projects log bugfix inputlog save project config when tab changed minor > cleanups astyle indent > > -- > regards, > ==================================================== > GPG key 1024D/4434BAB3 2008-08-24 > gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3 > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
