equal
deleted
inserted
replaced
288 item := MenuItem |
288 item := MenuItem |
289 label: label |
289 label: label |
290 itemValue: [self hgMerge:head ]. |
290 itemValue: [self hgMerge:head ]. |
291 menu addItem: item. |
291 menu addItem: item. |
292 ]. |
292 ]. |
293 menu addItem: |
293 menu addItemLabel:'Revision...' value:[ self hgMergeWithRevision ]. |
294 (MenuItem |
|
295 label:'Revision...' |
|
296 itemValue: [ self hgMergeWithRevision ]). |
|
297 |
|
298 |
|
299 ^menu. |
294 ^menu. |
300 |
295 |
301 "Created: / 14-12-2012 / 19:14:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
296 "Created: / 14-12-2012 / 19:14:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
302 "Modified: / 28-03-2014 / 00:34:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
297 "Modified: / 28-03-2014 / 00:34:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
303 ! ! |
298 ! ! |
376 label: label |
371 label: label |
377 itemValue: [self hgUpdate: head ]. |
372 itemValue: [self hgUpdate: head ]. |
378 menu addItem: item. |
373 menu addItem: item. |
379 ]. |
374 ]. |
380 menu addSeparator. |
375 menu addSeparator. |
381 menu addItem: |
376 menu addItemLabel:'Revision...' value: [ self hgUpdateToRevision ]. |
382 (MenuItem |
|
383 label:'Revision...' |
|
384 itemValue: [ self hgUpdateToRevision ]). |
|
385 |
|
386 |
|
387 ^menu. |
377 ^menu. |
388 |
378 |
389 "Created: / 28-03-2014 / 00:00:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
379 "Created: / 28-03-2014 / 00:00:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
390 "Modified: / 14-04-2014 / 11:49:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
380 "Modified: / 14-04-2014 / 11:49:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
391 ! ! |
381 ! ! |