Hola Gallego !
Gracias, pero yo lo hice así:
CustomTextEdit>>wmChar: message wParam: wParam lParam: lParam
"Private - Default handler for a WM_CHAR. Forward to the receiver
#onKeyTyped: handler
which should answer a non-Integer/non-Boolean value if it wants to accept
the default processing for the message."
| character |
character := wParam asCharacter.
(character isControl or: [character isWhitespace])
ifTrue:
[^super
wmChar: message
wParam: wParam
lParam: lParam].
(character asString matchesRegex: '([0-9.-]*)') ifFalse: [^0]
Y funca todo, backspace, back, return, delete.
Si ponía como vos decías, no me dejaba ingresar nada.
Lo que tendría que hacer es poner la regex en un colaborador y tener una lista
donde se puedan poner las opciones.
Para hacer esto usas #format de TextEdit o pones otro colaborador ?
saludos kiko
PD: Por lo menos a mi me anda jajaj, capaz estoy diciendo boludeses jajaj
________________________________
De: GallegO <[email protected]>
Para: [email protected]
Enviado: miércoles 16 de septiembre de 2009, 12:20:13
Asunto: [clubSmalltalk] Re: TextEdit con Float ?
El 16 de septiembre de 2009 10:43, Jose Gregoris <[email protected]>
escribió:
>
>Redefiní el #wmChar:wParam:lParam: para ver que ingrese caracteres válidos y
>#enKillFocus para ver si es un valor válido.
>>Ahora el tema es como hacer que se comporte igual que el TextEdit con las
>>teclas VK_RETURN, VK_BACKSPACE, VK_BACK y VK_DELETE.
>
>
Mira al final del #wmChar:wParam:lParam: que redefiniste deberia terminar
haciendo algo asi (no tegas en cuenta el codigo que es propio de nuestra
implementacion):
(char isControl or: [self regexWithArguments isValidInput: string])
ifTrue: [^super wmChar: message wParam: char asciiValue lParam:
lParam]
ifFalse:[self revert.^0]
char lo sacas de wParam no? bueno isControl -> true haces la implementacion de
super.
Ojo que devolver 0 no es inocuo ;)
Ahh y el problema que tengo yo es que no me acepta el Delete pero no tiene nada
que ver con esto. Todavia no lo encontre, es algo muy raro, parece como si no
le llegara el evento a Dolphin. Si lo encuentro posteo. Si alguien ya le paso
avise please!!!
Saludos
GallegO
Yahoo! Cocina
Encontra las mejores recetas con Yahoo! Cocina.
http://ar.mujer.yahoo.com/cocina/
--~--~---------~--~----~------------~-------~--~----~
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
http://www.clubSmalltalk.org
-~----------~----~----~----~------~----~------~--~---
