equal
deleted
inserted
replaced
37 |
37 |
38 labeled:aString |
38 labeled:aString |
39 ^ self new label:aString |
39 ^ self new label:aString |
40 ! ! |
40 ! ! |
41 |
41 |
|
42 !MenuItem methodsFor:'ST-80 compatibility'! |
|
43 |
|
44 isEnabled:aBoolean |
|
45 self enabled:aBoolean |
|
46 |
|
47 "Created: / 27.10.1997 / 16:34:55 / cg" |
|
48 ! ! |
|
49 |
42 !MenuItem methodsFor:'accessing'! |
50 !MenuItem methodsFor:'accessing'! |
43 |
51 |
44 accessCharacterPosition |
52 accessCharacterPosition |
45 "get the index of the access character in the label text or string, or nil if none |
53 "get the index of the access character in the label text or string, or nil if none |
46 " |
54 " |
378 ^ enabled value ? true |
386 ^ enabled value ? true |
379 |
387 |
380 "Created: 25.2.1997 / 19:39:17 / cg" |
388 "Created: 25.2.1997 / 19:39:17 / cg" |
381 ! |
389 ! |
382 |
390 |
|
391 isHidden |
|
392 "not yet supported" |
|
393 |
|
394 ^ false |
|
395 |
|
396 "Created: / 27.10.1997 / 15:13:43 / cg" |
|
397 ! |
|
398 |
383 isOff |
399 isOff |
384 "test whether indication on/off exists and is off |
400 "test whether indication on/off exists and is off |
385 " |
401 " |
386 |indication| |
402 |indication| |
387 |
403 |
521 ! ! |
537 ! ! |
522 |
538 |
523 !MenuItem class methodsFor:'documentation'! |
539 !MenuItem class methodsFor:'documentation'! |
524 |
540 |
525 version |
541 version |
526 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.16 1997-08-26 15:44:30 ca Exp $' |
542 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.17 1997-10-28 19:49:53 cg Exp $' |
527 ! ! |
543 ! ! |