54 Claus Atzkern, eXept Software AG |
54 Claus Atzkern, eXept Software AG |
55 " |
55 " |
56 |
56 |
57 |
57 |
58 |
58 |
|
59 ! ! |
|
60 |
|
61 !HierarchicalListEditor class methodsFor:'help specs'! |
|
62 |
|
63 helpSpec |
|
64 "return a dictionary filled with helpKey -> helptext associations. |
|
65 These are used by the activeHelp tool." |
|
66 |
|
67 " |
|
68 UIHelpTool openOnClass:HierarchicalListEditor |
|
69 " |
|
70 |
|
71 ^ super helpSpec addPairsFrom:#( |
|
72 |
|
73 #addChild |
|
74 'Adds a new child item.' |
|
75 |
|
76 #addSister |
|
77 'Adds a new sister item.' |
|
78 |
|
79 #fileNew |
|
80 'Creates a new hierarchical list.' |
|
81 |
|
82 ) |
59 ! ! |
83 ! ! |
60 |
84 |
61 !HierarchicalListEditor class methodsFor:'interface specs'! |
85 !HierarchicalListEditor class methodsFor:'interface specs'! |
62 |
86 |
63 classAndMethodSpec |
87 classAndMethodSpec |
324 |
351 |
325 #( |
352 #( |
326 #(#MenuItem |
353 #(#MenuItem |
327 #'label:' 'Child' |
354 #'label:' 'Child' |
328 #'value:' #doCreateChild |
355 #'value:' #doCreateChild |
|
356 #'activeHelpKey:' #addChild |
329 #'enabled:' #canCreateChildChannel |
357 #'enabled:' #canCreateChildChannel |
330 #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createChildIcon 'Child') |
358 #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createChildIcon 'Child') |
331 ) |
359 ) |
332 #(#MenuItem |
360 #(#MenuItem |
333 #'label:' 'Sister' |
361 #'label:' 'Sister' |
334 #'value:' #doCreateSister |
362 #'value:' #doCreateSister |
|
363 #'activeHelpKey:' #addSister |
335 #'enabled:' #canCreateSisterChannel |
364 #'enabled:' #canCreateSisterChannel |
336 #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createSisterIcon 'Sister') |
365 #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createSisterIcon 'Sister') |
337 ) |
366 ) |
338 ) nil |
367 ) nil |
339 nil |
368 nil |
396 |
425 |
397 #( |
426 #( |
398 #(#MenuItem |
427 #(#MenuItem |
399 #'label:' 'Cut' |
428 #'label:' 'Cut' |
400 #'value:' #doCut |
429 #'value:' #doCut |
|
430 #'activeHelpKey:' #editCut |
401 #'enabled:' #canCut |
431 #'enabled:' #canCut |
402 ) |
432 ) |
403 #(#MenuItem |
433 #(#MenuItem |
404 #'label:' 'Copy' |
434 #'label:' 'Copy' |
405 #'value:' #doCopy |
435 #'value:' #doCopy |
|
436 #'activeHelpKey:' #editCopy |
406 #'enabled:' #canCopy |
437 #'enabled:' #canCopy |
407 ) |
438 ) |
408 #(#MenuItem |
439 #(#MenuItem |
409 #'label:' 'Paste' |
440 #'label:' 'Paste' |
410 #'value:' #doPaste |
441 #'value:' #doPaste |
|
442 #'activeHelpKey:' #editPaste |
411 #'enabled:' #canPaste |
443 #'enabled:' #canPaste |
412 ) |
444 ) |
413 #(#MenuItem |
445 #(#MenuItem |
414 #'label:' '-' |
446 #'label:' '-' |
415 ) |
447 ) |
416 #(#MenuItem |
448 #(#MenuItem |
417 #'label:' 'Move Up' |
449 #'label:' 'Move Up' |
418 #'value:' #doStepUp |
450 #'value:' #doStepUp |
419 #'activeHelpKey:' #moveSelectionUp |
451 #'activeHelpKey:' #editMoveUp |
420 #'enabled:' #canStepOverChannel |
452 #'enabled:' #canStepOverChannel |
421 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #upIcon 'Move Up') |
453 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #upIcon 'Move Up') |
422 ) |
454 ) |
423 #(#MenuItem |
455 #(#MenuItem |
424 #'label:' 'Move Down' |
456 #'label:' 'Move Down' |
425 #'value:' #doStepDown |
457 #'value:' #doStepDown |
426 #'activeHelpKey:' #moveSelectionDown |
458 #'activeHelpKey:' #editMoveDown |
427 #'enabled:' #canStepOverChannel |
459 #'enabled:' #canStepOverChannel |
428 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downIcon 'Move Down') |
460 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downIcon 'Move Down') |
429 ) |
461 ) |
430 #(#MenuItem |
462 #(#MenuItem |
431 #'label:' 'Move In' |
463 #'label:' 'Move In' |
432 #'value:' #doStepIn |
464 #'value:' #doStepIn |
433 #'activeHelpKey:' #moveSelectionRight |
465 #'activeHelpKey:' #editMoveIn |
434 #'enabled:' #canStepInChannel |
466 #'enabled:' #canStepInChannel |
435 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downRightIcon 'Move In') |
467 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downRightIcon 'Move In') |
436 ) |
468 ) |
437 #(#MenuItem |
469 #(#MenuItem |
438 #'label:' 'Move Out' |
470 #'label:' 'Move Out' |
439 #'value:' #doStepOut |
471 #'value:' #doStepOut |
440 #'activeHelpKey:' #moveSelectionLeft |
472 #'activeHelpKey:' #editMoveOut |
441 #'enabled:' #canStepOutChannel |
473 #'enabled:' #canStepOutChannel |
442 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #leftDownIcon 'Move Out') |
474 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #leftDownIcon 'Move Out') |
443 ) |
475 ) |
444 ) nil |
476 ) nil |
445 nil |
477 nil |
479 ) |
512 ) |
480 #(#MenuItem |
513 #(#MenuItem |
481 #'label:' '' |
514 #'label:' '' |
482 ) |
515 ) |
483 #(#MenuItem |
516 #(#MenuItem |
484 #'label:' 'Create Child' |
517 #'label:' 'Add Child' |
485 #'isButton:' true |
518 #'isButton:' true |
486 #'value:' #doCreateChild |
519 #'value:' #doCreateChild |
|
520 #'activeHelpKey:' #addChild |
487 #'enabled:' #canCreateChildChannel |
521 #'enabled:' #canCreateChildChannel |
488 #'labelImage:' #(#ResourceRetriever nil #createChildIcon) |
522 #'labelImage:' #(#ResourceRetriever nil #createChildIcon) |
489 ) |
523 ) |
490 #(#MenuItem |
524 #(#MenuItem |
491 #'label:' 'Create Sister' |
525 #'label:' 'Add Sister' |
492 #'isButton:' true |
526 #'isButton:' true |
493 #'value:' #doCreateSister |
527 #'value:' #doCreateSister |
|
528 #'activeHelpKey:' #addSister |
494 #'enabled:' #canCreateSisterChannel |
529 #'enabled:' #canCreateSisterChannel |
495 #'labelImage:' #(#ResourceRetriever nil #createSisterIcon) |
530 #'labelImage:' #(#ResourceRetriever nil #createSisterIcon) |
496 ) |
531 ) |
497 #(#MenuItem |
532 #(#MenuItem |
498 #'label:' '' |
533 #'label:' '' |
499 ) |
534 ) |
500 #(#MenuItem |
535 #(#MenuItem |
501 #'label:' 'Move Up' |
536 #'label:' 'Move Up' |
502 #'isButton:' true |
537 #'isButton:' true |
503 #'value:' #doStepUp |
538 #'value:' #doStepUp |
|
539 #'activeHelpKey:' #editMoveUp |
504 #'enabled:' #canStepOverChannel |
540 #'enabled:' #canStepOverChannel |
505 #'labelImage:' #(#ResourceRetriever nil #upIcon) |
541 #'labelImage:' #(#ResourceRetriever nil #upIcon) |
506 ) |
542 ) |
507 #(#MenuItem |
543 #(#MenuItem |
508 #'label:' 'Move Down' |
544 #'label:' 'Move Down' |
509 #'isButton:' true |
545 #'isButton:' true |
510 #'value:' #doStepDown |
546 #'value:' #doStepDown |
|
547 #'activeHelpKey:' #editMoveDown |
511 #'enabled:' #canStepOverChannel |
548 #'enabled:' #canStepOverChannel |
512 #'labelImage:' #(#ResourceRetriever nil #downIcon) |
549 #'labelImage:' #(#ResourceRetriever nil #downIcon) |
513 ) |
550 ) |
514 #(#MenuItem |
551 #(#MenuItem |
515 #'label:' 'Move In' |
552 #'label:' 'Move In' |
516 #'isButton:' true |
553 #'isButton:' true |
517 #'value:' #doStepIn |
554 #'value:' #doStepIn |
|
555 #'activeHelpKey:' #editMoveIn |
518 #'enabled:' #canStepInChannel |
556 #'enabled:' #canStepInChannel |
519 #'labelImage:' #(#ResourceRetriever nil #downRightIcon) |
557 #'labelImage:' #(#ResourceRetriever nil #downRightIcon) |
520 ) |
558 ) |
521 #(#MenuItem |
559 #(#MenuItem |
522 #'label:' 'Move Out' |
560 #'label:' 'Move Out' |
523 #'isButton:' true |
561 #'isButton:' true |
524 #'value:' #doStepOut |
562 #'value:' #doStepOut |
|
563 #'activeHelpKey:' #editMoveOut |
525 #'enabled:' #canStepOutChannel |
564 #'enabled:' #canStepOutChannel |
526 #'labelImage:' #(#ResourceRetriever nil #leftDownIcon) |
565 #'labelImage:' #(#ResourceRetriever nil #leftDownIcon) |
527 ) |
566 ) |
528 ) nil |
567 ) nil |
529 nil |
568 nil |