832 " |
832 " |
833 |
833 |
834 <resource: #canvas> |
834 <resource: #canvas> |
835 |
835 |
836 ^ |
836 ^ |
837 #(#FullSpec |
837 #(FullSpec |
838 #name: #windowSpec |
838 name: windowSpec |
839 #window: |
839 window: |
840 #(#WindowSpec |
840 (WindowSpec |
841 #label: 'GUI Painter' |
841 label: 'GUI Painter' |
842 #name: 'GUI Painter' |
842 name: 'GUI Painter' |
843 #min: #(#Point 560 460) |
843 min: (Point 560 460) |
844 #max: #(#Point 1160 870) |
844 bounds: (Rectangle 14 46 622 569) |
845 #bounds: #(#Rectangle 174 290 782 813) |
845 menu: menu |
846 #menu: #menu |
|
847 ) |
846 ) |
848 #component: |
847 component: |
849 #(#SpecCollection |
848 (SpecCollection |
850 #collection: #( |
849 collection: ( |
851 #(#MenuPanelSpec |
850 (MenuPanelSpec |
852 #name: 'menuToolbarView' |
851 name: 'menuToolbarView' |
853 #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
852 layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
854 #level: 1 |
853 level: 1 |
855 #tabable: true |
854 tabable: true |
856 #menu: #menuToolbar |
855 menu: menuToolbar |
857 ) |
856 ) |
858 #(#VariableHorizontalPanelSpec |
857 (VariableHorizontalPanelSpec |
859 #name: 'hpanel' |
858 name: 'hpanel' |
860 #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0) |
859 layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0) |
861 #level: 1 |
860 level: 1 |
862 #component: |
861 component: |
863 #(#SpecCollection |
862 (SpecCollection |
864 #collection: #( |
863 collection: ( |
865 #(#ArbitraryComponentSpec |
864 (ArbitraryComponentSpec |
866 #name: 'treeView' |
865 name: 'treeView' |
867 #tabable: true |
866 tabable: true |
868 #menu: #menuEdit |
867 menu: menuEdit |
869 #hasHorizontalScrollBar: true |
868 hasHorizontalScrollBar: true |
870 #hasVerticalScrollBar: true |
869 hasVerticalScrollBar: true |
871 #miniScrollerHorizontal: true |
870 miniScrollerHorizontal: true |
872 #miniScrollerVertical: true |
871 miniScrollerVertical: true |
873 #hasBorder: false |
872 hasBorder: false |
874 #component: #treeView |
873 component: treeView |
875 ) |
874 ) |
876 #(#ViewSpec |
875 (ViewSpec |
877 #name: 'specHolderView' |
876 name: 'specHolderView' |
878 #level: 0 |
877 level: 0 |
879 #component: |
878 component: |
880 #(#SpecCollection |
879 (SpecCollection |
881 #collection: #( |
880 collection: ( |
882 #(#MenuPanelSpec |
881 (MenuPanelSpec |
883 #name: 'menuToolbar2View' |
882 name: 'menuToolbar2View' |
884 #layout: #(#LayoutFrame 2 0.0 2 0 -2 1.0 32 0) |
883 layout: (LayoutFrame 2 0.0 2 0 -2 1.0 32 0) |
885 #level: 0 |
884 level: 0 |
886 #tabable: true |
885 tabable: true |
887 #menu: #menuToolbar2 |
886 menu: menuToolbar2 |
888 ) |
887 ) |
889 #(#NoteBookViewSpec |
888 (NoteBookViewSpec |
890 #name: 'noteBook' |
889 name: 'noteBook' |
891 #layout: #(#LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0) |
890 layout: (LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0) |
892 #level: 0 |
891 level: 0 |
893 #enableChannel: #enableChannel |
892 enableChannel: enableChannel |
894 #tabable: true |
893 tabable: true |
895 #model: #tabModel |
894 model: tabModel |
896 #menu: #tabList |
895 menu: tabList |
897 #canvas: #noteBookView |
896 canvas: noteBookView |
898 ) |
897 ) |
899 #(#HorizontalPanelViewSpec |
898 (HorizontalPanelViewSpec |
900 #name: 'HorizontalPanel1' |
899 name: 'HorizontalPanel1' |
901 #layout: #(#LayoutFrame 2 0 -26 1 -2 1 -2 1) |
900 layout: (LayoutFrame 2 0 -26 1 -2 1 -2 1) |
902 #horizontalLayout: #fit |
901 horizontalLayout: fit |
903 #verticalLayout: #fit |
902 verticalLayout: fit |
904 #horizontalSpace: 3 |
903 horizontalSpace: 3 |
905 #verticalSpace: 3 |
904 verticalSpace: 3 |
906 #reverseOrderIfOKAtLeft: true |
905 reverseOrderIfOKAtLeft: true |
907 #component: |
906 component: |
908 #(#SpecCollection |
907 (SpecCollection |
909 #collection: #( |
908 collection: ( |
910 #(#ActionButtonSpec |
909 (ActionButtonSpec |
911 #label: 'Cancel' |
910 label: 'Cancel' |
912 #name: 'cancelButton' |
911 name: 'cancelButton' |
913 #activeHelpKey: #commitCancel |
912 activeHelpKey: commitCancel |
914 #tabable: true |
913 tabable: true |
915 #model: #cancel |
914 model: cancel |
916 #enableChannel: #modifiedChannel |
915 enableChannel: modifiedChannel |
917 #extent: #(#Point 200 24) |
916 extent: (Point 201 24) |
918 ) |
917 ) |
919 #(#ActionButtonSpec |
918 (ActionButtonSpec |
920 #label: 'OK' |
919 label: 'OK' |
921 #name: 'acceptButton' |
920 name: 'acceptButton' |
922 #activeHelpKey: #commitOK |
921 activeHelpKey: commitOK |
923 #tabable: true |
922 tabable: true |
924 #model: #accept |
923 model: accept |
925 #enableChannel: #modifiedChannel |
924 enableChannel: modifiedChannel |
926 #extent: #(#Point 201 24) |
925 extent: (Point 201 24) |
927 ) |
926 ) |
928 ) |
927 ) |
929 |
928 |
930 ) |
929 ) |
931 ) |
930 ) |
3581 "/ refetch - cls is now obsolete |
3580 "/ refetch - cls is now obsolete |
3582 cls := self targetClass. |
3581 cls := self targetClass. |
3583 |
3582 |
3584 doBrowse ifTrue:[ |
3583 doBrowse ifTrue:[ |
3585 methods := selectorsToGenerateCode |
3584 methods := selectorsToGenerateCode |
3586 collect:[:sel | self halt. cls compiledMethodAt:sel] |
3585 collect:[:sel | cls compiledMethodAt:sel] |
3587 thenSelect:[:m | m notNil]. |
3586 thenSelect:[:m | m notNil]. |
3588 |
3587 |
3589 UserPreferences systemBrowserClass |
3588 UserPreferences systemBrowserClass |
3590 browseMethods:methods |
3589 browseMethods:methods |
3591 title:'Some Aspect methods'. |
3590 title:'Some Aspect methods'. |