That looks like the neatest way to get the handle for the ijx window!
On Sun, Apr 3, 2011 at 6:28 AM, bill lam <[email protected]> wrote: > 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 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
