Yes, smclear will break if some numbered locales are created during boot, eg, inside startup.ijs
there is a verb wdforms'' which can return all windows created by wd, t hen pick the ijx for smclear. Вск, 03 Апр 2011, Ian Clark писал(а): > Thanks, Bill, > > I note what you don't say -- that there's a verb for it already. > > There's a boolean flag IFIJX in all the numbered locales I've > examined. But I guess it'll only be defined for locales with > COCREATOR-: <'jijs' . However, a try. / catch. should safely discover > the locale with IFIJX=1. > > > On Sun, Apr 3, 2011 at 1:12 AM, bill lam <[email protected]> wrote: > > I'm not sure if that is fragile. You may use > > 18!:1[1 to get all numbered locales, and then use 'jijx'-:>@{.@(18!:2) to > > test > > if that locale is jijx. (untest) > > > > > > Сбт, 02 Апр 2011, Ian Clark писал(а): > >> I want to commence a test script like this: > >> > >> smclear '' > >> clear '' > >> > >> where 'clear' is of course the library verb to delete all words in > >> locale 'base'. > >> > >> My suggested verb 'smclear' would empty the J602 session window IJX to > >> commence a fresh log of events. > >> > >> Browsing locale 'jijs' suggests the following should work --and indeed it > >> does: > >> > >> smclear=: 3 : 0 > >> wd 'psel ',SMHWNDP_0_ > >> wd 'set e ""' > >> ) > >> > >> but it looks rather fragile to me, since it relies on locale 0 > >> governing the IJX window. > >> > >> Is there a better way? Is there a library verb to do the job? > >> ---------------------------------------------------------------------- > >> For information about J forums see http://www.jsoftware.com/forums.htm > > > > -- > > 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 -- 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
