302 ^ |
302 ^ |
303 #(Menu |
303 #(Menu |
304 ( |
304 ( |
305 (MenuItem |
305 (MenuItem |
306 label: 'File' |
306 label: 'File' |
307 translateLabel: true |
|
308 submenu: |
307 submenu: |
309 (Menu |
308 (Menu |
310 ( |
309 ( |
311 (MenuItem |
310 (MenuItem |
312 label: 'Create PatchFile...' |
311 label: 'Create PatchFile...' |
313 itemValue: createPatchFile |
312 itemValue: createPatchFile |
314 translateLabel: true |
|
315 ) |
313 ) |
316 (MenuItem |
314 (MenuItem |
317 label: '-' |
315 label: '-' |
318 ) |
316 ) |
319 (MenuItem |
317 (MenuItem |
320 label: 'Exit' |
318 label: 'Exit' |
321 itemValue: closeRequest |
319 itemValue: closeRequest |
322 translateLabel: true |
320 ) |
|
321 ) |
|
322 nil |
|
323 nil |
|
324 ) |
|
325 ) |
|
326 (MenuItem |
|
327 label: 'Class' |
|
328 submenu: |
|
329 (Menu |
|
330 ( |
|
331 (MenuItem |
|
332 label: 'Remove from Changeset' |
|
333 itemValue: removeClassFromChangeSet |
323 ) |
334 ) |
324 ) |
335 ) |
325 nil |
336 nil |
326 nil |
337 nil |
327 ) |
338 ) |
328 ) |
339 ) |
329 (MenuItem |
340 (MenuItem |
330 label: 'View' |
341 label: 'View' |
331 translateLabel: true |
|
332 submenu: |
342 submenu: |
333 (Menu |
343 (Menu |
334 ( |
344 ( |
335 (MenuItem |
345 (MenuItem |
336 enabled: canIncludeExtensionsHolder |
346 enabled: canIncludeExtensionsHolder |
337 label: 'Include Extensions' |
347 label: 'Include Extensions' |
338 itemValue: includeExtensions: |
348 itemValue: includeExtensions: |
339 translateLabel: true |
|
340 indication: includeExtensionsHolder |
349 indication: includeExtensionsHolder |
341 ) |
350 ) |
342 (MenuItem |
351 (MenuItem |
343 label: 'Include Category Changes' |
352 label: 'Include Category Changes' |
344 itemValue: includeCategoryChanges: |
353 itemValue: includeCategoryChanges: |
345 translateLabel: true |
|
346 indication: includeCategoryChangesHolder |
354 indication: includeCategoryChangesHolder |
347 ) |
355 ) |
348 ) |
356 ) |
349 nil |
357 nil |
350 nil |
358 nil |
351 ) |
359 ) |
352 ) |
360 ) |
353 (MenuItem |
361 (MenuItem |
354 label: 'Help' |
362 label: 'Help' |
355 translateLabel: true |
|
356 startGroup: conditionalRight |
363 startGroup: conditionalRight |
357 submenu: |
364 submenu: |
358 (Menu |
365 (Menu |
359 ( |
366 ( |
360 (MenuItem |
367 (MenuItem |
361 label: 'Documentation' |
368 label: 'Documentation' |
362 itemValue: openDocumentation |
369 itemValue: openDocumentation |
363 translateLabel: true |
|
364 ) |
370 ) |
365 (MenuItem |
371 (MenuItem |
366 label: '-' |
372 label: '-' |
367 ) |
373 ) |
368 (MenuItem |
374 (MenuItem |
369 label: 'About this Application...' |
375 label: 'About this Application...' |
370 itemValue: openAboutThisApplication |
376 itemValue: openAboutThisApplication |
371 translateLabel: true |
|
372 ) |
377 ) |
373 ) |
378 ) |
374 nil |
379 nil |
375 nil |
380 nil |
376 ) |
381 ) |
1061 self methodText value:(change prettyPrintedSource). |
1066 self methodText value:(change prettyPrintedSource). |
1062 self showSingleTextView. |
1067 self showSingleTextView. |
1063 ] |
1068 ] |
1064 |
1069 |
1065 "Modified: / 17-07-2012 / 18:31:32 / cg" |
1070 "Modified: / 17-07-2012 / 18:31:32 / cg" |
|
1071 ! |
|
1072 |
|
1073 removeClassFromChangeSet |
|
1074 |cls ok changedClasses| |
|
1075 |
|
1076 classChangeSet notNil ifTrue:[ |
|
1077 "/ only do if we compare a single class |
|
1078 (cls := classChangeSet classBeingCompared) notNil ifTrue:[ |
|
1079 ok := classChangeSet diffSet isEmptyOrNil. |
|
1080 ok ifFalse:[ |
|
1081 changedClasses := classChangeSet diffSet changedClasses. |
|
1082 (changedClasses size == 1 |
|
1083 and:[ changedClasses anElement == cls ]) ifTrue:[ |
|
1084 (methodsChangedFiltered isEmptyOrNil |
|
1085 and:[ methodsOnlyInAFiltered isEmptyOrNil |
|
1086 and:[ methodsOnlyInBFiltered isEmptyOrNil ]]) ifTrue:[ |
|
1087 ok := true. |
|
1088 ] |
|
1089 ] |
|
1090 ]. |
|
1091 ok ifTrue:[ |
|
1092 ChangeSet current condenseChangesForClass:cls |
|
1093 ]. |
|
1094 ]. |
|
1095 ]. |
1066 ! |
1096 ! |
1067 |
1097 |
1068 removeSelectedChangeInBFromImage |
1098 removeSelectedChangeInBFromImage |
1069 |change cls sel op| |
1099 |change cls sel op| |
1070 |
1100 |