Smalltalk_

Size: px

Start display at page:

Download "Smalltalk_"

こうざぶろうまきい
7 years ago
Views:

1 USB / VisualWorks78nc.zip vw78jun793mac.zip vw78jun793win.zip / ClickEarth.html ClickEarth.pdf ClickEarth.st ClickEarth_files GUI GUI VisualWorks ClickEarth.html System Browser KSU Package Example System workspace fileinblock packageblock fileinblock := [ [ afilename afilename := JunFileRequesterDialog requestfilename. afilename ifnil: [^nil]. afilename filein] on: UserInterrupt do: [:anexception anexception proceed]]. packageblock := [ acollection (acollection := OrderedCollection new) add: #comment: -> 'Copyright KSU (Kyoto Sangyo University). All Right Reserved.'; add: #bundle: -> #KSU; add: #package: -> 'KSU-Template'; add: #namespace: -> #KSU; add: #category: -> 'KSU-Template'; yourself. JunSystem perform: ((acollection collect: [:each each key]) inject: String new into: [:selector :key selector, key]) assymbol witharguments: (acollection collect: [:each each value]) asarray]. fileinblock value. packageblock value ClickEarth.st.st KSU Package KSU-Template Template example1

2 windowspec Edit GUI

3 3

4 Menu Bar Apply Menu: #menubar Menu resources menubar

5 Click Widget Window ClickWidget1 Position ClickWidget1 ClickWidget1 Propotion Offset Apply

6 Basics ID #imageofearth

7 2 String ID

8 Apply Input Field 2

9 2 ID #longitudefiled Type String Apply

10 Apply Position label Color

11 Install example1

12 Menu Bar Menu Bar Smalltalk GUI Application Model windowspec windowspec KSU-Template, ClickEarth, Class, windowspec windowspec "Tools.UIPainter new openonclass: self andselector: #windowspec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: ' ' #min: #(#{Core.Point} ) #max: #(#{Core.Point} ) #bounds: #(#{Graphics.Rectangle} ) #flags: 4 <-- Menu Bar #menu: #menubar ) #component: Transcript

13 Transcript

14 Transcript Transcript cr; show: 'hoge' Do it hoge

15 windowspec Edit Visual #imageofearth Apply

16 resources imageofearth

17 Image Editor Install Install

18 Selector zzz

19 Default Click: #clicked: Filed Aspect

20 Install Filed KSU-Template, Instance, aspects, latitudefield latitudefield latitudefield ifnil: [latitudefield := String new asvalue]. ^latitudefield KSU-Template, Instance, aspects, longitudefield longitudefield longitudefield ifnil: [longitudefield := String new asvalue]. ^longitudefield imageofearth #clicked: KSU-Template, Instance, actions, clicked: clicked: thepoint apoint awrapper asensor aboolean apoint := thepoint. (awrapper := self builder ifnil: [^nil] ifnotnil: [:abuilder abuilder componentat: #imageofearth]) ifnil: [^nil]. asensor := awrapper widget controller sensor. JunCursors crosscursor showwhile: [aboolean := true. [aboolean] whiletrue: [apoint := asensor cursorpoint. apoint y = 0 iftrue: [apoint := apoint JunGeometry accuracy]. (self pictureofearth bounds containspoint: apoint) iftrue: [self updatelongitudefield: apoint; updatelatitudefield: apoint; updateviewfinderofearth: apoint. aboolean := asensor shiftdown]]] example1

21 click imageofearth ID imageofearth ID #imageofearth Senders imageofearth

22 Smalltalk MVC Application Model Sensor ( ) Builder ID Sensor View & Controller Filed Filed aspects Application Model Model View & Controller menubar Source decode KSU-Template, ClickEarth, Class, resources, menubar menubar "Tools.MenuEditor new openonclass: self andselector: #menubar" <resource: #menu> ^#(#{UI.Menu} #( #(#{UI.MenuItem} #rawlabel: ' ' #submenu: #(#{UI.Menu} #( #(#{UI.MenuItem} #rawlabel: ' ' #value: #viewearth ) #(#{UI.MenuItem} #rawlabel: ' ' #value: #closerequest ) ) #(1 1 ) nil ) ) ) #(1 ) nil ) decodeasliteralarray inspect it

23 Menu workspace self startup menubar clicked: _clicked: thepoint apoint awrapper asensor aboolean apoint := thepoint. (awrapper := self builder ifnil: [^nil] _ accept KSU-Template, ClickEarth, Instance, actions, clicked: clicked: apoint (self pictureofearth bounds containspoint: apoint) iffalse: [^nil]. self updatelongitudefield: apoint; updatelatitudefield: apoint; updateviewfinderofearth: apoint KSU-Template, ClickEarth, Instance, actions, clicked: clicked: apoint asensor (self pictureofearth bounds containspoint: apoint) iffalse: [^nil]. self updatelongitudefield: apoint; updatelatitudefield: apoint; updateviewfinderofearth: apoint. asensor := (self controllerat: #imageofearth) sensor. "<-- Click Widget sensor " asensor altdown inspect "<-- alt(option) inspect " yellowbutton Windows alt KSU-Template, ClickEarth, Instance, actions, clicked: clicked: apoint asensor (self pictureofearth bounds containspoint: apoint) iffalse: [^nil]. self updatelongitudefield: apoint; updatelatitudefield: apoint; updateviewfinderofearth: apoint. asensor := (self controllerat: #imageofearth) sensor.

24 [asensor altdown] whiletrue: "<-- alt " [Processor yield. Transcript cr; show: asensor cursorpoint printstring] clicked ( ) alt KSU-Template, ClickEarth, Instance, actions, clicked: clicked: apoint ablock asensor ablock := [:thepoint (self pictureofearth bounds containspoint: thepoint) iffalse: [^nil]. self updatelongitudefield: thepoint; updatelatitudefield: thepoint; updateviewfinderofearth: thepoint]. ablock value: apoint. asensor := (self controllerat: #imageofearth) sensor. [asensor altdown] whiletrue: [Processor yield. ablock value: asensor cursorpoint] ( alt ) zero clicked: apoint ablock asensor ablock := [:thepoint thepoint y = 0 iftrue: [thepoint y: JunGeometry accuracy]. (self pictureofearth bounds containspoint: thepoint) iffalse: [^nil]. self updatelongitudefield: thepoint; updatelatitudefield: thepoint; updateviewfinderofearth: thepoint]. ablock value: apoint. asensor := (self controllerat: #imageofearth) sensor. [asensor altdown] whiletrue: [Processor yield. ablock value: asensor cursorpoint] inspect

25 0 0 KSU-Template, ClickEarth, Instance, actions, _clicked: _clicked: thepoint apoint awrapper asensor aboolean apoint := thepoint. (awrapper := self builder ifnil: [^nil] ifnotnil: [:abuilder abuilder componentat: #imageofearth]) ifnil: [^nil]. asensor := awrapper widget controller sensor. JunCursors crosscursor showwhile: [aboolean := true. [aboolean] whiletrue: [apoint := asensor cursorpoint. apoint y = 0 iftrue: [apoint := apoint JunGeometry accuracy]. (self pictureofearth bounds containspoint: apoint) iftrue: [self updatelongitudefield: apoint; updatelatitudefield: apoint; updateviewfinderofearth: apoint. aboolean := asensor shiftdown]]] iffalse nil iftrue KSU-Template, ClickEarth, Instance, actions, clicked: clicked: apoint ablock asensor ablock := [:thepoint thepoint y = 0 iftrue: [thepoint y: JunGeometry accuracy]. (self pictureofearth bounds containspoint: thepoint) iftrue: [self updatelongitudefield: thepoint; updatelatitudefield: thepoint; updateviewfinderofearth: thepoint]]. ablock value: apoint. asensor := (self controllerat: #imageofearth) sensor. [asensor altdown] whiletrue: [Processor yield. ablock value: asensor cursorpoint]

Smalltalk_20120801

Smalltalk_20120801 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