[Pkg] Sake : Sake-Core-kph.68.mcz

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Sun Dec 7 05:12:22 UTC 2008


A new version of Sake-Core was added to project Sake :
http://www.squeaksource.com/Sake/Sake-Core-kph.68.mcz

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

Name: Sake-Core-kph.68
Author: kph
Time: 7 December 2008, 5:12:20 am
UUID: 2c0e60f3-b4ea-47cb-9628-ca22ff0361ea
Ancestors: Sake-Core-kph.67

dixing onChanged:

=============== Diff against Sake-Core-kph.67 ===============

Item was added:
+ ----- Method: SakeTask class>>check:eval:onChanged: (in category 'as yet unclassified') -----
+ check: key eval: aBlock onChanged: aTaskOrBlock
+ 
+ 	^ self define: [ :task |
+ 		task	 if: [ task lastStatusAt: key hasChanged: aBlock value ].
+ 		task action: aTaskOrBlock. 
+ 	]!

Item was changed:
  ----- Method: SakeTask class>>checkUrl:onChanged: (in category 'as yet unclassified') -----
  checkUrl: url onChanged: aTask
  
+ 	^ (self check: url eval: [ (HTTPSocket httpGet: url) contents hash ] onChanged: aTask)
- 	^ (self check: [ (HTTPSocket httpGet: url) contents hash ] onChanged: aTask)
  	       defined;
+ 		  yourself
+ 		
+ "
+ self checkUrl: 'http://www.squeaksource.com/Sake/feed.rss' onChanged: [ self beep ].
+ "!
- 		  yourself!

Item was added:
+ ----- Method: SakeTask>>lastStatusAt:hasChanged: (in category 'signals') -----
+ lastStatusAt: key hasChanged: val
+ 
+ 	LastStatus ifNil: [ LastStatus := Dictionary new ].
+ 
+ 	^ (LastStatus at: key ifAbsent: nil) ~= (LastStatus at: key put: val)!

Item was removed:
- ----- Method: SakeTask class>>check:onChanged: (in category 'as yet unclassified') -----
- check: aBlock onChanged: aTask
- 
- 	^ self define: [ :task |
- 		task	 if: [ task lastStatusChanged: aBlock value ].
- 		task action: aTask. 
- 	]!

Item was removed:
- ----- Method: SakeTask class>>lastStatus (in category 'as yet unclassified') -----
- lastStatus
- 
- 	LastStatus ifNil: [ LastStatus := Dictionary new ]!

Item was removed:
- ----- Method: SakeTask>>lastStatusChanged: (in category 'signals') -----
- lastStatusChanged: val
- 
- 	LastStatus ifNil: [ LastStatus := Dictionary new ].
- 
- 	^ (LastStatus at: self ifAbsent: nil) ~= (LastStatus at: self put: val)!



More information about the Packages mailing list