PerforceSourceCodeManagementSettingsAppl.st
changeset 18289 e1fdf7583090
parent 18084 b611644fdac8
child 18918 e3e314aab0bb
equal deleted inserted replaced
18288:4a300828291a 18289:e1fdf7583090
   726         self warn:ex description.
   726         self warn:ex description.
   727         ^false
   727         ^false
   728     ] do:[
   728     ] do:[
   729         result := PerforceSourceCodeManager checkPerforceSettings:(self defaultSettingsHolder value) forPackage:nil.
   729         result := PerforceSourceCodeManager checkPerforceSettings:(self defaultSettingsHolder value) forPackage:nil.
   730         result ifTrue:[
   730         result ifTrue:[
   731             icon := GenericToolbarIconLibrary ledGreen14x14.
   731             icon := ToolbarIconLibrary ledGreen14x14.
   732         ] ifFalse:[
   732         ] ifFalse:[
   733             icon := GenericToolbarIconLibrary ledRed14x14.
   733             icon := ToolbarIconLibrary ledRed14x14.
   734         ].
   734         ].
   735         self checkLabel value:(LabelAndIcon label:'Check' icon:icon).
   735         self checkLabel value:(LabelAndIcon label:'Check' icon:icon).
   736     ].
   736     ].
   737     ^false
   737     ^false
       
   738 
       
   739     "Modified: / 28-07-2018 / 10:01:17 / Claus Gittinger"
   738 !
   740 !
   739 
   741 
   740 condenseSourceCache
   742 condenseSourceCache
   741     self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
   743     self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
   742     Method flushSourceStreamCache.
   744     Method flushSourceStreamCache.
  1255 
  1257 
  1256     check isNil ifTrue:[
  1258     check isNil ifTrue:[
  1257         ^'unchecked'
  1259         ^'unchecked'
  1258     ].
  1260     ].
  1259     check ifTrue:[
  1261     check ifTrue:[
  1260         icon := GenericToolbarIconLibrary ledGreen14x14.
  1262         icon := ToolbarIconLibrary ledGreen14x14.
  1261     ] ifFalse:[
  1263     ] ifFalse:[
  1262         icon := GenericToolbarIconLibrary ledRed14x14.
  1264         icon := ToolbarIconLibrary ledRed14x14.
  1263     ].
  1265     ].
  1264 
  1266 
  1265     ^icon
  1267     ^icon
       
  1268 
       
  1269     "Modified: / 28-07-2018 / 10:01:10 / Claus Gittinger"
  1266 !
  1270 !
  1267 
  1271 
  1268 check:something
  1272 check:something
  1269     check := something.
  1273     check := something.
  1270 !
  1274 !