equal
deleted
inserted
replaced
809 |
809 |
810 accept |
810 accept |
811 "" |
811 "" |
812 |val string| |
812 |val string| |
813 |
813 |
|
814 acceptEnabled == false ifTrue:[ |
|
815 device beep. |
|
816 ^ self |
|
817 ]. |
|
818 |
814 super accept. |
819 super accept. |
815 converter notNil ifTrue:[ |
820 converter notNil ifTrue:[ |
816 val := self editValue. |
821 val := self editValue. |
817 string := converter printStringFor:val. |
822 string := converter printStringFor:val. |
818 string ~= self contents ifTrue:[ |
823 string ~= self contents ifTrue:[ |
819 self contents:string. |
824 self contents:string. |
820 self flash |
825 self flash |
821 ] |
826 ] |
822 ]. |
827 ]. |
|
828 |
|
829 "Modified: 7.3.1997 / 11:06:00 / cg" |
823 ! ! |
830 ! ! |
824 |
831 |
825 !EditField methodsFor:'accessing-behavior'! |
832 !EditField methodsFor:'accessing-behavior'! |
826 |
833 |
827 acceptOnLeave:aBoolean |
834 acceptOnLeave:aBoolean |
1927 ! ! |
1934 ! ! |
1928 |
1935 |
1929 !EditField class methodsFor:'documentation'! |
1936 !EditField class methodsFor:'documentation'! |
1930 |
1937 |
1931 version |
1938 version |
1932 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.85 1997-03-06 15:14:22 cg Exp $' |
1939 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.86 1997-03-07 10:17:34 cg Exp $' |
1933 ! ! |
1940 ! ! |