OpenEuphoria

Re: EditText Style: ES_NUMERIC

• Posted by jbrown1050 at hotpop.com Jan 30, 2003
• 468 views

Just wondering, what are valid subsystem versions for Windows programs,
besides 3.1 and 4.0?

On Wed, Jan 29, 2003 at 09:54:32PM +0000, Brian Broker wrote:
> 
> Guess what!  You've just found another reason why exw.exw should have a 
> subsystem version of 4.0.  I tested your program with the original 
> exw.exw with a subsystem version of 3.1 and it doesn't work like it 
> should (anything can be entered).
> 
> You should make a backup copy of exw.exe before running this program 
> that was submitted to the mailing list by Robert:
> 
> -- set Windows GUI version
> include file.e
> include get.e
> 
> constant new_version = {4,0,0}   -- or {3, 0, 10} for 3.1
> 
> integer fn
> 
> fn = open("exw.exe", "ub")
> 
> if seek(fn, #C8) != 0 then
>     puts(2, "1st seek failed\n")
>     abort(1)
> end if
> 
> puts(2, "Initially:\n")
> ? get_bytes(fn, 3)
> 
> if seek(fn, #C8) != 0 then
>     puts(2, "2nd seek failed\n")
>     abort(1)
> end if
> 
> puts(fn, new_version) 
> puts(1, "Now:\n")
> ? new_version
> close(fn)
> 
> -- end of program --
> 
> Try it with your new version of exw.exe...
> -- Brian
> 
> 
> jordah wrote:
> > What version of win32lib? This also fails to work when i use euwin. i'm
> > perplexed!!
> > 
> > 
> > ----- Original Message -----
> > From: <jordah at btopenworld.com>
> > To: "EUforum" <EUforum at topica.com>
> > Sent: Tuesday, January 28, 2003 5:41 PM
> > Subject: EditText Style: ES_NUMERIC
> > 
> > 
> > > Hi,
> > >    I've been coding an App using win32lib but i noticed something was
> > wrong.
> > > If i use ES_NUMERIC i no longer get the "Number only sle". it allows 
> > > other
> > > characters as well. I'm using XP. Its probably the bit-flags in wrong
> > order
> > > or XP issue(which i doubt). I could probably fix this with 
> > > SetWindowLong()
> > > but its not worth it if some one else knows why.
> > >
> > > Jordah
> > >
> > > -- example7.exw
> > > --
> > > -- This creates two editable controls,
> > > -- and buttons to query their control's values
> > >
> > > include win32lib.ew
> > > without warning
> > >             with trace
> > > constant
> > >     Win     = create( Window, "Get Data", 0, Default, Default, 400, 200,
> > > 0 ),
> > >
> > >     Check1  = create( CheckBox, "checkbox", Win, 10, 10, 80, 20, 0 ),
> > >     Button1 = create( PushButton, "Check Value...", Win, 180, 10, 120, 20,
> > > 0 ),
> > >
> > >     Sle1    = create( EditText, "", Win, 10, 40, 120, 20, ES_NUMERIC ),
> > >     Button2 = create( PushButton, "Check Value...", Win, 180, 40, 120, 20,
> > > 0 )
> > >
> > > constant
> > >     aStatusBar      = create( StatusBar, "", Win, 0, 25, 20, 20, 0)
> > >
> > > procedure Click_Button(integer self, integer event, sequence parms)
> > >     sequence msg
> > >
> > >     if self = Button1 then
> > >         if isChecked( Check1 ) then
> > >          msg = "Checked: Yes"
> > >         else
> > >             msg = "Checked: No"
> > >         end if
> > >     else
<snip>

> 
> 
-- 
 /"\  ASCII ribbon              | 
 \ /  campain against           | Linux User:190064
  X   HTML in e-mail and        | Linux Machine:84163
 /*\  news, and unneeded MIME   |