equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2007 by eXept Software AG |
2 COPYRIGHT (c) 2007 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
113 |
111 |
114 NewLauncher isNil ifTrue:[^ self]. |
112 NewLauncher isNil ifTrue:[^ self]. |
115 "/ cg - disabled. the icon is too ugly. |
113 "/ cg - disabled. the icon is too ugly. |
116 ^ self. |
114 ^ self. |
117 |
115 |
118 icon := ToolbarIconLibrary inspectLocals20x20Icon magnifiedTo:28@28. |
116 "/ icon := ToolbarIconLibrary inspectLocals20x20Icon magnifiedTo:28@28. |
119 |
117 "/ |
120 menuItem := MenuItem new |
118 "/ menuItem := MenuItem new |
121 label: 'View Tree Inspector'; |
119 "/ label: 'View Tree Inspector'; |
122 value: [ ViewTreeInspectorApplication open]; |
120 "/ value: [ ViewTreeInspectorApplication open]; |
123 isButton: true; |
121 "/ isButton: true; |
124 icon: icon; |
122 "/ icon: icon; |
125 nameKey: #viewInspect. |
123 "/ nameKey: #viewInspect. |
126 |
124 "/ |
127 menuItem startGroup:#right. |
125 "/ menuItem startGroup:#right. |
128 NewLauncher addMenuItem:menuItem in:'toolbar' |
126 "/ NewLauncher addMenuItem:menuItem in:'toolbar' |
129 position:#( #before #help) |
127 "/ position:#( #before #help) |
130 space:false. |
128 "/ space:false. |
131 |
129 |
132 " |
130 " |
133 self installInLauncher |
131 self installInLauncher |
134 self removeFromLauncher |
132 self removeFromLauncher |
135 " |
133 " |
136 ! |
134 ! |
137 |
135 |
138 postAutoload |
136 postAutoload |
139 "add myself to the launcher menu |
137 "add myself to the launcher menu |
140 " |
138 " |