A new version of Sake-SchedulerSeaside was added to project Sake : http://www.squeaksource.com/Sake/Sake-SchedulerSeaside-kph.1.mcz
==================== Summary ====================
Name: Sake-SchedulerSeaside-kph.1 Author: kph Time: 20 July 2009, 8:08:29 pm UUID: 68406afe-f643-44fb-a75e-69c298318ad2 Ancestors:
Seaside control panel for Sake/Scheduler
==================== Snapshot ====================
SystemOrganization addCategory: #'Sake-SchedulerSeaside'!
WAComponent subclass: #SakeSchedulerComponent instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Sake-SchedulerSeaside'!
----- Method: SakeSchedulerComponent>>renderContentOn: (in category 'as yet unclassified') ----- renderContentOn: html
| allServices | html preformatted: self scheduler printString. self scheduler isRunning ifFalse: [ html anchor on: #start of: self. ] ifTrue: [ html anchor on: #stop of: self. ]. html table: [ html tableRow: [ html tableHeading: 'Class'. html tableHeading: 'Description'. html tableHeading: 'Status'. html tableHeading: 'Next Run Time'. html tableHeading: 'Last Run Time'. html tableHeading: 'Control'. ]. allServices := (self scheduler class allServices gather: [ :ea | ea services ]) asOrderedCollection. self scheduler tasksDo: [ :task | html tableRow: [ self renderTask: task on: html ]. allServices remove: task. ]. allServices do: [ :task | html tableRow: [ self renderTask: task on: html ] ]. ]!
----- Method: SakeSchedulerComponent>>renderTask:on: (in category 'as yet unclassified') ----- renderTask: task on: html
html tableData title: task description; with: [ html render: task class name ].
html tableData title: task description; with: [ html render: task name ].
html tableData: [ task isScheduled ifFalse: [ html render: '--'] ifTrue: [ self scheduler isRunning ifFalse: [ html render: 'paused' ]. task isRunning ifTrue: [ html render: 'RUNNING']. task isSuspended ifTrue: [ html render:'(suspended)']. ] ].
html tableData: [ task isScheduled ifTrue: [ html render: task nextRunTime asTimeStamp asString ]. ].
html tableData: [ task isScheduled ifTrue: [ html render: task printLastRunTime ] ].
html tableData: [ task isRunning ifTrue: [ html space anchor callback: [ self taskSuspend: task ]; with: 'Suspend'. html space anchor callback: [ self taskTerminate: task ]; with: 'Stop'. ] ifFalse: [ html space anchor callback: [ self taskRun: task ]; with: 'Run Now'. ]. task isScheduled ifFalse: [ html space anchor callback: [ self taskAdd: task ]; with: 'Schedule'. ] ifTrue: [ html space anchor callback: [ self taskDelete: task ]; with: 'Unschedule'. ]. ].!
----- Method: SakeSchedulerComponent>>scheduler (in category 'as yet unclassified') ----- scheduler
^ Scheduler default!
----- Method: SakeSchedulerComponent>>start (in category 'as yet unclassified') ----- start
^ self scheduler start!
----- Method: SakeSchedulerComponent>>stop (in category 'as yet unclassified') ----- stop
^ self scheduler stop!
----- Method: SakeSchedulerComponent>>taskAdd: (in category 'as yet unclassified') ----- taskAdd: aTask
self scheduler addTask: aTask!
----- Method: SakeSchedulerComponent>>taskDelete: (in category 'as yet unclassified') ----- taskDelete: aTask
aTask delete!
----- Method: SakeSchedulerComponent>>taskDoNow: (in category 'as yet unclassified') ----- taskDoNow: aTask
aTask run!
----- Method: SakeSchedulerComponent>>taskRun: (in category 'as yet unclassified') ----- taskRun: aTask
aTask run!
----- Method: SakeSchedulerComponent>>taskSuspend: (in category 'as yet unclassified') ----- taskSuspend: aTask
aTask suspend!
----- Method: SakeSchedulerComponent>>taskTerminate: (in category 'as yet unclassified') ----- taskTerminate: aTask
aTask stop!
packages@lists.squeakfoundation.org