1003             labels := #('Cancel' 'Load'). 

  1003             labels := #('Cancel' 'Load'). 

  1004             values := #(nil #load). 

  1004             values := #(nil #load). 

  1005             default := askForRevision 

  1005             default := askForRevision 

  1006                             ifTrue:[2. "i.e. load"]

  1006                             ifTrue:[2. "i.e. load"]

  1007                             ifFalse:[1. "i.e. cancel"].

  1007                             ifFalse:[1. "i.e. cancel"].

  1008         ] ifFalse:[

  1009         ] ifFalse:[

  1009             changed isEmpty ifTrue:[

  1010             changed isEmpty ifTrue:[

  1010                 msg := msg , '\Attention:\Load will load methods which are not present in ''%4''.'.

  1011                 msg := msg , '\Attention:\Load will load methods which are not present in ''%4''.'.

  1011                 labels := #('Cancel' 'Load'). 

  1012                 labels := #('Cancel' 'Load'). 

  1012                 values := #(nil #load). 

  1013                 values := #(nil #load). 

  1013                 default := askForRevision 

  1014                 default := askForRevision 

  1014                                 ifTrue:[2. "i.e. load"]

  1015                                 ifTrue:[2. "i.e. load"]

  1015                                 ifFalse:[1. "i.e. cancel"].

  1016                                 ifFalse:[1. "i.e. cancel"].

  1016             ] ifFalse:[

  1018             ] ifFalse:[

  1017                 inChangeSet ifTrue:[

  1019                 inChangeSet ifTrue:[

  1018                     msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'.

  1020                     msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'.

  1019                 ].

  1021                 ].

  1020                 msg := msg , '\Merge will only load methods which are not present in ''%4'' (i.e. undo removals but preserve changes).'.

  1022                 msg := msg , '\Merge will only load methods which are not present in ''%4'' (i.e. undo removals but preserve changes).'.

  1029             labels := #('Cancel' 'Load'). 

  1031             labels := #('Cancel' 'Load'). 

  1030             values := #(nil #load). 

  1032             values := #(nil #load). 

  1031             default := askForRevision 

  1033             default := askForRevision 

  1032                             ifTrue:[2. "i.e. load"]

  1034                             ifTrue:[2. "i.e. load"]

  1033                             ifFalse:[1. "i.e. cancel"].

  1035                             ifFalse:[1. "i.e. cancel"].

  1034         ] ifFalse:[

  1037         ] ifFalse:[

  1035             inChangeSet ifTrue:[

  1038             inChangeSet ifTrue:[

  1036                 msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'.

  1039                 msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'.

  1037                 msg := msg , '\Merge will only load methods which are not present in ''%4'' (i.e. undo removals but preserve changes).'.

  1040                 msg := msg , '\Merge will only load methods which are not present in ''%4'' (i.e. undo removals but preserve changes).'.

  1038             ]

  1041             ]

  2850 ! !

  2853 ! !

  2851 

  2854 

  2852 !SourceCodeManagerUtilities class methodsFor:'documentation'!

  2855 !SourceCodeManagerUtilities class methodsFor:'documentation'!

  2853 

  2856 

  2854 version

  2857 version

  2856 ! !

  2859 ! !