Thursday, March 17, 2011 at 10:04 AM.

---

scripting2Suite.menuCommands.newUser

on newUser () {
	<<Changes
		<<3/17/11; 8:45:04 AM by DW
			<<Created. 
	local (username, password);
	if dialog.ask ("Username:", @username) {
		if dialog.ask ("Password:", @password) {
			local (adruser = scripting2Suite.initUser (username, true));
			adruser^.prefs.password = password}}};
bundle { //test code
	newUser ()}

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.