Smalltalk_

Size: px

Start display at page:

Download "Smalltalk_20120801"

さみらやまがた
7 years ago
Views:

1 USB DataSet/ DataSet.png DataSet.st Dataset KSU_WorkDataSet.html KSU_WorkProcess.html index.html index.html HTML Dataset.png (Excel ) File Browser DataSet.st File in System Browser KSU-Template Window (WorkDataSet) Object (WorkProcess) example1

2 KSU-Template, WorkDataSet, Class, interface spec, window spec Edit

3 Menu Bar Enable Apply ( #menubar )

4 (menubar )

5 DataSet (2 2 )

6 Position

7 Apply

8 Dataset KSU-Template, WorkDataSet, Instance, aspects, selectioninlist

9 Apply

10 Install

11 example2 example2 "KSU.WorkDataSet example2." anapplication anapplication := KSU.WorkDataSet new. anapplication addrow: ((KSU.WorkProcess new) workname: ' '; workstart: '2012/07/20'; workend: '2012/07/31'; workperson: ' '; yourself). anapplication addrow: ((KSU.WorkProcess new)

12 workname: ' '; workstart: '2012/08/01'; workend: '2012/08/15'; workperson: ' '; yourself). anapplication addrow: ((KSU.WorkProcess new) workname: ' '; yourself). anapplication open. ^anapplication workstart: '2012/08/16'; workend: '2012/08/31'; workperson: ' '; example1 example2

13 example1 4 Details Basics New Column

15 Row Size Row

17 Row Size 20 Row 4

18 Install windowspec windowspec "Tools.UIPainter new openonclass: self andselector: #windowspec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: ' ' #min: #(#{Core.Point} ) #max: #(#{Core.Point} 0 0 ) #bounds: #(#{Graphics.Rectangle} ) #flags: 4 #menu: #menubar )

19 #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.DataSetSpec} #properties: #(#{UI.PropertyListDictionary} #showhorizontallines true #allowcolumnresizing true #rowsize 20 #allowcolumnreordering false #showverticallines true ) #layout: #(#{Graphics.LayoutFrame} ) #name: #selectioninlist #model: #selectioninlist #columns: #( #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) ) ) ) ) ) windowspec windowspec "Tools.UIPainter new openonclass: self andselector: #windowspec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: ' ' #min: #(#{Core.Point} ) #max: #(#{Core.Point} 0 0 ) #bounds: #(#{Graphics.Rectangle} ) #flags: 4 #menu: #menubar ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.DataSetSpec} #properties: #(#{UI.PropertyListDictionary} #showhorizontallines true #allowcolumnresizing true #rowsize 20 #allowcolumnreordering false #showverticallines true )

20 #layout: #(#{Graphics.LayoutFrame} ) #name: #selectioninlist #model: #selectioninlist #columns: #( #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 200 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) ) ) ) ) ) example2 Spawn

23 windowspec ( ) windowspec "Tools.UIPainter new openonclass: self andselector: #windowspec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: ' ' #min: #(#{Core.Point} ) #max: #(#{Core.Point} 0 0 ) #bounds: #(#{Graphics.Rectangle} )

24 #flags: 4 #menu: #menubar ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.DataSetSpec} #properties: #(#{UI.PropertyListDictionary} #showhorizontallines true #allowcolumnresizing true #rowsize 20 #allowcolumnreordering false #showverticallines true ) #layout: #(#{Graphics.LayoutFrame} ) #name: #selectioninlist #model: #selectioninlist #columns: #( #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #label: ' ' #labelisimage: false #width: 300 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) ) ) ) ) )

25 windowspec "Tools.UIPainter new openonclass: self andselector: #windowspec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: ' ' #min: #(#{Core.Point} ) #max: #(#{Core.Point} 0 0 ) #bounds: #(#{Graphics.Rectangle} ) #flags: 4 #menu: #menubar ) #component:

26 #(#{UI.SpecCollection} #collection: #( #(#{UI.DataSetSpec} #properties: #(#{UI.PropertyListDictionary} #showhorizontallines true #allowcolumnresizing true #rowsize 20 #allowcolumnreordering false #showverticallines true ) #layout: #(#{Graphics.LayoutFrame} ) #name: #selectioninlist #model: #selectioninlist #columns: #( #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #model: #'selectedrow workname' " " #label: ' ' #labelisimage: false #width: 300 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) ) ) ) ) )

28 windowspec selectedrow aspects KSU-Template, WorkDataSet, Instance, aspects, selectedrow selectedrow selectedrow ifnil: [selectedrow := nil asvalue]. ^selectedrow ValueHolder (selectedrow ) KSU-Template, WorkDataSet, Instance, aspects, selectioninlist selectioninlist

29 selectioninlist ifnil: [selectioninlist := SelectionInList new. selectioninlist selectionindexholder compute: [:anindex self selectedrow value: selectioninlist selection]]. " " ^selectioninlist SelectionInList selectedrow WorkProcess ( ) WorkProcess 4 Smalltalk.KSU defineclass: #WorkProcess superclass: #{Core.Object} indexedtype: #none private: false instancevariablenames: 'workname workstart workend workperson ' classinstancevariablenames: '' imports: '' category: '' 3 windowspec "Tools.UIPainter new openonclass: self andselector: #windowspec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: ' ' #min: #(#{Core.Point} ) #max: #(#{Core.Point} 0 0 ) #bounds: #(#{Graphics.Rectangle} ) #flags: 4 #menu: #menubar ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.DataSetSpec} #properties: #(#{UI.PropertyListDictionary} #showhorizontallines true #allowcolumnresizing true #rowsize 20 #allowcolumnreordering false #showverticallines true ) #layout: #(#{Graphics.LayoutFrame} ) #name: #selectioninlist #model: #selectioninlist #columns: #( #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #model: #'selectedrow workname' #label: ' ' #labelisimage: false #width: 300 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #model: #'selectedrow workstart'

30 #label: ' ' #labelisimage: false #width: 100 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #model: #'selectedrow workend' #label: ' ' #labelisimage: false #width: 100 #editortype: #InputField #noscroll: false ) #(#{UI.DataSetColumnSpec} #properties: #(#{UI.PropertyListDictionary} #allowsorting true ) #model: #'selectedrow workperson' #label: ' ' #labelisimage: false #width: 80 #editortype: #InputField #noscroll: false ) ) ) ) ) )

32 ( ) Evaluate Pane

33 self editcell Print it Print it nil Print it 2 ( ) KSU-Template, WorkDataSet, Instance, menu messages, newdataset newdataset ^(self class new)

34 open; yourself ( ) KSU-Template, WorkDataSet, Instance, menu messages, saveasdataset saveasdataset afilename afilename := JunFileDialog requestnewfilename: ' ' initialfilename: self class defaultfilename. afilename ifnil: [^nil]. " " KSU-Template, WorkDataSet, Instance, menu messages, opendataset opendataset afilename afilename := JunFileDialog requestfilename: ' ' initialfilename: (self currentfilename ifnil: [self class defaultfilename] ifnotnil: [:it it yourself]). afilename ifnil: [^nil]. " " KSU-Template, WorkDataSet, Instance, menu messages, insertrow insertrow aworkprocess aworkprocess := KSU.WorkProcess fromrow: (Array new: 4 withall: String new). self editcell ifnil: [self addrow: aworkprocess] ifnotnil: [:apoint " "] KSU-Template, WorkDataSet, Instance, menu messages, deleterow deleterow self editcell ifnil: [JunDialog warn: ' '] ifnotnil: [:apoint aworkprocess aworkprocess := self workprocesses at: apoint y. (JunDialog confirm: ' ', aworkprocess workname, ' ' initialanswer: false) iftrue: [" "]] KSU-Template, WorkDataSet, Instance, menu messages, saveasdataset saveasdataset

35 afilename afilename := JunFileDialog requestnewfilename: ' ' initialfilename: self class defaultfilename. afilename ifnil: [^nil]. " " OrderedCollection KSU-Template, WorkDataSet, Instance, filein/out, wirtedatasetto: writedatasetto: afilename JunControlUtility assert: [(afilename withencoding: #UTF_8) writestream] do: [:astream self workprocesses do: [:aworkprocess self putrowcsv: astream with: aworkprocess asrow]] ensure: [:astream astream close]. currentfilename := afilename KSU-Template, WorkDataSet, Instance, accessing, workprocesses workprocesses ^self selectioninlist list Ordered Collection asrow acollection acollection := OrderedCollection new: self class allinstvarnames size. " Ordered Collection " acollection add: self workname. acollection add: self workstart. acollection add: self workend. acollection add: self workperson. ^acollection KSU-Template, WorkDataSet, Instance, csv support, putrowcsev: with: putrowcsv: astream with: arow arow do: csv " [:each astring astring := each isstring iftrue: [each] iffalse: [each printstring]. "String " astream nextputall: (self csvstring: astring)] ", separatedby: [astream nextput: $,]. astream cr

36 , csvstring: astring astream specialcharacters needdoublequote thestring astream := String new writestream. astream nextput: $"; nextput: $,; nextput: Character space; nextput: Character tab; nextput: Character cr; nextput: Character lf; nextput: Character newpage. specialcharacters := astream contents. astream close. needdoublequote := false. astring do: [:acharacter (specialcharacters includes: acharacter) iftrue: [needdoublequote := true]]. thestring := astring. needdoublequote iftrue: [astream := String new writestream. astream nextput: $". astring do: [:acharacter astream nextput: acharacter. acharacter = $" iftrue: [astream nextput: acharacter]]. astream nextput: $". thestring := astream contents. astream close]. ^thestring writedatasetto: KSU-Template, WorkDataSet, Instance,menu messages, saveasdataset saveasdataset afilename afilename := JunFileDialog requestnewfilename: ' ' initialfilename: self class defaultfilename. afilename ifnil: [^nil]. self writedatasetto: afilename, " wirte read KSU-Template, WorkDataSet, Instance,menu messages, opendataset opendataset afilename afilename := JunFileDialog requestfilename: ' ' initialfilename: (self currentfilename ifnil: [self class defaultfilename] ifnotnil:

37 [:it it yourself]). afilename ifnil: [^nil]. self readdatasetfrom: afilename ( ) KSU-Template, WorkDataSet, Instance,menu messages, savedataset savedataset self currentfilename ifnil: [self saveasdataset] ifnotnil: [:afilename self writedatasetto: afilename] KSU-Template, WorkDataSet, Instance,menu messages, insertrow

38 insertrow aworkprocess aworkprocess := KSU.WorkProcess fromrow: (Array new: 4 withall: String new). self editcell ifnil: [self addrow: aworkprocess] " " ifnotnil: [:apoint " "] " " KSU-Template, WorkDataSet, Instance,menu adding, addrow: addrow: aworkprocess self addrow: aworkprocess after: self workprocesses size workprocess size ( ) KSU-Template, WorkDataSet, Instance,menu adding, addrow: after: addrow: workprocess after: rowindex alist acollection alist := List new. acollection := self workprocesses. acollection isempty iftrue: [alist add: workprocess] iffalse: [acollection with: (1 to: acollection size) do: [:aworkprocess :anindex alist add: aworkprocess. anindex = rowindex iftrue: [alist add: workprocess]]]. self workprocesses: alist addrow: after: rowindex KSU-Template, WorkDataSet, Instance, menu messages, insertrow insertrow aworkprocess aworkprocess := KSU.WorkProcess fromrow: (Array new: 4 withall: String new). " " self editcell ifnil: [self addrow: aworkprocess] ifnotnil: [:apoint self addrow: aworkprocess after: apoint y] y

39 4 KSU-Template, WorkDataSet, Instance, menu messages, insertrow insertrow aworkprocess aworkprocess := KSU.WorkProcess fromrow: (Array new: KSU.WorkProcess allinstvarnames size withall: String new). self editcell ifnil: [self addrow: aworkprocess] ifnotnil: [:apoint self addrow: aworkprocess after: apoint y] KSU.WorkProcess Instance defaults Protocol defaultrowclass

40 KSU-Template, WorkDataSet, Instance, defaults, defaultrowclass defaultrowclass ^KSU.WorkProcess KSU-Template, WorkDataSet, Instance, menu messages, insertrow insertrow aworkprocess

41 aworkprocess := KSU.WorkProcess fromrow: (Array new: self defaultrowclass allinstvarnames size withall: String new). self editcell ifnil: [self addrow: aworkprocess] ifnotnil: [:apoint self addrow: aworkprocess after: apoint y] KSU-Template, WorkDataSet, Instance, menu messages, deleterow deleterow self editcell ifnil: [JunDialog warn: ' '] ifnotnil: [:apoint aworkprocess aworkprocess := self workprocesses at: apoint y. (JunDialog confirm: ' ', aworkprocess workname, ' ' initialanswer: false) iftrue: [" "]] WorkProcess KSU-Template, WorkDataSet, Instance, removing, removerow: removerow: aworkprocess self workprocesses: (self workprocesses reject: [:each each = aworkprocess]) WorkProcess KSU-Template, WorkDataSet, Instance, menu messages, deleterow deleterow self editcell ifnil: [JunDialog warn: ' '] initialanswer: false) ifnotnil: [:apoint aworkprocess aworkprocess := self workprocesses at: apoint y. (JunDialog confirm: ' ', aworkprocess workname, ' ' iftrue: [self removerow: aworkprocess]]

42 List Table

Smalltalk_

Smalltalk_ USB 20120704/ VisualWorks78nc.zip vw78jun793mac.zip vw78jun793win.zip 20120704/ ClickEarth.html ClickEarth.pdf ClickEarth.st ClickEarth_files GUI GUI VisualWorks ClickEarth.html System Browser KSU Package