Inching Forward

| out |
out := DataStream newFileNamed:
         '/path-to-your-directory-here/wanted-items.dat'.
out nextPutAll: WantedDatabase wantedItems.
out close

|in|
in := DataStream fileNamed:
        '/path-to-your-directory-here/wanted-items.dat'.
[in atEnd] whileFalse:  
             [WantedDatabase wantedItems add: in next].
in close

| ma seaside |
HttpService allInstancesDo: 
   [:each | each stop. each unregister].
WAKom  stop.
seaside := WAKom  default.
ma := ModuleAssembly core.
ma serverRoot: FileDirectory default fullName.
ma alias: '/seaside' to: 
   [ma addPlug: [:request | seaside process: request]].
ma documentRoot: FileDirectory default fullName.
ma directoryIndex: 'index.html index.htm'.
ma serveFiles.
(HttpService startOn: 8080 named: 'httpd') plug: ma rootModule

add: 
  ((WAReportColumn selector: #enteredDate title: 'Entered Date')
      formatBlock: 
         [:enteredDate | enteredDate asDate mmddyyyy]; 
      yourself);

add: 
   (WAReportColumn
       renderBlock: 
         [:item | item isPurchasable 
                          ifTrue: ['Yes'] ifFalse: ['No']]
       title: 'Can Buy');

| ma seaside |
WAKomEncoded39  stop.
seaside := WAKomEncoded39  default.
ma := ModuleAssembly core.
ma serverRoot: FileDirectory default fullName.
ma alias: '/seaside' to: [ma addPlug: [:request | seaside process: request]].
ma documentRoot: FileDirectory default fullName.
ma directoryIndex: 'index.html index.htm'.
ma serveFiles.
(HttpService startOn: 8080 named: 'httpd') plug: ma rootModule

body {
  margin:50px 0px; padding:0px;
  text-align:center;
  font: 12px arial, sans;
}

table {
  margin-left: auto;
  margin-right: auto;
  border: 1px solid #848370;
  border-collapse: collapse;
  margin-bottom: 20px;
}

th {
  background-color: #b4bfcc;
  padding: 4px;
  font-size: 14px;
}

td {
  padding: 4px;
}

a {
  color: #103b61;
  text-decoration: none;
}

a:hover {
  text-decoration: underline;
}

form {
  margin-left: auto;
  margin-right: auto;
  width: 400px;
  text-align: left;
  background-color: #dee3e4;
  border: 1px #ccc solid;
  padding: 10px;
}

form input, textarea {
  border: 1px solid #b4bfcc;
  padding: 2px;
  width: 98%;
  margin-bottom: 10px;
}

form textarea {
  height: 150px;
  font: 12px arial, sans;
}

form input.submit {
  margin: 0;
  width: 50%;
}

updateRoot: anHtmlRoot
   super updateRoot: anHtmlRoot.
   anHtmlRoot linkToStyle: '/wanted.css'

wantedReport := WATableReport new rows: rows;
  columns: columns;
  yourself.
wantedReport rowPeriod: 1.
wantedReport rowColors: {'#ffffff'. '#eee'}

initialize
  super initialize.
  enteredDate := DateAndTime now

title: aTitle notes: someNotes
  ^ self new title: aTitle;
             notes: someNotes;
             yourself

wantedItem
  ^ wantedItem
      ifNil: [wantedItem := WantedItem new]

renderContentOn: html
  html
     form: [html text: 'Title: '.
        html textInput on: #title of: self wantedItem.
        html break.
        html text: 'Notes: '.
        html textArea on: #notes of: self wantedItem.
        html break.
        html submitButton on: #save of: self.
        html cancelButton on: #cancel of: self]

cancel
  self answer: nil

save
  self answer: wantedItem

renderContentOn: html
  html render: wantedReport.
  html anchor on: #add of: self

add
  | wantedItem |
  wantedItem := self call: WantedEditor new.
  wantedItem
     ifNotNil: [WantedDatabase wantedItems add: wantedItem]

initialize
  | rows columns |
  super initialize.
  columns := OrderedCollection new 
    add: ((WAReportColumn selector: #title title: 'Title')
               clickBlock: [:item | self edit: item];
           yourself);

    add: (WAReportColumn selector: #enteredDate
                         title: 'Entered Date');

    add: (WAReportColumn
            renderBlock: [:item | item isPurchasable asString]
            title: 'Can Buy');
          yourself.
  rows := WantedDatabase wantedItems.
  wantedReport := WATableReport new rows: rows;
                columns: columns;
                yourself

edit: aWantedItem
  self call: (WantedEditor new wantedItem: aWantedItem;
                 yourself)

initialize
  | rows columns |
  super initialize.
  columns := OrderedCollection new 
    add: ((WAReportColumn selector: #title title: 'Title')
               clickBlock: [:item | self edit: item];
           yourself);

    add: (WAReportColumn selector: #enteredDate
                        title: 'Entered Date');

    add: (WAReportColumn
            renderBlock: [:item | item isPurchasable asString]
            title: 'Can Buy');

    add: (WAReportColumn new title: 'Remove';
            valueBlock: [:item | 'Remove'];
            clickBlock: [:item | self remove: item];
            yourself);
      yourself.

  rows := WantedDatabase wantedItems.
  wantedReport := WATableReport new rows: rows;
                     columns: columns;
                     yourself

remove: aWantedItem
  WantedDatabase wantedItems remove: aWantedItem

title: aTitle notes: someNotes
  ^ self new title: aTitle;
       notes: someNotes;
       enteredDate: DateAndTime now;
       yourself

daysToWait
  ^ 14

isPurchasable
  ^ (DateAndTime now - enteredDate) days >= self daysToWait

initialize
  | rows columns |
  super initialize.
  columns := OrderedCollection new
  add: (WAReportColumn selector: #title 
                       title: 'Title');
  add: (WAReportColumn selector: #enteredDate 
                       title: 'Entered Date');
  add: (WAReportColumn selector: #isPurchasable 
                       title: 'Can Buy');
  yourself.
  rows := WantedDatabase wantedItems.
  wantedReport := WATableReport new rows: rows;
        columns: columns;
        yourself

renderContentOn: html
    html render: wantedReport

children
    ^ Array with: wantedReport

WantedDatabase wantedItems
add: (WantedItem title: 'Big Screen TV' 
                 notes: 'Need this for the Wii');
add: (WantedItem title: 'Extra Wii Controller' 
                 notes: 'For playing with a friend').

(WAReportColumn
    renderBlock: [:item | item isPurchasable asString]
    title: 'Can Buy');

wantedItems
   ^ wantedItems ifNil: [wantedItems := OrderedCollection new]

renderContentOn: html
   WantedDatabase wantedItems
       do: [:wantedItem | html paragraph: wantedItem title]

WantedDatabase wantedItems add:
   (WantedItem new
       title: 'Nintendo Wii';
       enteredDate: (DateAndTime  now);
       notes: 'Get some exercise while having fun')

WantedDatabase wantedItems size

canBeRoot
    ^ true

renderContentOn: html
    html text: 'Seaside Rocks!'

Inching Forward

Notes on getting started with HtDP

To Read

2007 personal study/projects review

Wanted: Migrating To a Newer Image Part 2

Wanted: Migrating to a Newer Image

Wanted: Beautification is Easy

Wanted -- A Seaside Tutorial: Part 5

Wanted -- A Seaside Tutorial: Part 4

Wanted -- A Seaside Tutorial: Part 3

Wanted -- A Seaside Tutorial: Part 2

Wanted -- A Seaside Tutorial

Navigating the World of Objects

Ramon Leon Screencast

Setting a Background Image in Squeak

Grokking the Grammar

Intro