OpenEuphoria

Re: Who can write an inputbox.e?

• Posted by Dan Moyer <DANIELMOYER at prodigy.net> Jan 20, 2003
• 537 views

Liu,

Interesting!
I was trying to create something like what you wanted, but couldn't (not too
surprising); and I never saw "openDialog", sigh.


Dan Moyer

----- Original Message -----
From: "Liu Junfeng" <rufi at 163.com>
To: "EUforum" <EUforum at topica.com>
Sent: Monday, January 20, 2003 12:48 AM
Subject: RE: Who can write an inputbox.e?


>
> I am not satisfied with your solution,here is mine:
>
> include win32lib.ew
> without warning
> integer inputbox,label,entry,ok,cancel
> sequence Text
> procedure Click_cancelButton(integer self, integer event, sequence
> parms)
>     closeWindow( findParentWindow(self) )
> end procedure
>
> procedure Click_okButton(integer self, integer event, sequence parms)
>     Text=getText(entry)
>     closeWindow( findParentWindow(self) )
> end procedure
> global function input_box(sequence text,sequence title,integer parent)
>        integer Width,Height
>        sequence SrceenSize,controlRect
>            SrceenSize = getCtlSize( Screen )
>            Width=280
>            Height=120
>        Text=""
>        inputbox=
>
create(Window,title,parent,(SrceenSize[1]-Width)/2,(SrceenSize[2]-Height)/2,
Width,Height,{WS_CAPTION,WS_BORDER})
>
>        label = create(LText,text,inputbox,10,10,200,20,0)
>        entry = create( EditText, "", inputbox, 10, 30, 180, 25, 0 )
>        ok    = create( PushButton, "OK", inputbox, 20, 65, 60, 20, 0 )
>        cancel= create( PushButton, "Cancel",inputbox, 120, 65, 60, 20, 0
> )
>        setHandler(ok, w32HClick, routine_id( "Click_okButton" ))
>        setHandler(cancel, w32HClick, routine_id( "Click_cancelButton" ))
>        openDialog(inputbox)
> return  Text
> end function
>
> The key point is to use openDialog, not openWindow.
>
> Patrick.Barnes at transgrid.com.au wrote:
> > Create a child window, and the controls inside that (textfield, buttons
> > etc)
> >
> > When you want the user to enter a value, call openWindow(mychildwin)
> >
> > To continue once the user has clicked a button (Ok, or Cancel, or
> > whatever you have put in the window)
> > have a procedure defined ... for example
> >
> > procedure on_click_Cbutton(integer ID, integer Event, sequence params)
> >
> > and set the handler for those buttons you defined to point to it:
> >
> > setHandler({myokbutton, mycancelbutton}, w32HClick,
> > routine_id("on_click_Cbutton") )
> >
> > So, when the user clicks a button, the procedure on_click_Cbutton will
> > be called, so you can stick whatever you want inside of that
> > procedure... ie
> >
> > procedure on_click_Cbutton(integer ID, integer Event, sequence params)
> > if ID = myokbutton then
> > data = getText(mytextfield)
> > closeWindow(mychildwin)
> > restofmyprogram()
> > elsif ID = mycancelbutton then
> > data = ""
> > closeWindow(mychildwin)
> > restofmyprogram()
> > end if
> > end procedure
> >
> >
> > > Euphoria has a long way to go!
> > You may be used to VB, but at least our language isn't full of security
> > holes! 
> > You may be used to C, but at least our language doesn't have so many
> > different ways of doing things, that reading another person's code can
> > be next to impossible! 
> >
> > ...I'll stop now.
> >
> >
> > -----Original Message-----
> > From: jordah at btopenworld.com [mailto:jordah at btopenworld.com]
> > Sent: Monday, 20 January 2003 15:22
> > To: EUforum
> > Subject: Re: Who can write an inputbox.e?
> >
> >
> > have u thought of getText().....or EM_GETTEXT?
> >
> > Jordah
> > ----- Original Message -----
> > From: "Liu Junfeng" <rufi at 163.com>
> > To: "EUforum" <EUforum at topica.com>
> > Sent: Monday, January 20, 2003 3:34 AM
> > Subject: Who can write an inputbox.e?
> >
> >
> > > just like the message_box() show some message,I'd like an input_box()
> > > to get some input.
> > > I can make a window to input some text,but I don't know how to return
> > > the text.
> > >
> > > Euphoria has a long way to go!
> > >
> > >
> > > TOPICA - Start your own email discussion group. FREE!
> > >
> >
> > ---
> >
> >
> > TOPICA - Start your own email discussion group. FREE!
> >
> >
> > ***********************************************************************
> >
> >
> > ***********************************************************************
> >
> >
<snip>

>
>