1. Win32 askLine(), getLine(), getInput(), . . .
- Posted by Terry Constant <EUforum at terryconstant.com> Sep 24, 2004
- 539 views
- Last edited Sep 25, 2004
I have searched but not found a simple askLine() function (ignore this name it is just a sample). I am looking for a function that displays a window with a caption, a label/prompt, a single line edit text box, Ok button and Cancel button. Something like the askLine() function in Winbatch. The text entered by a user would be returned as a string. Is there such a function or a library with one or more such? Further, I am just about finished reacquainting myself with Euphoria and am ready to tackle Win32Lib which looks like an excellent effort. Is there such a function/demo in its many demos/tutorials that I missed? Terry Constant
2. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Derek Parnell <ddparnell at bigpond.com> Sep 25, 2004
- 518 views
Terry Constant wrote: > > I have searched but not found a simple askLine() function (ignore > this name it is just a sample). I am looking for a function that > displays a window with a caption, a label/prompt, a single line > edit text box, Ok button and Cancel button. Something like the > askLine() function in Winbatch. The text entered by a user would > be returned as a string. Is there such a function or a library > with one or more such? > > Further, I am just about finished reacquainting myself with > Euphoria and am ready to tackle Win32Lib which looks like an > excellent effort. Is there such a function/demo in its many > demos/tutorials that I missed? > I'm sure I wrote one for use with win32lib but I can't find it now. Maybe I just dreamt it Anyhow, I'll knock one up for you. It's not all that hard to do. -- Derek Parnell Melbourne, Australia
3. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Pete Lomax <petelomax at blueyonder.co.uk> Sep 25, 2004
- 520 views
On Fri, 24 Sep 2004 14:30:55 -0700, Terry Constant <guest at RapidEuphoria.com> wrote: >I am looking for a function that >displays a window with a caption, a label/prompt, a single line >edit text box, Ok button and Cancel button. Something like the >askLine() function in Winbatch. Try this: -- inbox.ew -- accept user input in a simple window -- Note: you must have a WinMain running for this to work. -- Author Pete Lomax 25/9/2004 -- -- usage: x=input_box(prompt,title,parent) -- -- Demo version (including the required dummy WinMain). -- Shows a dummy main window, opens a dialogue box with -- "yadda yadda yadda yadda field" as the prompt. -- If you enter any text, and press OK or <return>, it -- updates the dummy main window title. -- It then opens a second dialogue box this time prompting -- for "second". Try resizing the window as well. -- Just delete everything below the marker to use for real. include win32lib.ew integer inbox,ftxt,field,ok,cancel inbox=0 sequence Text integer ftsize procedure IBhandler(integer self, integer event, sequence params) sequence size integer sX,sY if find(event,{w32HResize,w32HActivate,w32HOpen}) then size=getClientRect(self) sX=size[3]-size[1] sY=size[4]-size[2] setRect(ftxt,10,15+(sY-88)/2,ftsize,20,1) setRect(field,15+ftsize,10+(sY-88)/2,sX-ftsize-35,25,1) setRect(ok,sX-170,sY-35,60,20,1) setRect(cancel,sX-90,sY-35,60,20,1) setFocus(field) elsif event=w32HKeyPress then if params[1]=VK_RETURN then self=ok event=w32HClick elsif params[1]=VK_ESCAPE then event=w32HClick end if end if if event=w32HClick then if self=ok then Text=getText(field) else Text="" end if closeWindow(inbox) end if end procedure global function input_box(sequence ftext, sequence title, integer parent) sequence size, tsize integer sX, sY if inbox=0 then size = getClientRect(Screen) sX=size[3] sY=size[4] inbox=create(Window,title, parent, (sX-400)/2,(sY-120)/2, 400, 120, 0) tsize=getTextExtent(inbox,ftext) ftsize=tsize[1] ftxt =create(LText,ftext,inbox,10,15,ftsize,20,0) field =create(EditText,"",inbox,15+ftsize,10,180,25,0) ok =create(PushButton,"OK",inbox,230,55,60,20,0) cancel=create(PushButton,"Cancel",inbox,310,55,60,20,0) setHandler({ok,cancel,field}, {w32HClick,w32HKeyPress}, routine_id( "IBhandler" )) setHandler(inbox,{w32HResize,w32HActivate,w32HOpen},routine_id("IBhandler")) else -- -- I don't notice any problems with not being able to do this, -- but if/when the function is working, won't hurt to call it. --if not setParent(inbox,parent) then ?9/0 end if -- not yet working -- setText(inbox,title) setText(ftxt,ftext) tsize=getTextExtent(inbox,ftext) ftsize=tsize[1] end if Text="" openDialog(inbox) return Text end function --------- Delete everything below this to use it for real --------------- constant Main=create(Window,"Dummy Main Window",0,100,100,300,100,0) procedure onActivateMain(integer self, integer event, sequence params) sequence msg if self or event or length(params) then end if -- suppress warnings msg=input_box("yadda yadda yadda yadda field","Enter Something",Main) if length(msg) then setText(Main,msg) end if msg=input_box("second","And this",Main) if length(msg) then setText(Main,msg) end if end procedure setHandler(Main,w32HActivate,routine_id("onActivateMain")) WinMain(Main,Normal) Regards, Pete
4. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Derek Parnell <ddparnell at bigpond.com> Sep 26, 2004
- 516 views
Terry Constant wrote: > > I have searched but not found a simple askLine() function (ignore > this name it is just a sample). I am looking for a function that > displays a window with a caption, a label/prompt, a single line > edit text box, Ok button and Cancel button. Something like the > askLine() function in Winbatch. The text entered by a user would > be returned as a string. Is there such a function or a library > with one or more such? > Sorry for the delay. I had the day off and took the family to the State fair (aka Royal Melbourne Show). This afternoon I knocked up something that might be what you're looking for. It can be found at ... http://www.users.bigpond/ddparnell/euphoria/input.ew There is a demo program at ... http://www.users.bigpond/ddparnell/euphoria/userInput_1.exw There are no docs yet. Basically, you add "include input.ew" after the win32lib.ew include, then you use it like ... sequence vals vals = userInput({ "Title=Enter whatever", "Field=Your dog's name" }) You can have any number of 'field' entries and the function returns one value (a sequence) for each field you specify. Also, you can specify field lengths (as number of characters) by appending ';' and the character count after any field. For example: vals = userInput({ "Title=Enter whatever", "Field=Your dog's name;20", "Field=Your favorite team;30", "Field=ZIP Code;6" }) in which the routine will return three values, such as ... { "Woody", "Carlton", "3162" } You can also add an optional 'apply' button such that when pressed, your program gets the values but the dialog does not close. You must however, supply a call back routine id to handle the apply button values. Additionally, you can specify a minimum width (in characters) of the entire dialog form... procedure ApplyBtn(integer DialogID, integer ButtonID, sequence Values) . . . end procedure vals = userInput({ "Title=Enter whatever", "Field=Your dog's name;20", "Field=Your favorite team;30", "Field=ZIP Code;6", "apply=" & routine_id("ApplyBtn"), "minwidth=80" }) If you can think of any improvements before I distribute it with win32lib, please let me know. I can think of a few embellishments. -- Derek Parnell Melbourne, Australia
5. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Derek Parnell <ddparnell at bigpond.com> Sep 26, 2004
- 507 views
Derek Parnell wrote: > > Terry Constant wrote: > > > > I have searched but not found a simple askLine() function (ignore > > this name it is just a sample). I am looking for a function that > > displays a window with a caption, a label/prompt, a single line > > edit text box, Ok button and Cancel button. Something like the > > askLine() function in Winbatch. The text entered by a user would > > be returned as a string. Is there such a function or a library > > with one or more such? > > > > Sorry for the delay. I had the day off and took the family to the > State fair (aka Royal Melbourne Show). > > This afternoon I knocked up something that might be what you're looking > for. It can be found at ... > > <a > href="http://www.users.bigpond/ddparnell/euphoria/input.ew">http://www.users.bigpond/ddparnell/euphoria/input.ew</a> > > There is a demo program at ... > > <a > href="http://www.users.bigpond/ddparnell/euphoria/userInput_1.exw">http://www.users.bigpond/ddparnell/euphoria/userInput_1.exw</a> > Those should be http://www.users.bigpond.com/ddparnell/euphoria/input.ew and http://www.users.bigpond.com/ddparnell/euphoria/userInput_1.ew -- Derek Parnell Melbourne, Australia
6. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Terry Constant <EUforum at terryconstant.com> Sep 26, 2004
- 516 views
Derek and Pete, Thank you both. Your help was what I needed. Terry Constant
7. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by "Elliott S. de Andrade" <quantum_analyst at hotmail.com> Sep 26, 2004
- 519 views
- Last edited Sep 27, 2004
>From: Derek Parnell <guest at RapidEuphoria.com> >Reply-To: EUforum at topica.com >To: EUforum at topica.com >Subject: Re: Win32 askLine(), getLine(), getInput(), . . . >Date: Sun, 26 Sep 2004 00:07:06 -0700 > >posted by: Derek Parnell <ddparnell at bigpond.com> > >If you can think of any improvements before I distribute it with >win32lib, please let me know. I can think of a few embellishments. > I was just thinking it would be better if you had the title as a separate parameter. A) IT should always be specified (right?) and, B) it means less parsing for you. Also ,it might be nice if you had a flags parameter as well. Then you could make an OK/Cancel dialog, or a Yes/No dialog, etc. Your site still appears to be down, so I can't say much more. >-- >Derek Parnell >Melbourne, Australia > PS. To Rob... Is there any way I could have my e-mail sent without the =20 stuff and not have to explicitly type Enters into it? ~[ WingZone ]~ http://wingzone.tripod.com/ 34&SU=http://hotmail.com/enca&HL=Market_MSNIS_Taglines=20 Start enjoying all the benefits of MSN=AE Premium right now and get the= =20 first two months FREE*.
8. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Robert Craig <rds at RapidEuphoria.com> Sep 26, 2004
- 511 views
- Last edited Sep 27, 2004
Elliott S. de Andrade wrote: > PS. To Rob... Is there any way I could have my e-mail sent without > the =20 stuff and not have to explicitly type Enters into it? OK, I added a couple of lines of code that should strip out most (but not all) of the "equals 20" things. Your messages seem to be the most affected. Regards, Rob Craig Rapid Deployment Software http://www.RapidEuphoria.com
9. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Bernard Ryan <xotron at bluefrog.com> Sep 26, 2004
- 488 views
- Last edited Sep 27, 2004
Rob: If the RECIPIENT'S MAIL program can't handle quoted-printable (many older ones can't), ( NOTE: RDS and TOPICA are the RECIPIENTS ) the message will look peculiar with all the equal signs and hexadecimal encoding. So when you DECODE the e-mail and put it in in Database or put it on the Web Page this is where it is coming from. Goto this site and it explains about the problem this will cause equal 3D's and equal 20's ETC. http://nihlibrary.ors.nih.gov/Relais/mime.htm Bernie My files in archive: http://www.rapideuphoria.com/w32engin.zip http://www.rapideuphoria.com/mixedlib.zip http://www.rapideuphoria.com/eu_engin.zip http://www.rapideuphoria.com/win32eru.zip
10. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by "Elliott S. de Andrade" <quantum_analyst at hotmail.com> Sep 28, 2004
- 508 views
>From: Derek Parnell <guest at RapidEuphoria.com> >Reply-To: EUforum at topica.com >To: EUforum at topica.com >Subject: Re: Win32 askLine(), getLine(), getInput(), . . . >Date: Sun, 26 Sep 2004 00:07:06 -0700 > >posted by: Derek Parnell <ddparnell at bigpond.com> > >If you can think of any improvements before I distribute it with >win32lib, please let me know. I can think of a few embellishments. > Well, I was thinking... Why not just have the title as a separate parameter? A) It should always be specified (right?) and B) it means less= stuff for you to parse. Maybe a flags parameter as well. (Separate paramete= r for the same reasons. Then you could have, say, an OK/Cancel dialog, or jus= t an OK dialog, etc.) I'd give you more suggestions, but bigpond seems to be= having problems, so I can't download it. >-- >Derek Parnell >Melbourne, Australia > ~[ WingZone ]~ http://wingzone.tripod.com/ Technology=20=20 http://join.msn.com/?pgmarket=en-ca&page=byoa/prem&xAPID=1994&DI=10= 34&SU=http://hotmail.com/enca&HL=Market_MSNIS_Taglines=20 Start enjoying all the benefits of MSN=AE Premium right now and get the= first two months FREE*.
11. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Derek Parnell <ddparnell at bigpond.com> Sep 28, 2004
- 499 views
- Last edited Sep 29, 2004
Elliott S. de Andrade wrote: > > >From: Derek Parnell <guest at RapidEuphoria.com> > >Reply-To: EUforum at topica.com > >To: EUforum at topica.com > >Subject: Re: Win32 askLine(), getLine(), getInput(), . . . > >Date: Sun, 26 Sep 2004 00:07:06 -0700 > > > >posted by: Derek Parnell <ddparnell at bigpond.com> > > > >If you can think of any improvements before I distribute it with > >win32lib, please let me know. I can think of a few embellishments. > > > > Well, I was thinking... Why not just have the title as a separate > parameter? A) It should always be specified (right?) and B) it means less= > > stuff for you to parse. Maybe a flags parameter as well. (Separate paramete= > r > for the same reasons. Then you could have, say, an OK/Cancel dialog, or jus= > t > an OK dialog, etc.) I'd give you more suggestions, but bigpond seems to be= > > having problems, so I can't download it. I'm sure my website is up. The links I just downloaded to test it were... http://www.users.bigpond.com/ddparnell/euphoria/userInput_1.exw http://www.users.bigpond.com/ddparnell/euphoria/input.ew I've been working on the userInput function yesterday and the minimum usage would be something like ... result = userInput("Enter your name") but it can also be much more sophisticated in that you have some control over the layout, the control types used for input, and you can have a callback routine in which you can initialize and/or validate fields before returning to the main application. For example ... result = userInput({ "minwidth=20", "Title=Enter your details", "Field=(,25x3,(CText,ss_sunken)," & "This information is private and will " & "never be given to any 3rd party)", "Field=", "Columns=2", "VertGap=18", "ButtonGap=30", "RightMargin = 50", "LeftMargin = 50", "TopMargin = 50", "BottomMargin = 50", "callback=" & routine_id("Apply"), "button=(accept,&Okay,defpushbutton)", "button=(cancel,&Stop)", "button=(apply,&Apply)", "button=(test,&TEST)", "Field=(Personal Name,25,,<Given name>)", "Field=(Age,7,DropDownList,(0-19, 20-29, 30-39, 40-49, 50-59, 60+))", "Field=(Family Name,30)", "Field=(ZIP,6)" } ) -- Derek Parnell Melbourne, Australia
12. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by "Elliott S. de Andrade" <quantum_analyst at hotmail.com> Sep 29, 2004
- 531 views
>From: Derek Parnell <guest at RapidEuphoria.com> >Reply-To: EUforum at topica.com >To: EUforum at topica.com >Subject: Re: Win32 askLine(), getLine(), getInput(), . . . >Date: Tue, 28 Sep 2004 14:55:18 -0700 > >posted by: Derek Parnell <ddparnell at bigpond.com> > >I'm sure my website is up. The links I just downloaded to test it were... > I said the website didn't work, as in www.users.bigpond.com. It doesn't= seem to resolve (for a couple people.) I have no idea whether it's a 404 or= not. > >-- >Derek Parnell >Melbourne, Australia > ~[ WingZone ]~ http://wingzone.tripod.com/ s to offer.=20 http://join.msn.com/?pgmarket=en-ca&page=byoa/prem&xAPID=1994&DI=10= 34&SU=http://hotmail.com/enca&HL=Market_MSNIS_Taglines=20 Start enjoying all the benefits of MSN=AE Premium right now and get the= first two months FREE*.
13. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Derek Parnell <ddparnell at bigpond.com> Sep 29, 2004
- 523 views
Elliott S. de Andrade wrote: > > >From: Derek Parnell <guest at RapidEuphoria.com> > >Reply-To: EUforum at topica.com > >To: EUforum at topica.com > >Subject: Re: Win32 askLine(), getLine(), getInput(), . . . > >Date: Tue, 28 Sep 2004 14:55:18 -0700 > > > >posted by: Derek Parnell <ddparnell at bigpond.com> > > > >I'm sure my website is up. The links I just downloaded to test it were... > > > > I said the website didn't work, as in www.users.bigpond.com. It doesn't= > > seem to resolve (for a couple people.) I have no idea whether it's a 404 or= > > not. Yes, I know what you said. The name "www.users.bigpond.com" resolves to IP 139.134.5.123 here. What do you get when pinging? You could also try "http://139.134.5.123/ddparnell/euphoria/input.ew" etc... -- Derek Parnell Melbourne, Australia
14. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Craig Welch <euphoria at welchaviation.org> Sep 29, 2004
- 514 views
Derek Parnell wrote: > I'm sure my website is up. The links I just downloaded to test it were... It's up, but it was down for a time after you first posted those links. Even for me, and littlepond is my ISP also.
15. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by "Elliott S. de Andrade" <quantum_analyst at hotmail.com> Sep 29, 2004
- 533 views
>From: Derek Parnell <guest at RapidEuphoria.com> >Reply-To: EUforum at topica.com >To: EUforum at topica.com >Subject: Re: Win32 askLine(), getLine(), getInput(), . . . >Date: Tue, 28 Sep 2004 17:52:55 -0700 > >posted by: Derek Parnell <ddparnell at bigpond.com> > >Elliott S. de Andrade wrote: > > > > >From: Derek Parnell <guest at RapidEuphoria.com> > > >Reply-To: EUforum at topica.com > > >To: EUforum at topica.com > > >Subject: Re: Win32 askLine(), getLine(), getInput(), . . . > > >Date: Tue, 28 Sep 2004 14:55:18 -0700 > > > > > >posted by: Derek Parnell <ddparnell at bigpond.com> > > > > > >I'm sure my website is up. The links I just downloaded to test it >were... > > > > > > > I said the website didn't work, as in www.users.bigpond.com. It >doesn't= > > seem to resolve (for a couple people.) I have no idea whether it's a 404 >or= > > not. > >Yes, I know what you said. > >The name "www.users.bigpond.com" resolves to IP 139.134.5.123 here. >What do you get when pinging? > Ping uses DNS, so...nothing. The DNS just doesn't work, so I can't ping it (or ftp/http/etc.) >You could also try "http://139.134.5.123/ddparnell/euphoria/input.ew" >etc... > This works, thanks. >-- >Derek Parnell >Melbourne, Australia > ~[ WingZone ]~ http://wingzone.tripod.com/
16. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by "Elliott S. de Andrade" <quantum_analyst at hotmail.com> Sep 29, 2004
- 485 views
<I wrote> >>You could also try "http://139.134.5.123/ddparnell/euphoria/input.ew" >>etc... >> > >This works, thanks. > Now that I've tried it, the input window is a bit too small (I'm using XP Styles.) It should be about 9 pixels bigger to accomodate the Status Bar (Happens with some other demos that use that new-fangled control creation system, too.) The label/input boxes could be a little bit spread out too. They seem to be juust touching. ~[ WingZone ]~ http://wingzone.tripod.com/
17. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by Derek Parnell <ddparnell at bigpond.com> Sep 29, 2004
- 506 views
Elliott S. de Andrade wrote: > > > <I wrote> > >>You could also try "<a > >>href="http://139.134.5.123/ddparnell/euphoria/input.ew">http://139.134.5.123/ddparnell/euphoria/input.ew</a>" > >> > >>etc... > >> > > > >This works, thanks. > > > > Now that I've tried it, the input window is a bit too small (I'm using XP > Styles.) It should be about 9 pixels bigger to accomodate the Status Bar > (Happens with some other demos that use that new-fangled control creation > system, too.) The label/input boxes could be a little bit spread out too. > They seem to be juust touching. Yes, I noticed that too. I've adjusted the default gaps between controls and margins now. In addition, the coder can micro-manage this aspect by specifying values that override the defaults, and even move stuff around in the Activate event when using a callback routine. -- Derek Parnell Melbourne, Australia
18. Re: Win32 askLine(), getLine(), getInput(), . . .
- Posted by "Elliott S. de Andrade" <quantum_analyst at hotmail.com> Sep 30, 2004
- 518 views
>From: Robert Craig <guest at RapidEuphoria.com> >Reply-To: EUforum at topica.com >To: EUforum at topica.com >Subject: Re: Win32 askLine(), getLine(), getInput(), . . . >Date: Sun, 26 Sep 2004 16:23:40 -0700 > >posted by: Robert Craig <rds at RapidEuphoria.com> > >Elliott S. de Andrade wrote: > > PS. To Rob... Is there any way I could have my e-mail sent without > > the =20 stuff and not have to explicitly type Enters into it? > >OK, I added a couple of lines of code that should >strip out most (but not all) of the "equals 20" things. >Your messages seem to be the most affected. > Thanks. Whatever you did, it seems to make everything a whole lot better.= And, the Hotmail ads are caught too. >Regards, > Rob Craig > Rapid Deployment Software > http://www.RapidEuphoria.com > ~[ WingZone ]~ http://wingzone.tripod.com/ s to offer.=20 http://join.msn.com/?pgmarket=en-ca&page=byoa/prem&xAPID=1994&DI=10= 34&SU=http://hotmail.com/enca&HL=Market_MSNIS_Taglines=20 Start enjoying all the benefits of MSN=AE Premium right now and get the= first two months FREE*.