bzr branch
http://9ix.org/bzr/traderous
|
53
by Josh C
beginnings of trading interface |
1 |
TradeView = Subview:extend {
|
2 |
drawParent = true, --default? |
|
3 |
onNew = function (self) |
|
4 |
-- create all the interface bits from the planet |
|
5 |
-- and add them to the view |
|
6 |
||
7 |
local boxL = the.app.width / 2 - 200 |
|
8 |
local boxT = the.app.height / 2 - 200 |
|
|
54
by Josh C
prices, buttons |
9 |
local boxR = boxL + 400 |
10 |
||
11 |
local lh = 17 -- line height |
|
|
53
by Josh C
beginnings of trading interface |
12 |
|
13 |
self:add(Fill:new{
|
|
14 |
fill = {255,255,255},
|
|
15 |
x = boxL - 1, |
|
16 |
y = boxT - 1, |
|
17 |
width = 402, |
|
18 |
height = 402, |
|
19 |
}) |
|
20 |
||
21 |
self:add(Fill:new{
|
|
22 |
fill = {0,0,0},
|
|
23 |
x = boxL, |
|
24 |
y = boxT, |
|
25 |
width = 400, |
|
26 |
height = 400, |
|
27 |
}) |
|
28 |
||
29 |
for i, good in ipairs(self.planet.goods) do |
|
30 |
local t = Text:new{
|
|
31 |
text = good[1], |
|
32 |
x = boxL + 10, |
|
|
54
by Josh C
prices, buttons |
33 |
y = boxT + 10 + (i-1) * lh, |
|
53
by Josh C
beginnings of trading interface |
34 |
width = 380 |
35 |
} |
|
36 |
||
|
54
by Josh C
prices, buttons |
37 |
self:add(t) |
38 |
||
39 |
t = Text:new{
|
|
40 |
text = good[2], |
|
41 |
x = boxL + 10, |
|
42 |
y = boxT + 10 + (i-1) * lh, |
|
43 |
width = 300, |
|
44 |
align = 'right' |
|
45 |
} |
|
46 |
self:add(t) |
|
47 |
||
48 |
local b = Button:new{
|
|
49 |
x = boxR - 80, |
|
50 |
y = boxT + 10 + (i-1) * lh - 1, |
|
51 |
label = Text:new{ text = 'BUY', x = 1 },
|
|
52 |
} |
|
53 |
local tw, th = b.label:getSize() |
|
54 |
b.background = Fill:new{
|
|
55 |
fill = {100,100,100},
|
|
56 |
width = tw + 3, |
|
57 |
height = th |
|
58 |
} |
|
59 |
self:add(b) |
|
60 |
||
61 |
b = Button:new{
|
|
62 |
x = boxR - 40, |
|
63 |
y = boxT + 10 + (i-1) * lh - 1, |
|
64 |
label = Text:new{ text = 'SELL', x = 1 },
|
|
65 |
} |
|
66 |
local tw, th = b.label:getSize() |
|
67 |
b.background = Fill:new{
|
|
68 |
fill = {100,100,100},
|
|
69 |
width = tw + 3, |
|
70 |
height = th |
|
71 |
} |
|
72 |
self:add(b) |
|
|
53
by Josh C
beginnings of trading interface |
73 |
end |
|
55
by Josh C
close button |
74 |
|
75 |
local b = Button:new{
|
|
76 |
x = boxL, y = boxT, |
|
77 |
label = Text:new{ text = 'Close', x = 3, y = 2 },
|
|
78 |
onMouseDown = function() |
|
79 |
self:close() |
|
80 |
end |
|
81 |
} |
|
82 |
||
83 |
local tw, th = b.label:getSize() |
|
84 |
b.background = Fill:new{
|
|
85 |
fill = {100,100,100},
|
|
86 |
width = tw + 7, |
|
87 |
height = th + 4 |
|
88 |
} |
|
89 |
b.x = boxR - b.background.width - 10 |
|
90 |
b.y = boxT + 400 - b.background.height - 10 |
|
91 |
||
92 |
self:add(b) |
|
93 |
||
94 |
-- give the buttons a cycle to get out of the T/L corner |
|
95 |
self:update(0) |
|
|
53
by Josh C
beginnings of trading interface |
96 |
end, |
97 |
activate = function (self) |
|
98 |
the.cursor.visible = false |
|
99 |
love.mouse.setVisible(true) |
|
100 |
love.mouse.setGrab(false) |
|
101 |
||
102 |
Subview.activate(self) |
|
103 |
end, |
|
|
55
by Josh C
close button |
104 |
close = function (self) |
105 |
the.cursor.visible = true |
|
106 |
love.mouse.setVisible(false) |
|
107 |
love.mouse.setGrab(true) |
|
|
53
by Josh C
beginnings of trading interface |
108 |
|
|
55
by Josh C
close button |
109 |
self:deactivate() |
110 |
end, |
|
111 |
onUpdate = function (self) |
|
112 |
if the.keys:justPressed('escape') then
|
|
113 |
self:close() |
|
114 |
end |
|
115 |
end |
|
|
53
by Josh C
beginnings of trading interface |
116 |
} |