35 |
35 |
36 customization |
36 customization |
37 " |
37 " |
38 Of course, it is possible to change the NewLauncher class itself |
38 Of course, it is possible to change the NewLauncher class itself |
39 as appropriate, however, we suggest you create a subclass (say MyLauncher), |
39 as appropriate, however, we suggest you create a subclass (say MyLauncher), |
40 define it as autoloaded in the patches file, and redefined some methods |
40 define it as autoloaded in the patches file, and redefine some methods |
41 there. That way, your changes are easier to reintroduce in case of |
41 in that class. |
42 an ST/X upgrade. |
42 That way, your changes are easier to reintroduce in case of an ST/X upgrade. |
43 |
43 |
44 |
44 |
45 adding more buttons to the button-panel: |
45 adding more buttons to the button-panel: |
46 |
46 |
47 see the method #buttonPanelSpec; |
47 see the method #buttonPanelSpec; |
48 it defines a list of selectors and icons, which is used by |
48 it defines a list of selectors and icons, which is used by |
49 #setupButtonPanelIn:. |
49 #setupButtonPanelIn:. |
50 There, for each entry, a button with that icon is created, |
50 There, for each entry, a button with that icon is created, |
51 which sends a selector-message to the launcher. |
51 which sends a selector-message to the launcher. |
52 |
52 |
53 Add entries to that list, and define appropriate methods. |
53 Add entries to that list, and define appropriate methods. |
54 For example, to add a button which opens a drawTool, |
54 For example, to add a button which opens a drawTool, |
55 change #buttonPanelSpec to: |
55 change #buttonPanelSpec to: |
56 |
56 |
57 buttonPanelSpec |
57 buttonPanelSpec |
58 ^ #( |
58 ^ #( |
59 #(startSystemBrowser 'SBrowser32x32.xbm') |
59 #(startSystemBrowser 'SBrowser32x32.xbm') |
60 #(startFileBrowser 'FBrowser32x32.xbm') |
60 #(startFileBrowser 'FBrowser32x32.xbm') |
61 #(nil nil) |
61 #(nil nil) |
62 #(startChangesBrowser 'CBrowser32x32.xbm') |
62 #(startChangesBrowser 'CBrowser32x32.xbm') |
63 #(nil nil) |
63 #(nil nil) |
64 #(nil nil) |
64 #(nil nil) |
65 #(startDrawTool 'DrawTool.xbm') |
65 #(startDrawTool 'DrawTool.xbm') |
66 ) |
66 ) |
67 |
67 |
68 the panel adjusts its height as appropriate - you may want to |
68 the panel adjusts its height as appropriate - you may want to |
69 create new (small) icons for a good look. |
69 create new (small) icons for a good look. |
70 |
70 |
71 adding an entry to a menu: |
71 adding an entry to a menu: |
72 |
72 |
73 see the #setupMenu method; either add another top-menu, or |
73 see the #setupMenu method; either add another top-menu, or |
74 add entries to an existing menu. |
74 add entries to an existing menu. |
75 " |
75 " |
76 ! |
76 ! |
77 |
77 |
78 documentation |
78 documentation |
79 " |
79 " |