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
