equal
deleted
inserted
replaced
622 #collection: |
622 #collection: |
623 #( |
623 #( |
624 #(#FramedBoxSpec |
624 #(#FramedBoxSpec |
625 #name: 'framedBox1' |
625 #name: 'framedBox1' |
626 #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -34 1.0) |
626 #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -34 1.0) |
627 #label: 'Classes for code' |
627 #label: 'Class for code' |
|
628 #translateLabel: true |
628 #labelPosition: #topLeft |
629 #labelPosition: #topLeft |
629 ) |
630 ) |
630 #(#LabelSpec |
631 #(#LabelSpec |
631 #name: 'classLabel' |
632 #name: 'classLabel' |
632 #layout: #(#AlignmentOrigin 73 0.11 38 0 1 0.5) |
633 #layout: #(#AlignmentOrigin 73 0.11 38 0 1 0.5) |
633 #label: 'Class:' |
634 #label: 'Class:' |
|
635 #translateLabel: true |
634 #adjust: #right |
636 #adjust: #right |
635 #resizeForLabel: true |
637 #resizeForLabel: true |
636 ) |
638 ) |
637 #(#InputFieldSpec |
639 #(#InputFieldSpec |
638 #name: 'classNameInputField' |
640 #name: 'classNameInputField' |
642 ) |
644 ) |
643 #(#LabelSpec |
645 #(#LabelSpec |
644 #name: 'superClassLabel' |
646 #name: 'superClassLabel' |
645 #layout: #(#AlignmentOrigin 73 0.11 65 0 1 0.5) |
647 #layout: #(#AlignmentOrigin 73 0.11 65 0 1 0.5) |
646 #label: 'Superclass:' |
648 #label: 'Superclass:' |
|
649 #translateLabel: true |
647 #adjust: #right |
650 #adjust: #right |
648 #resizeForLabel: true |
651 #resizeForLabel: true |
649 ) |
652 ) |
650 #(#InputFieldSpec |
653 #(#InputFieldSpec |
651 #name: 'superclassNameInputField' |
654 #name: 'superclassNameInputField' |
660 #minorKey: #windowSpecForCommitWithoutChannels |
663 #minorKey: #windowSpecForCommitWithoutChannels |
661 ) |
664 ) |
662 ) |
665 ) |
663 ) |
666 ) |
664 ) |
667 ) |
|
668 |
|
669 "Modified: / 20.5.1998 / 03:46:17 / cg" |
665 ! |
670 ! |
666 |
671 |
667 formatEditSpec |
672 formatEditSpec |
668 "This resource specification was automatically generated |
673 "This resource specification was automatically generated |
669 by the UIPainter of ST/X." |
674 by the UIPainter of ST/X." |
2444 |
2449 |
2445 |cls| |
2450 |cls| |
2446 |
2451 |
2447 (cls := self resolveClassNamed) notNil |
2452 (cls := self resolveClassNamed) notNil |
2448 ifTrue: [SystemBrowser openInClass:cls] |
2453 ifTrue: [SystemBrowser openInClass:cls] |
2449 ifFalse:[self information:'No class defined!!'] |
2454 ifFalse:[self information:'No class defined !!'] |
2450 |
2455 |
2451 |
2456 "Modified: / 20.5.1998 / 03:48:04 / cg" |
2452 |
|
2453 ! |
2457 ! |
2454 |
2458 |
2455 doCopy |
2459 doCopy |
2456 "copy selected column to the clipboard" |
2460 "copy selected column to the clipboard" |
2457 |
2461 |