equal
deleted
inserted
replaced
40 a modified Inspector for Dictionaries |
40 a modified Inspector for Dictionaries |
41 |
41 |
42 [author:] |
42 [author:] |
43 Claus Gittinger |
43 Claus Gittinger |
44 " |
44 " |
|
45 ! ! |
|
46 |
|
47 !DictionaryInspectorView methodsFor:'event handling'! |
|
48 |
|
49 keyPress:key x:x y:y |
|
50 "handle special keys" |
|
51 |
|
52 <resource: #keyboard (#Delete #BackSpace)> |
|
53 |
|
54 (key == #Delete or:[key == #BackSpace]) ifTrue:[ |
|
55 self doRemoveKey. |
|
56 ^ self. |
|
57 ]. |
|
58 (key == #Insert) ifTrue:[ |
|
59 self doAddKey. |
|
60 ^ self. |
|
61 ]. |
|
62 |
|
63 super keyPress:key x:x y:y |
45 ! ! |
64 ! ! |
46 |
65 |
47 !DictionaryInspectorView methodsFor:'menu'! |
66 !DictionaryInspectorView methodsFor:'menu'! |
48 |
67 |
49 fieldMenu |
68 fieldMenu |
512 ! ! |
531 ! ! |
513 |
532 |
514 !DictionaryInspectorView class methodsFor:'documentation'! |
533 !DictionaryInspectorView class methodsFor:'documentation'! |
515 |
534 |
516 version |
535 version |
517 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.62 2008-01-27 16:04:09 cg Exp $' |
536 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.63 2008-03-14 10:22:40 stefan Exp $' |
518 ! ! |
537 ! ! |