equal
deleted
inserted
replaced
370 " |
370 " |
371 |
371 |
372 <resource: #menu> |
372 <resource: #menu> |
373 |
373 |
374 ^ |
374 ^ |
375 |
375 |
376 #(#Menu |
376 #(#Menu |
377 |
377 |
378 #( |
378 #( |
379 #(#MenuItem |
379 #(#MenuItem |
380 #label: 'File' |
380 #label: 'File' |
381 #translateLabel: true |
381 #translateLabel: true |
382 #submenu: |
382 #submenu: |
383 #(#Menu |
383 #(#Menu |
384 |
384 |
385 #( |
385 #( |
386 #(#MenuItem |
386 #(#MenuItem |
387 #label: 'Load...' |
387 #label: 'Load...' |
388 #translateLabel: true |
388 #translateLabel: true |
389 #value: #doLoad |
389 #value: #doLoad |
414 #(#MenuItem |
414 #(#MenuItem |
415 #label: 'Edit' |
415 #label: 'Edit' |
416 #translateLabel: true |
416 #translateLabel: true |
417 #submenu: |
417 #submenu: |
418 #(#Menu |
418 #(#Menu |
419 |
419 |
420 #( |
420 #( |
421 #(#MenuItem |
421 #(#MenuItem |
422 #label: 'Add' |
422 #label: 'Add' |
423 #translateLabel: true |
423 #translateLabel: true |
424 #value: #doAdd |
424 #value: #doAdd |
437 nil |
437 nil |
438 ) |
438 ) |
439 ) |
439 ) |
440 #(#MenuItem |
440 #(#MenuItem |
441 #label: 'Help' |
441 #label: 'Help' |
|
442 #translateLabel: true |
442 #startGroup: #right |
443 #startGroup: #right |
443 #translateLabel: true |
444 #activeHelpKey: #help |
444 #submenu: |
445 #submenuChannel: #menuHelp |
445 #(#Menu |
|
446 |
|
447 #( |
|
448 #(#MenuItem |
|
449 #label: 'Documentation' |
|
450 #value: #openHTMLDocument: |
|
451 #translateLabel: true |
|
452 #activeHelpKey: #helpHelpTool |
|
453 #argument: 'tools/uipainter/HelpTool.html' |
|
454 ) |
|
455 #(#MenuItem |
|
456 #label: '-' |
|
457 ) |
|
458 #(#MenuItem |
|
459 #label: 'Show Help Texts' |
|
460 #translateLabel: true |
|
461 #activeHelpKey: #helpShowHelp |
|
462 #indication: #showHelp: |
|
463 ) |
|
464 ) nil |
|
465 nil |
|
466 ) |
|
467 ) |
446 ) |
468 ) nil |
447 ) nil |
469 nil |
448 nil |
470 ) |
449 ) |
471 |
450 |
472 "Modified: / 20.5.1998 / 01:08:12 / cg" |
|
473 ! ! |
451 ! ! |
474 |
452 |
475 !UIHelpTool methodsFor:'accessing'! |
453 !UIHelpTool methodsFor:'accessing'! |
476 |
454 |
477 dictionaries |
455 dictionaries |
710 ]. |
688 ]. |
711 ^'No class and selector defined.' |
689 ^'No class and selector defined.' |
712 |
690 |
713 |
691 |
714 |
692 |
|
693 ! |
|
694 |
|
695 openDocumentation |
|
696 "opens the documentation file of the Help Tool" |
|
697 |
|
698 self openHTMLDocument: 'tools/uipainter/HelpTool.html' |
715 ! ! |
699 ! ! |
716 |
700 |
717 !UIHelpTool methodsFor:'private'! |
701 !UIHelpTool methodsFor:'private'! |
718 |
702 |
719 askForModification |
703 askForModification |