211 ^ |
209 ^ |
212 #(Menu |
210 #(Menu |
213 ( |
211 ( |
214 (MenuItem |
212 (MenuItem |
215 label: 'File' |
213 label: 'File' |
216 submenu: |
214 submenuChannel: menuSpecFile |
217 (Menu |
|
218 ( |
|
219 (MenuItem |
|
220 label: 'Compress' |
|
221 itemValue: doCompress |
|
222 isVisible: notEditingClassSource |
|
223 ) |
|
224 (MenuItem |
|
225 enabled: hasSingleSelection |
|
226 label: 'Compress for Class' |
|
227 itemValue: doCompressClass |
|
228 isVisible: notEditingClassSource |
|
229 ) |
|
230 (MenuItem |
|
231 enabled: hasSingleSelection |
|
232 label: 'Compress for Class && Selector' |
|
233 itemValue: doCompressSelector |
|
234 isVisible: notEditingClassSource |
|
235 ) |
|
236 (MenuItem |
|
237 label: 'Compare and Compress' |
|
238 itemValue: doCompareAndCompress |
|
239 isVisible: notEditingClassSource |
|
240 ) |
|
241 (MenuItem |
|
242 label: '-' |
|
243 isVisible: notEditingClassSource |
|
244 ) |
|
245 (MenuItem |
|
246 enabled: hasSingleSelection |
|
247 label: 'Fileout && Delete all Changes for Class' |
|
248 itemValue: doFileoutAndDeleteClassAll |
|
249 isVisible: notEditingClassSource |
|
250 ) |
|
251 (MenuItem |
|
252 enabled: hasSelection |
|
253 label: 'CheckIn && Delete all Changes for Class' |
|
254 itemValue: doCheckinAndDeleteClassAll |
|
255 isVisible: notEditingClassSource |
|
256 ) |
|
257 (MenuItem |
|
258 label: '-' |
|
259 isVisible: notEditingClassSource |
|
260 ) |
|
261 (MenuItem |
|
262 enabled: hasSelection |
|
263 label: 'Save In...' |
|
264 itemValue: doSave |
|
265 ) |
|
266 (MenuItem |
|
267 enabled: hasSingleSelection |
|
268 label: 'Save to End In...' |
|
269 itemValue: doSaveRest |
|
270 ) |
|
271 (MenuItem |
|
272 enabled: hasSingleSelection |
|
273 label: 'Save for Class to End In...' |
|
274 itemValue: doSaveClassRest |
|
275 ) |
|
276 (MenuItem |
|
277 enabled: hasSingleSelection |
|
278 label: 'Save all for Class In...' |
|
279 itemValue: doSaveClassAll |
|
280 ) |
|
281 (MenuItem |
|
282 label: '-' |
|
283 ) |
|
284 (MenuItem |
|
285 label: 'Writeback ClassFile' |
|
286 itemValue: doWriteBack |
|
287 isVisible: editingClassSource |
|
288 ) |
|
289 (MenuItem |
|
290 label: 'Writeback ChangeFile' |
|
291 itemValue: doWriteBack |
|
292 isVisible: notEditingClassSource |
|
293 ) |
|
294 (MenuItem |
|
295 label: '-' |
|
296 ) |
|
297 (MenuItem |
|
298 label: 'Update' |
|
299 itemValue: doUpdate |
|
300 ) |
|
301 (MenuItem |
|
302 label: '-' |
|
303 ) |
|
304 (MenuItem |
|
305 label: 'Exit' |
|
306 itemValue: menuExit |
|
307 ) |
|
308 ) |
|
309 nil |
|
310 nil |
|
311 ) |
|
312 ) |
215 ) |
313 (MenuItem |
216 (MenuItem |
314 label: 'CHANGE' |
217 label: 'CHANGE' |
315 submenu: |
218 submenuChannel: menuSpecChange |
316 (Menu |
|
317 ( |
|
318 (MenuItem |
|
319 enabled: hasSelection |
|
320 label: 'Apply' |
|
321 itemValue: doApply |
|
322 ) |
|
323 (MenuItem |
|
324 enabled: hasSingleSelection |
|
325 label: 'Apply to End' |
|
326 itemValue: doApplyRest |
|
327 ) |
|
328 (MenuItem |
|
329 enabled: hasSingleSelection |
|
330 label: 'Apply from Begin' |
|
331 itemValue: doApplyFromBeginning |
|
332 ) |
|
333 (MenuItem |
|
334 enabled: hasSingleSelection |
|
335 label: 'Apply for Class to End' |
|
336 itemValue: doApplyClassRest |
|
337 ) |
|
338 (MenuItem |
|
339 enabled: hasSingleSelection |
|
340 label: 'Apply for Class from Begin' |
|
341 itemValue: doApplyClassFromBeginning |
|
342 ) |
|
343 (MenuItem |
|
344 enabled: hasNoSelection |
|
345 label: 'Apply All' |
|
346 itemValue: doApplyAll |
|
347 ) |
|
348 (MenuItem |
|
349 enabled: hasSingleSelection |
|
350 label: 'Apply to Conflict or End' |
|
351 itemValue: doApplyToConflictOrEnd |
|
352 ) |
|
353 (MenuItem |
|
354 label: '-' |
|
355 ) |
|
356 (MenuItem |
|
357 enabled: hasSelection |
|
358 label: 'Delete' |
|
359 itemValue: doDelete |
|
360 ) |
|
361 (MenuItem |
|
362 enabled: hasSingleSelection |
|
363 label: 'Delete to End' |
|
364 itemValue: doDeleteRest |
|
365 ) |
|
366 (MenuItem |
|
367 enabled: hasSingleSelection |
|
368 label: 'Delete from Begin' |
|
369 itemValue: doDeleteFromBeginning |
|
370 ) |
|
371 (MenuItem |
|
372 enabled: hasSingleSelection |
|
373 label: 'Delete for Class to End' |
|
374 itemValue: doDeleteClassRest |
|
375 ) |
|
376 (MenuItem |
|
377 enabled: hasSingleSelection |
|
378 label: 'Delete for Class from Begin' |
|
379 itemValue: doDeleteClassFromBeginning |
|
380 ) |
|
381 (MenuItem |
|
382 enabled: hasSelection |
|
383 label: 'Delete all for Class' |
|
384 itemValue: doDeleteClassAll |
|
385 isVisible: hasNoMultiSelection |
|
386 ) |
|
387 (MenuItem |
|
388 enabled: hasSelection |
|
389 label: 'Delete all for Class && its Private Classes' |
|
390 itemValue: doDeleteClassAndPrivateClassesAll |
|
391 isVisible: hasNoMultiSelection |
|
392 ) |
|
393 (MenuItem |
|
394 enabled: hasSelection |
|
395 label: 'Delete all for Namespace' |
|
396 itemValue: doDeleteAllForNamespace |
|
397 ) |
|
398 (MenuItem |
|
399 enabled: hasSelection |
|
400 label: 'Delete all for Classes' |
|
401 itemValue: doDeleteClassAll |
|
402 isVisible: hasMultiSelection |
|
403 ) |
|
404 (MenuItem |
|
405 enabled: hasSelection |
|
406 label: 'Delete all for Classes && their Private Classes' |
|
407 itemValue: doDeleteClassAndPrivateClassesAll |
|
408 isVisible: hasMultiSelection |
|
409 ) |
|
410 (MenuItem |
|
411 label: '-' |
|
412 ) |
|
413 (MenuItem |
|
414 enabled: hasSelection |
|
415 label: 'Delete older Versions of Selected Method' |
|
416 itemValue: doDeleteClassSelectorOlder |
|
417 isVisible: hasNoMultiSelectionHolder |
|
418 ) |
|
419 (MenuItem |
|
420 enabled: hasSelection |
|
421 label: 'Delete older Versions of all Selected Methods' |
|
422 itemValue: doDeleteClassSelectorOlder |
|
423 isVisible: hasMultiSelectionHolder |
|
424 ) |
|
425 (MenuItem |
|
426 enabled: hasSelection |
|
427 label: 'Delete all Versions of Selected Method' |
|
428 itemValue: doDeleteClassSelectorAll |
|
429 isVisible: hasNoMultiSelectionHolder |
|
430 ) |
|
431 (MenuItem |
|
432 enabled: hasSelection |
|
433 label: 'Delete all Versions of all Selected Methods' |
|
434 itemValue: doDeleteClassSelectorAll |
|
435 isVisible: hasMultiSelectionHolder |
|
436 ) |
|
437 (MenuItem |
|
438 label: '-' |
|
439 ) |
|
440 (MenuItem |
|
441 enabled: hasSingleSelection |
|
442 label: 'Compare with Current' |
|
443 itemValue: doCompare |
|
444 ) |
|
445 (MenuItem |
|
446 label: '-' |
|
447 ) |
|
448 (MenuItem |
|
449 enabled: hasSelection |
|
450 label: 'Make Change a Patch' |
|
451 itemValue: doMakePatch |
|
452 ) |
|
453 ) |
|
454 nil |
|
455 nil |
|
456 ) |
|
457 ) |
219 ) |
458 (MenuItem |
220 (MenuItem |
459 label: 'Search' |
221 label: 'Search' |
460 submenu: |
222 submenuChannel: menuSpecSearch |
461 (Menu |
|
462 ( |
|
463 (MenuItem |
|
464 label: 'Class...' |
|
465 itemValue: findClass |
|
466 ) |
|
467 (MenuItem |
|
468 enabled: hasSelection |
|
469 label: 'First for Class' |
|
470 itemValue: findFirstForClass |
|
471 ) |
|
472 (MenuItem |
|
473 enabled: hasSelection |
|
474 label: 'Previous for Class' |
|
475 itemValue: findPreviousForClass |
|
476 ) |
|
477 (MenuItem |
|
478 enabled: hasSelection |
|
479 label: 'Next for Class' |
|
480 itemValue: findNextForClass |
|
481 ) |
|
482 (MenuItem |
|
483 enabled: hasSelection |
|
484 label: 'Last for Class' |
|
485 itemValue: findLastForClass |
|
486 ) |
|
487 (MenuItem |
|
488 label: '-' |
|
489 ) |
|
490 (MenuItem |
|
491 label: 'Selector...' |
|
492 itemValue: findSelector |
|
493 ) |
|
494 (MenuItem |
|
495 enabled: hasSelection |
|
496 label: 'Previous for Selector' |
|
497 itemValue: findPreviousForSelector |
|
498 ) |
|
499 (MenuItem |
|
500 enabled: hasSelection |
|
501 label: 'Next for Selector' |
|
502 itemValue: findNextForSelector |
|
503 ) |
|
504 (MenuItem |
|
505 label: '-' |
|
506 ) |
|
507 (MenuItem |
|
508 label: 'String...' |
|
509 itemValue: findString |
|
510 ) |
|
511 (MenuItem |
|
512 enabled: hasSelection |
|
513 label: 'Previous with String' |
|
514 itemValue: findPreviousForString |
|
515 ) |
|
516 (MenuItem |
|
517 enabled: hasSelection |
|
518 label: 'Next with String' |
|
519 itemValue: findNextForString |
|
520 ) |
|
521 (MenuItem |
|
522 label: '-' |
|
523 ) |
|
524 (MenuItem |
|
525 enabled: hasSelection |
|
526 label: 'Previous Difference' |
|
527 itemValue: findPreviousDifference |
|
528 ) |
|
529 (MenuItem |
|
530 enabled: hasSelection |
|
531 label: 'Next Difference' |
|
532 itemValue: findNextDifference |
|
533 ) |
|
534 (MenuItem |
|
535 label: '-' |
|
536 ) |
|
537 (MenuItem |
|
538 enabled: hasSelection |
|
539 label: 'Previous Snapshot' |
|
540 itemValue: findPreviousSnapshot |
|
541 ) |
|
542 (MenuItem |
|
543 enabled: hasSelection |
|
544 label: 'Next Snapshot' |
|
545 itemValue: findNextSnapshot |
|
546 ) |
|
547 (MenuItem |
|
548 label: 'Last Snapshot' |
|
549 itemValue: findLastSnapshot |
|
550 ) |
|
551 ) |
|
552 nil |
|
553 nil |
|
554 ) |
|
555 ) |
223 ) |
556 (MenuItem |
224 (MenuItem |
557 label: 'Browse' |
225 label: 'Browse' |
558 submenu: |
226 submenuChannel: menuSpecBrowse |
559 (Menu |
|
560 ( |
|
561 (MenuItem |
|
562 enabled: hasSingleSelection |
|
563 label: 'Class' |
|
564 itemValue: doBrowse |
|
565 ) |
|
566 (MenuItem |
|
567 label: '-' |
|
568 ) |
|
569 (MenuItem |
|
570 label: 'Senders...' |
|
571 itemValue: doBrowseSenders |
|
572 ) |
|
573 (MenuItem |
|
574 label: 'Implementors...' |
|
575 itemValue: doBrowseImplementors |
|
576 ) |
|
577 ) |
|
578 nil |
|
579 nil |
|
580 ) |
|
581 ) |
227 ) |
582 (MenuItem |
228 (MenuItem |
583 label: 'Settings' |
229 label: 'Settings' |
584 submenu: |
230 submenuChannel: menuSpecSettings |
585 (Menu |
|
586 ( |
|
587 (MenuItem |
|
588 label: 'Auto Compare' |
|
589 indication: autoCompare |
|
590 ) |
|
591 (MenuItem |
|
592 label: 'Autoload As Required' |
|
593 indication: autoloadAsRequired |
|
594 ) |
|
595 (MenuItem |
|
596 label: 'Show Diffs' |
|
597 indication: showingDiffs |
|
598 ) |
|
599 (MenuItem |
|
600 label: 'Auto Update' |
|
601 indication: autoUpdate |
|
602 ) |
|
603 (MenuItem |
|
604 label: '-' |
|
605 ) |
|
606 (MenuItem |
|
607 label: 'Add to ChangeSet when Applying' |
|
608 indication: updateChangeSet |
|
609 ) |
|
610 (MenuItem |
|
611 label: 'Ignore Public/Private in Categories (Dolphin code)' |
|
612 itemValue: ignorePublicPrivateCategories: |
|
613 indication: ignorePublicPrivateCategories |
|
614 isVisible: false |
|
615 ) |
|
616 (MenuItem |
|
617 label: '-' |
|
618 ) |
|
619 (MenuItem |
|
620 label: 'Apply into Package...' |
|
621 itemValue: setEnforcedPackage |
|
622 ) |
|
623 (MenuItem |
|
624 label: 'Apply into NameSpace...' |
|
625 itemValue: setEnforcedNameSpace |
|
626 ) |
|
627 (MenuItem |
|
628 label: '-' |
|
629 ) |
|
630 (MenuItem |
|
631 label: 'Settings...' |
|
632 itemValue: openSettingsDialog |
|
633 ) |
|
634 ) |
|
635 nil |
|
636 nil |
|
637 ) |
|
638 ) |
231 ) |
639 (MenuItem |
232 (MenuItem |
640 label: 'MENU_Help' |
233 label: 'MENU_Help' |
641 startGroup: conditionalRight |
234 submenuChannel: menuSpecHelp |
642 submenu: |
235 ) |
643 (Menu |
236 ) |
644 ( |
237 nil |
645 (MenuItem |
238 nil |
646 label: 'ChangesBrowser Documentation' |
239 ) |
647 itemValue: openHTMLDocument: |
240 |
648 argument: 'tools/cbrowser/TOP.html' |
241 "Modified: / 21-11-2016 / 23:46:22 / cg" |
649 ) |
242 ! |
650 (MenuItem |
243 |
651 label: '-' |
244 menuSpecBrowse |
652 ) |
245 "This resource specification was automatically generated |
653 (MenuItem |
246 by the MenuEditor of ST/X." |
654 label: 'About ChangesBrowser...' |
247 |
655 itemValue: openAboutThisApplication |
248 "Do not manually edit this!! If it is corrupted, |
656 ) |
249 the MenuEditor may not be able to read the specification." |
657 ) |
250 |
658 nil |
251 |
659 nil |
252 " |
660 ) |
253 MenuEditor new openOnClass:ChangesBrowser andSelector:#menuSpecBrowse |
|
254 (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecBrowse)) startUp |
|
255 " |
|
256 |
|
257 <resource: #menu> |
|
258 |
|
259 ^ |
|
260 #(Menu |
|
261 ( |
|
262 (MenuItem |
|
263 enabled: hasSingleSelection |
|
264 label: 'Class' |
|
265 itemValue: doBrowse |
|
266 ) |
|
267 (MenuItem |
|
268 label: '-' |
|
269 ) |
|
270 (MenuItem |
|
271 label: 'Senders...' |
|
272 itemValue: doBrowseSenders |
|
273 ) |
|
274 (MenuItem |
|
275 label: 'Implementors...' |
|
276 itemValue: doBrowseImplementors |
|
277 ) |
|
278 ) |
|
279 nil |
|
280 nil |
|
281 ) |
|
282 ! |
|
283 |
|
284 menuSpecChange |
|
285 "This resource specification was automatically generated |
|
286 by the MenuEditor of ST/X." |
|
287 |
|
288 "Do not manually edit this!! If it is corrupted, |
|
289 the MenuEditor may not be able to read the specification." |
|
290 |
|
291 |
|
292 " |
|
293 MenuEditor new openOnClass:ChangesBrowser andSelector:#menuSpecChange |
|
294 (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecChange)) startUp |
|
295 " |
|
296 |
|
297 <resource: #menu> |
|
298 |
|
299 ^ |
|
300 #(Menu |
|
301 ( |
|
302 (MenuItem |
|
303 enabled: hasSelection |
|
304 label: 'Apply' |
|
305 itemValue: doApply |
|
306 ) |
|
307 (MenuItem |
|
308 enabled: hasSingleSelection |
|
309 label: 'Apply to End' |
|
310 itemValue: doApplyRest |
|
311 ) |
|
312 (MenuItem |
|
313 enabled: hasSingleSelection |
|
314 label: 'Apply from Begin' |
|
315 itemValue: doApplyFromBeginning |
|
316 ) |
|
317 (MenuItem |
|
318 enabled: hasSingleSelection |
|
319 label: 'Apply for Class to End' |
|
320 itemValue: doApplyClassRest |
|
321 ) |
|
322 (MenuItem |
|
323 enabled: hasSingleSelection |
|
324 label: 'Apply for Class from Begin' |
|
325 itemValue: doApplyClassFromBeginning |
|
326 ) |
|
327 (MenuItem |
|
328 enabled: hasNoSelection |
|
329 label: 'Apply All' |
|
330 itemValue: doApplyAll |
|
331 ) |
|
332 (MenuItem |
|
333 enabled: hasSingleSelection |
|
334 label: 'Apply to Conflict or End' |
|
335 itemValue: doApplyToConflictOrEnd |
|
336 ) |
|
337 (MenuItem |
|
338 label: '-' |
|
339 ) |
|
340 (MenuItem |
|
341 enabled: hasSelection |
|
342 label: 'Delete' |
|
343 itemValue: doDelete |
|
344 ) |
|
345 (MenuItem |
|
346 enabled: hasSingleSelection |
|
347 label: 'Delete to End' |
|
348 itemValue: doDeleteRest |
|
349 ) |
|
350 (MenuItem |
|
351 enabled: hasSingleSelection |
|
352 label: 'Delete from Begin' |
|
353 itemValue: doDeleteFromBeginning |
|
354 ) |
|
355 (MenuItem |
|
356 enabled: hasSingleSelection |
|
357 label: 'Delete for Class to End' |
|
358 itemValue: doDeleteClassRest |
|
359 ) |
|
360 (MenuItem |
|
361 enabled: hasSingleSelection |
|
362 label: 'Delete for Class from Begin' |
|
363 itemValue: doDeleteClassFromBeginning |
|
364 ) |
|
365 (MenuItem |
|
366 enabled: hasSelection |
|
367 label: 'Delete all for Class' |
|
368 itemValue: doDeleteClassAll |
|
369 isVisible: hasNoMultiSelection |
|
370 ) |
|
371 (MenuItem |
|
372 enabled: hasSelection |
|
373 label: 'Delete all for Class && its Private Classes' |
|
374 itemValue: doDeleteClassAndPrivateClassesAll |
|
375 isVisible: hasNoMultiSelection |
|
376 ) |
|
377 (MenuItem |
|
378 enabled: hasSelection |
|
379 label: 'Delete all for Namespace' |
|
380 itemValue: doDeleteAllForNamespace |
|
381 ) |
|
382 (MenuItem |
|
383 enabled: hasSelection |
|
384 label: 'Delete all for Classes' |
|
385 itemValue: doDeleteClassAll |
|
386 isVisible: hasMultiSelection |
|
387 ) |
|
388 (MenuItem |
|
389 enabled: hasSelection |
|
390 label: 'Delete all for Classes && their Private Classes' |
|
391 itemValue: doDeleteClassAndPrivateClassesAll |
|
392 isVisible: hasMultiSelection |
|
393 ) |
|
394 (MenuItem |
|
395 label: '-' |
|
396 ) |
|
397 (MenuItem |
|
398 enabled: hasSelection |
|
399 label: 'Delete older Versions of Selected Method' |
|
400 itemValue: doDeleteClassSelectorOlder |
|
401 isVisible: hasNoMultiSelectionHolder |
|
402 ) |
|
403 (MenuItem |
|
404 enabled: hasSelection |
|
405 label: 'Delete older Versions of all Selected Methods' |
|
406 itemValue: doDeleteClassSelectorOlder |
|
407 isVisible: hasMultiSelectionHolder |
|
408 ) |
|
409 (MenuItem |
|
410 enabled: hasSelection |
|
411 label: 'Delete all Versions of Selected Method' |
|
412 itemValue: doDeleteClassSelectorAll |
|
413 isVisible: hasNoMultiSelectionHolder |
|
414 ) |
|
415 (MenuItem |
|
416 enabled: hasSelection |
|
417 label: 'Delete all Versions of all Selected Methods' |
|
418 itemValue: doDeleteClassSelectorAll |
|
419 isVisible: hasMultiSelectionHolder |
|
420 ) |
|
421 (MenuItem |
|
422 label: '-' |
|
423 ) |
|
424 (MenuItem |
|
425 enabled: hasSingleSelection |
|
426 label: 'Compare with Current' |
|
427 itemValue: doCompare |
|
428 ) |
|
429 (MenuItem |
|
430 enabled: hasSingleSelection |
|
431 label: 'Copy to Clipboard' |
|
432 itemValue: doCopyToClipboard |
|
433 ) |
|
434 (MenuItem |
|
435 label: '-' |
|
436 ) |
|
437 (MenuItem |
|
438 enabled: hasSelection |
|
439 label: 'Make Change a Patch' |
|
440 itemValue: doMakePatch |
|
441 ) |
|
442 ) |
|
443 nil |
|
444 nil |
|
445 ) |
|
446 |
|
447 "Modified: / 21-11-2016 / 23:46:42 / cg" |
|
448 ! |
|
449 |
|
450 menuSpecFile |
|
451 "This resource specification was automatically generated |
|
452 by the MenuEditor of ST/X." |
|
453 |
|
454 "Do not manually edit this!! If it is corrupted, |
|
455 the MenuEditor may not be able to read the specification." |
|
456 |
|
457 |
|
458 " |
|
459 MenuEditor new openOnClass:ChangesBrowser andSelector:#menuSpecFile |
|
460 (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecFile)) startUp |
|
461 " |
|
462 |
|
463 <resource: #menu> |
|
464 |
|
465 ^ |
|
466 #(Menu |
|
467 ( |
|
468 (MenuItem |
|
469 label: 'Compress' |
|
470 itemValue: doCompress |
|
471 isVisible: notEditingClassSource |
|
472 ) |
|
473 (MenuItem |
|
474 enabled: hasSingleSelection |
|
475 label: 'Compress for Class' |
|
476 itemValue: doCompressClass |
|
477 isVisible: notEditingClassSource |
|
478 ) |
|
479 (MenuItem |
|
480 enabled: hasSingleSelection |
|
481 label: 'Compress for Class && Selector' |
|
482 itemValue: doCompressSelector |
|
483 isVisible: notEditingClassSource |
|
484 ) |
|
485 (MenuItem |
|
486 label: 'Compare and Compress' |
|
487 itemValue: doCompareAndCompress |
|
488 isVisible: notEditingClassSource |
|
489 ) |
|
490 (MenuItem |
|
491 label: '-' |
|
492 isVisible: notEditingClassSource |
|
493 ) |
|
494 (MenuItem |
|
495 enabled: hasSingleSelection |
|
496 label: 'Fileout && Delete all Changes for Class' |
|
497 itemValue: doFileoutAndDeleteClassAll |
|
498 isVisible: notEditingClassSource |
|
499 ) |
|
500 (MenuItem |
|
501 enabled: hasSelection |
|
502 label: 'CheckIn && Delete all Changes for Class' |
|
503 itemValue: doCheckinAndDeleteClassAll |
|
504 isVisible: notEditingClassSource |
|
505 ) |
|
506 (MenuItem |
|
507 label: '-' |
|
508 isVisible: notEditingClassSource |
|
509 ) |
|
510 (MenuItem |
|
511 enabled: hasSelection |
|
512 label: 'Save In...' |
|
513 itemValue: doSave |
|
514 ) |
|
515 (MenuItem |
|
516 enabled: hasSingleSelection |
|
517 label: 'Save to End In...' |
|
518 itemValue: doSaveRest |
|
519 ) |
|
520 (MenuItem |
|
521 enabled: hasSingleSelection |
|
522 label: 'Save for Class to End In...' |
|
523 itemValue: doSaveClassRest |
|
524 ) |
|
525 (MenuItem |
|
526 enabled: hasSingleSelection |
|
527 label: 'Save all for Class In...' |
|
528 itemValue: doSaveClassAll |
|
529 ) |
|
530 (MenuItem |
|
531 label: '-' |
|
532 ) |
|
533 (MenuItem |
|
534 label: 'Writeback ClassFile' |
|
535 itemValue: doWriteBack |
|
536 isVisible: editingClassSource |
|
537 ) |
|
538 (MenuItem |
|
539 label: 'Writeback ChangeFile' |
|
540 itemValue: doWriteBack |
|
541 isVisible: notEditingClassSource |
|
542 ) |
|
543 (MenuItem |
|
544 label: '-' |
|
545 ) |
|
546 (MenuItem |
|
547 label: 'Update' |
|
548 itemValue: doUpdate |
|
549 ) |
|
550 (MenuItem |
|
551 label: '-' |
|
552 ) |
|
553 (MenuItem |
|
554 label: 'Exit' |
|
555 itemValue: menuExit |
|
556 ) |
|
557 ) |
|
558 nil |
|
559 nil |
|
560 ) |
|
561 ! |
|
562 |
|
563 menuSpecHelp |
|
564 "This resource specification was automatically generated |
|
565 by the MenuEditor of ST/X." |
|
566 |
|
567 "Do not manually edit this!! If it is corrupted, |
|
568 the MenuEditor may not be able to read the specification." |
|
569 |
|
570 |
|
571 " |
|
572 MenuEditor new openOnClass:ChangesBrowser andSelector:#menuSpecHelp |
|
573 (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecHelp)) startUp |
|
574 " |
|
575 |
|
576 <resource: #menu> |
|
577 |
|
578 ^ |
|
579 #(Menu |
|
580 ( |
|
581 (MenuItem |
|
582 label: 'ChangesBrowser Documentation' |
|
583 itemValue: openHTMLDocument: |
|
584 argument: 'tools/cbrowser/TOP.html' |
|
585 ) |
|
586 (MenuItem |
|
587 label: '-' |
|
588 ) |
|
589 (MenuItem |
|
590 label: 'About ChangesBrowser...' |
|
591 itemValue: openAboutThisApplication |
|
592 ) |
|
593 ) |
|
594 nil |
|
595 nil |
|
596 ) |
|
597 ! |
|
598 |
|
599 menuSpecSearch |
|
600 "This resource specification was automatically generated |
|
601 by the MenuEditor of ST/X." |
|
602 |
|
603 "Do not manually edit this!! If it is corrupted, |
|
604 the MenuEditor may not be able to read the specification." |
|
605 |
|
606 |
|
607 " |
|
608 MenuEditor new openOnClass:ChangesBrowser andSelector:#menuSpecSearch |
|
609 (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecSearch)) startUp |
|
610 " |
|
611 |
|
612 <resource: #menu> |
|
613 |
|
614 ^ |
|
615 #(Menu |
|
616 ( |
|
617 (MenuItem |
|
618 label: 'Class...' |
|
619 itemValue: findClass |
|
620 ) |
|
621 (MenuItem |
|
622 enabled: hasSelection |
|
623 label: 'First for Class' |
|
624 itemValue: findFirstForClass |
|
625 ) |
|
626 (MenuItem |
|
627 enabled: hasSelection |
|
628 label: 'Previous for Class' |
|
629 itemValue: findPreviousForClass |
|
630 ) |
|
631 (MenuItem |
|
632 enabled: hasSelection |
|
633 label: 'Next for Class' |
|
634 itemValue: findNextForClass |
|
635 ) |
|
636 (MenuItem |
|
637 enabled: hasSelection |
|
638 label: 'Last for Class' |
|
639 itemValue: findLastForClass |
|
640 ) |
|
641 (MenuItem |
|
642 label: '-' |
|
643 ) |
|
644 (MenuItem |
|
645 label: 'Selector...' |
|
646 itemValue: findSelector |
|
647 ) |
|
648 (MenuItem |
|
649 enabled: hasSelection |
|
650 label: 'Previous for Selector' |
|
651 itemValue: findPreviousForSelector |
|
652 ) |
|
653 (MenuItem |
|
654 enabled: hasSelection |
|
655 label: 'Next for Selector' |
|
656 itemValue: findNextForSelector |
|
657 ) |
|
658 (MenuItem |
|
659 label: '-' |
|
660 ) |
|
661 (MenuItem |
|
662 label: 'String...' |
|
663 itemValue: findString |
|
664 ) |
|
665 (MenuItem |
|
666 enabled: hasSelection |
|
667 label: 'Previous with String' |
|
668 itemValue: findPreviousForString |
|
669 ) |
|
670 (MenuItem |
|
671 enabled: hasSelection |
|
672 label: 'Next with String' |
|
673 itemValue: findNextForString |
|
674 ) |
|
675 (MenuItem |
|
676 label: '-' |
|
677 ) |
|
678 (MenuItem |
|
679 enabled: hasSelection |
|
680 label: 'Previous Difference' |
|
681 itemValue: findPreviousDifference |
|
682 ) |
|
683 (MenuItem |
|
684 enabled: hasSelection |
|
685 label: 'Next Difference' |
|
686 itemValue: findNextDifference |
|
687 ) |
|
688 (MenuItem |
|
689 label: '-' |
|
690 ) |
|
691 (MenuItem |
|
692 enabled: hasSelection |
|
693 label: 'Previous Snapshot' |
|
694 itemValue: findPreviousSnapshot |
|
695 ) |
|
696 (MenuItem |
|
697 enabled: hasSelection |
|
698 label: 'Next Snapshot' |
|
699 itemValue: findNextSnapshot |
|
700 ) |
|
701 (MenuItem |
|
702 label: 'Last Snapshot' |
|
703 itemValue: findLastSnapshot |
|
704 ) |
|
705 ) |
|
706 nil |
|
707 nil |
|
708 ) |
|
709 ! |
|
710 |
|
711 menuSpecSettings |
|
712 "This resource specification was automatically generated |
|
713 by the MenuEditor of ST/X." |
|
714 |
|
715 "Do not manually edit this!! If it is corrupted, |
|
716 the MenuEditor may not be able to read the specification." |
|
717 |
|
718 |
|
719 " |
|
720 MenuEditor new openOnClass:ChangesBrowser andSelector:#menuSpecSettings |
|
721 (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecSettings)) startUp |
|
722 " |
|
723 |
|
724 <resource: #menu> |
|
725 |
|
726 ^ |
|
727 #(Menu |
|
728 ( |
|
729 (MenuItem |
|
730 label: 'Auto Compare' |
|
731 indication: autoCompare |
|
732 ) |
|
733 (MenuItem |
|
734 label: 'Autoload As Required' |
|
735 indication: autoloadAsRequired |
|
736 ) |
|
737 (MenuItem |
|
738 label: 'Show Diffs' |
|
739 indication: showingDiffs |
|
740 ) |
|
741 (MenuItem |
|
742 label: 'Auto Update' |
|
743 indication: autoUpdate |
|
744 ) |
|
745 (MenuItem |
|
746 label: '-' |
|
747 ) |
|
748 (MenuItem |
|
749 label: 'Add to ChangeSet when Applying' |
|
750 indication: updateChangeSet |
|
751 ) |
|
752 (MenuItem |
|
753 label: 'Ignore Public/Private in Categories (Dolphin code)' |
|
754 itemValue: ignorePublicPrivateCategories: |
|
755 isVisible: false |
|
756 indication: ignorePublicPrivateCategories |
|
757 ) |
|
758 (MenuItem |
|
759 label: '-' |
|
760 ) |
|
761 (MenuItem |
|
762 label: 'Apply into Package...' |
|
763 itemValue: setEnforcedPackage |
|
764 ) |
|
765 (MenuItem |
|
766 label: 'Apply into NameSpace...' |
|
767 itemValue: setEnforcedNameSpace |
|
768 ) |
|
769 (MenuItem |
|
770 label: '-' |
|
771 ) |
|
772 (MenuItem |
|
773 label: 'Settings...' |
|
774 itemValue: openSettingsDialog |
661 ) |
775 ) |
662 ) |
776 ) |
663 nil |
777 nil |
664 nil |
778 nil |
665 ) |
779 ) |