The Trunk: ToolBuilder-Kernel-nice.60.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: ToolBuilder-Kernel-nice.60.mcz

commits-2
Nicolas Cellier uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-nice.60.mcz

==================== Summary ====================

Name: ToolBuilder-Kernel-nice.60
Author: nice
Time: 8 December 2013, 2:23:04.674 pm
UUID: 86949a07-725b-4a27-a7cd-a827c74f48be
Ancestors: ToolBuilder-Kernel-fbs.59

Classify some as yet unclassified methods

=============== Diff against ToolBuilder-Kernel-fbs.59 ===============

Item was changed:
+ ----- Method: ProgressInitiationException>>defaultAction (in category 'handling') -----
- ----- Method: ProgressInitiationException>>defaultAction (in category 'as yet unclassified') -----
  defaultAction
  self resume!

Item was changed:
+ ----- Method: ProgressInitiationException>>defaultResumeValue (in category 'handling') -----
- ----- Method: ProgressInitiationException>>defaultResumeValue (in category 'as yet unclassified') -----
  defaultResumeValue
  ^ UIManager default
  displayProgress: progressTitle
  at: aPoint
  from: minVal
  to: maxVal
  during: workBlock!

Item was changed:
+ ----- Method: ProgressInitiationException>>display:at:from:to:during: (in category 'initialize-release') -----
- ----- Method: ProgressInitiationException>>display:at:from:to:during: (in category 'as yet unclassified') -----
  display: argString at: argPoint from: argMinVal to: argMaxVal during: argWorkBlock
 
  progressTitle := argString.
  aPoint := argPoint.
  minVal := argMinVal.
  maxVal := argMaxVal.
  workBlock := argWorkBlock.
  ^self signal!

Item was changed:
+ ----- Method: ProgressInitiationException>>sendNotificationsTo: (in category 'initialize-release') -----
- ----- Method: ProgressInitiationException>>sendNotificationsTo: (in category 'as yet unclassified') -----
  sendNotificationsTo: aNewBlock
 
  self resume: (
  workBlock value: [ :barVal |
  aNewBlock value: minVal value: maxVal value: barVal
  ]
  )
  !