[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