221 "*** (and replace this comment by something more useful ;-)" |
221 "*** (and replace this comment by something more useful ;-)" |
222 |
222 |
223 "action to be added ..." |
223 "action to be added ..." |
224 |
224 |
225 Transcript showCR:self class name, ': action for #svnUpdateWithExternalDiff3 ...'. |
225 Transcript showCR:self class name, ': action for #svnUpdateWithExternalDiff3 ...'. |
|
226 ! ! |
|
227 |
|
228 !AbstractFileBrowser class methodsFor:'menu specs'! |
|
229 |
|
230 scmMenuSlice |
|
231 "This resource specification was automatically generated |
|
232 by the MenuEditor of ST/X." |
|
233 |
|
234 "Do not manually edit this!! If it is corrupted, |
|
235 the MenuEditor may not be able to read the specification." |
|
236 |
|
237 |
|
238 " |
|
239 MenuEditor new openOnClass:AbstractFileBrowser andSelector:#scmMenuSlice |
|
240 (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser scmMenuSlice)) startUp |
|
241 " |
|
242 |
|
243 <resource: #menu> |
|
244 |
|
245 ^ |
|
246 #(Menu |
|
247 ( |
|
248 (MenuItem |
|
249 label: 'CVS' |
|
250 translateLabel: true |
|
251 isVisible: cvsMenusAreShown |
|
252 submenuChannel: cvsMenu |
|
253 ) |
|
254 (MenuItem |
|
255 label: 'SVN' |
|
256 translateLabel: true |
|
257 isVisible: svnMenusAreShown |
|
258 submenuChannel: svnMenu |
|
259 ) |
|
260 (MenuItem |
|
261 label: 'Mercurial' |
|
262 translateLabel: true |
|
263 isVisible: mercurialMenusAreShown |
|
264 submenuChannel: mercurialMenu |
|
265 ) |
|
266 (MenuItem |
|
267 label: 'Perforce' |
|
268 translateLabel: true |
|
269 isVisible: perforceMenusAreShown |
|
270 submenuChannel: perforceMenu |
|
271 ) |
|
272 ) |
|
273 nil |
|
274 nil |
|
275 ) |
|
276 ! ! |
|
277 |
|
278 !AbstractFileBrowser class methodsFor:'menu specs-scm'! |
|
279 |
|
280 svnMenu |
|
281 "This resource specification was automatically generated |
|
282 by the MenuEditor of ST/X." |
|
283 |
|
284 "Do not manually edit this!! If it is corrupted, |
|
285 the MenuEditor may not be able to read the specification." |
|
286 |
|
287 |
|
288 " |
|
289 MenuEditor new openOnClass:AbstractFileBrowser andSelector:#svnMenu |
|
290 (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser svnMenu)) startUp |
|
291 " |
|
292 |
|
293 <resource: #menu> |
|
294 |
|
295 ^ |
|
296 #(Menu |
|
297 ( |
|
298 (MenuItem |
|
299 enabled: hasSubversionWorkingCopySelected |
|
300 label: 'Commit' |
|
301 itemValue: svnCommit |
|
302 translateLabel: true |
|
303 labelImage: (ResourceRetriever #'SVN::IconLibrary' commit 'Commit') |
|
304 ) |
|
305 (MenuItem |
|
306 label: '-' |
|
307 ) |
|
308 (MenuItem |
|
309 enabled: hasSubversionWorkingCopySelected |
|
310 label: 'Update' |
|
311 itemValue: svnUpdate |
|
312 translateLabel: true |
|
313 ) |
|
314 (MenuItem |
|
315 enabled: hasSubversionWorkingCopySelected |
|
316 label: 'Update with External Diff3 ' |
|
317 itemValue: svnUpdateWithExternalDiff3 |
|
318 translateLabel: true |
|
319 ) |
|
320 (MenuItem |
|
321 label: '-' |
|
322 ) |
|
323 (MenuItem |
|
324 enabled: hasSubversionWorkingCopySelected |
|
325 label: 'Add' |
|
326 itemValue: svnAdd |
|
327 translateLabel: true |
|
328 ) |
|
329 (MenuItem |
|
330 enabled: hasSubversionWorkingCopySelected |
|
331 label: 'Remove' |
|
332 itemValue: svnRemove |
|
333 translateLabel: true |
|
334 ) |
|
335 (MenuItem |
|
336 enabled: hasSubversionWorkingCopySelected |
|
337 label: 'Revert' |
|
338 itemValue: svnRevert |
|
339 translateLabel: true |
|
340 ) |
|
341 (MenuItem |
|
342 label: '-' |
|
343 ) |
|
344 (MenuItem |
|
345 enabled: hasSubversionWorkingCopySelected |
|
346 label: 'Status' |
|
347 itemValue: svnStatus |
|
348 translateLabel: true |
|
349 ) |
|
350 (MenuItem |
|
351 enabled: hasSubversionWorkingCopySelected |
|
352 label: 'Status (show updates)' |
|
353 itemValue: svnStatusShowUpdates |
|
354 translateLabel: true |
|
355 ) |
|
356 (MenuItem |
|
357 enabled: hasSubversionWorkingCopySelected |
|
358 label: 'Info' |
|
359 itemValue: svnInfo |
|
360 translateLabel: true |
|
361 ) |
|
362 (MenuItem |
|
363 label: '-' |
|
364 ) |
|
365 (MenuItem |
|
366 enabled: hasSubversionWorkingCopySelected |
|
367 label: 'Merge...' |
|
368 itemValue: svnMerge |
|
369 translateLabel: true |
|
370 ) |
|
371 (MenuItem |
|
372 enabled: hasSubversionWorkingCopySelected |
|
373 label: 'Merge with External Diff3...' |
|
374 itemValue: svnMergeWithExternalDiff3 |
|
375 translateLabel: true |
|
376 ) |
|
377 (MenuItem |
|
378 label: '-' |
|
379 ) |
|
380 (MenuItem |
|
381 enabled: hasSubversionWorkingCopySelected |
|
382 label: 'Compare with HEAD' |
|
383 itemValue: svnCompareWithHEAD |
|
384 translateLabel: true |
|
385 ) |
|
386 (MenuItem |
|
387 enabled: hasSubversionWorkingCopySelected |
|
388 label: 'Compare with Revision' |
|
389 itemValue: svnCompare |
|
390 translateLabel: true |
|
391 ) |
|
392 (MenuItem |
|
393 enabled: hasSubversionWorkingCopySelected |
|
394 label: 'Diff (svn diff ...)' |
|
395 itemValue: svnDiff |
|
396 translateLabel: true |
|
397 ) |
|
398 (MenuItem |
|
399 label: '-' |
|
400 ) |
|
401 (MenuItem |
|
402 enabled: hasSubversionWorkingCopySelected |
|
403 label: 'Debug' |
|
404 translateLabel: true |
|
405 submenu: |
|
406 (Menu |
|
407 ( |
|
408 (MenuItem |
|
409 enabled: hasSubversionWorkingCopySelected |
|
410 label: 'Open Working Copy Browser' |
|
411 itemValue: svnDebugOpenWorkingCopyBrowser |
|
412 translateLabel: true |
|
413 ) |
|
414 ) |
|
415 nil |
|
416 nil |
|
417 ) |
|
418 ) |
|
419 ) |
|
420 nil |
|
421 nil |
|
422 ) |
226 ! ! |
423 ! ! |
227 |
424 |
228 !ChangeSet methodsFor:'utilities'! |
425 !ChangeSet methodsFor:'utilities'! |
229 |
426 |
230 condenseChangesForPackage2:aPackageSymbol |
427 condenseChangesForPackage2:aPackageSymbol |