diff --git a/data/fonts/Times9k.bdf b/data/fonts/Times9k.bdf
deleted file mode 100644
index f1a67cd..0000000
--- a/data/fonts/Times9k.bdf
+++ /dev/null
@@ -1,3240 +0,0 @@
-STARTFONT 2.1
-COMMENT
-COMMENT Copyright (c) 2022, Sammy L. Koch (sammykoch2004@gmail.com),
-COMMENT with Reserved Font Name: "Times9k". Version 1.1.
-COMMENT
-COMMENT This Font Software is licensed under the SIL Open Font License, Version 1.1.
-FONT Times9k
-SIZE 7 72 72
-FONTBOUNDINGBOX 5 9 0 -2
-STARTPROPERTIES 11
-FOUNDRY "Fine"
-FAMILY_NAME "Times9k"
-WEIGHT_NAME "Book"
-SLANT "R"
-SETWIDTH_NAME "Book"
-SPACING "c"
-CHARSET_REGISTRY "ISO-8859"
-CHARSET_ENCODING "1"
-COPYRIGHT "Copyright (c) 2022, Sammy L. Koch"
-FONT_ASCENT 7
-FONT_DESCENT 2
-ENDPROPERTIES
-CHARS 256
-STARTCHAR C000
-ENCODING 0
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 0 0 0 0
-BITMAP
-ENDCHAR
-STARTCHAR C001
-ENCODING 1
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 5 1 0
-BITMAP
-a0
-a0
-00
-e0
-40
-ENDCHAR
-STARTCHAR C002
-ENCODING 2
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-f8
-f8
-a8
-a8
-f8
-88
-d8
-f8
-f8
-ENDCHAR
-STARTCHAR C003
-ENCODING 3
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 5 1 0
-BITMAP
-a0
-e0
-e0
-e0
-40
-ENDCHAR
-STARTCHAR C004
-ENCODING 4
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 1
-BITMAP
-60
-f0
-f0
-60
-ENDCHAR
-STARTCHAR C005
-ENCODING 5
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-60
-f0
-60
-f0
-f0
-60
-f0
-ENDCHAR
-STARTCHAR C006
-ENCODING 6
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 0
-BITMAP
-60
-f0
-f0
-60
-f0
-ENDCHAR
-STARTCHAR C007
-ENCODING 7
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 2 1 2
-BITMAP
-c0
-c0
-ENDCHAR
-STARTCHAR C010
-ENCODING 8
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-f8
-f8
-f8
-98
-98
-f8
-f8
-f8
-f8
-ENDCHAR
-STARTCHAR C011
-ENCODING 9
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 0 0 0 0
-BITMAP
-ENDCHAR
-STARTCHAR C012
-ENCODING 10
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 0 0 0 0
-BITMAP
-ENDCHAR
-STARTCHAR C013
-ENCODING 11
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-70
-30
-20
-60
-90
-60
-ENDCHAR
-STARTCHAR C014
-ENCODING 12
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-60
-20
-70
-20
-ENDCHAR
-STARTCHAR C015
-ENCODING 13
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 0 0 0 0
-BITMAP
-ENDCHAR
-STARTCHAR C016
-ENCODING 14
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-70
-50
-70
-40
-c0
-c0
-ENDCHAR
-STARTCHAR C017
-ENCODING 15
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-70
-50
-70
-50
-d0
-d0
-ENDCHAR
-STARTCHAR C020
-ENCODING 16
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-80
-c0
-e0
-f0
-e0
-c0
-80
-ENDCHAR
-STARTCHAR C021
-ENCODING 17
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-10
-30
-70
-f0
-70
-30
-10
-ENDCHAR
-STARTCHAR C022
-ENCODING 18
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 5 0 1
-BITMAP
-40
-e0
-40
-e0
-40
-ENDCHAR
-STARTCHAR C023
-ENCODING 19
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-a0
-a0
-a0
-a0
-00
-a0
-ENDCHAR
-STARTCHAR C024
-ENCODING 20
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 -1
-BITMAP
-f0
-d0
-d0
-d0
-50
-50
-50
-ENDCHAR
-STARTCHAR C025
-ENCODING 21
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-70
-c0
-a0
-50
-30
-e0
-ENDCHAR
-STARTCHAR C026
-ENCODING 22
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 2 0 0
-BITMAP
-f0
-f0
-ENDCHAR
-STARTCHAR C027
-ENCODING 23
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-40
-e0
-40
-e0
-40
-e0
-ENDCHAR
-STARTCHAR C030
-ENCODING 24
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 5 1 1
-BITMAP
-40
-e0
-40
-40
-40
-ENDCHAR
-STARTCHAR C031
-ENCODING 25
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 5 1 1
-BITMAP
-40
-40
-40
-e0
-40
-ENDCHAR
-STARTCHAR C032
-ENCODING 26
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 3 0 1
-BITMAP
-20
-f0
-20
-ENDCHAR
-STARTCHAR C033
-ENCODING 27
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 3 0 1
-BITMAP
-40
-f0
-40
-ENDCHAR
-STARTCHAR C034
-ENCODING 28
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 2 0 0
-BITMAP
-80
-f0
-ENDCHAR
-STARTCHAR C035
-ENCODING 29
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 3 0 1
-BITMAP
-50
-f0
-50
-ENDCHAR
-STARTCHAR C036
-ENCODING 30
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-60
-60
-f0
-f0
-f0
-ENDCHAR
-STARTCHAR C037
-ENCODING 31
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-f0
-f0
-f0
-60
-60
-60
-ENDCHAR
-STARTCHAR C040
-ENCODING 32
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 0 0 0 0
-BITMAP
-ENDCHAR
-STARTCHAR C041
-ENCODING 33
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 6 1 0
-BITMAP
-c0
-c0
-c0
-c0
-00
-c0
-ENDCHAR
-STARTCHAR C042
-ENCODING 34
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 3 0 3
-BITMAP
-50
-50
-a0
-ENDCHAR
-STARTCHAR C043
-ENCODING 35
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-50
-f0
-50
-50
-f0
-50
-ENDCHAR
-STARTCHAR C044
-ENCODING 36
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 8 0 -1
-BITMAP
-20
-70
-a0
-60
-20
-30
-e0
-20
-ENDCHAR
-STARTCHAR C045
-ENCODING 37
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 0
-BITMAP
-90
-30
-60
-c0
-90
-ENDCHAR
-STARTCHAR C046
-ENCODING 38
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-20
-50
-20
-60
-b0
-90
-60
-ENDCHAR
-STARTCHAR C047
-ENCODING 39
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 3 1 3
-BITMAP
-40
-40
-80
-ENDCHAR
-STARTCHAR C050
-ENCODING 40
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 6 2 0
-BITMAP
-40
-80
-80
-80
-80
-40
-ENDCHAR
-STARTCHAR C051
-ENCODING 41
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 6 0 0
-BITMAP
-80
-40
-40
-40
-40
-80
-ENDCHAR
-STARTCHAR C052
-ENCODING 42
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 3 1 3
-BITMAP
-a0
-40
-a0
-ENDCHAR
-STARTCHAR C053
-ENCODING 43
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 3 1 2
-BITMAP
-40
-e0
-40
-ENDCHAR
-STARTCHAR C054
-ENCODING 44
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 3 1 -1
-BITMAP
-c0
-c0
-80
-ENDCHAR
-STARTCHAR C055
-ENCODING 45
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 1 1 3
-BITMAP
-e0
-ENDCHAR
-STARTCHAR C056
-ENCODING 46
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 2 1 0
-BITMAP
-c0
-c0
-ENDCHAR
-STARTCHAR C057
-ENCODING 47
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-10
-10
-20
-40
-80
-80
-ENDCHAR
-STARTCHAR C060
-ENCODING 48
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-b0
-d0
-90
-60
-ENDCHAR
-STARTCHAR C061
-ENCODING 49
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-40
-c0
-40
-40
-40
-e0
-ENDCHAR
-STARTCHAR C062
-ENCODING 50
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-20
-40
-80
-f0
-ENDCHAR
-STARTCHAR C063
-ENCODING 51
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-20
-10
-90
-60
-ENDCHAR
-STARTCHAR C064
-ENCODING 52
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-60
-a0
-a0
-f0
-20
-ENDCHAR
-STARTCHAR C065
-ENCODING 53
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-f0
-80
-e0
-10
-90
-60
-ENDCHAR
-STARTCHAR C066
-ENCODING 54
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-80
-e0
-90
-90
-60
-ENDCHAR
-STARTCHAR C067
-ENCODING 55
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-f0
-10
-20
-40
-40
-40
-ENDCHAR
-STARTCHAR C070
-ENCODING 56
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-60
-90
-90
-60
-ENDCHAR
-STARTCHAR C071
-ENCODING 57
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-90
-70
-10
-60
-ENDCHAR
-STARTCHAR C072
-ENCODING 58
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 5 1 0
-BITMAP
-c0
-c0
-00
-c0
-c0
-ENDCHAR
-STARTCHAR C073
-ENCODING 59
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 5 0 -1
-BITMAP
-60
-00
-60
-60
-c0
-ENDCHAR
-STARTCHAR C074
-ENCODING 60
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 0
-BITMAP
-30
-60
-c0
-60
-30
-ENDCHAR
-STARTCHAR C075
-ENCODING 61
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 3 0 1
-BITMAP
-f0
-00
-f0
-ENDCHAR
-STARTCHAR C076
-ENCODING 62
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 0
-BITMAP
-c0
-60
-30
-60
-c0
-ENDCHAR
-STARTCHAR C077
-ENCODING 63
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-10
-60
-00
-40
-ENDCHAR
-STARTCHAR C100
-ENCODING 64
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-b0
-b0
-80
-60
-ENDCHAR
-STARTCHAR C101
-ENCODING 65
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-f0
-90
-90
-90
-ENDCHAR
-STARTCHAR C102
-ENCODING 66
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-e0
-90
-e0
-90
-90
-e0
-ENDCHAR
-STARTCHAR C103
-ENCODING 67
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-80
-80
-90
-60
-ENDCHAR
-STARTCHAR C104
-ENCODING 68
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-e0
-90
-90
-90
-90
-e0
-ENDCHAR
-STARTCHAR C105
-ENCODING 69
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-f0
-80
-e0
-80
-80
-f0
-ENDCHAR
-STARTCHAR C106
-ENCODING 70
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-f0
-80
-e0
-80
-80
-80
-ENDCHAR
-STARTCHAR C107
-ENCODING 71
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-70
-80
-b0
-90
-90
-60
-ENDCHAR
-STARTCHAR C110
-ENCODING 72
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-90
-f0
-90
-90
-90
-ENDCHAR
-STARTCHAR C111
-ENCODING 73
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-e0
-40
-40
-40
-40
-e0
-ENDCHAR
-STARTCHAR C112
-ENCODING 74
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-30
-10
-10
-10
-90
-60
-ENDCHAR
-STARTCHAR C113
-ENCODING 75
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-90
-e0
-90
-90
-90
-ENDCHAR
-STARTCHAR C114
-ENCODING 76
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-80
-80
-80
-80
-80
-f0
-ENDCHAR
-STARTCHAR C115
-ENCODING 77
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-f0
-f0
-90
-90
-90
-ENDCHAR
-STARTCHAR C116
-ENCODING 78
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-d0
-f0
-f0
-b0
-90
-ENDCHAR
-STARTCHAR C117
-ENCODING 79
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C120
-ENCODING 80
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-e0
-90
-e0
-80
-80
-80
-ENDCHAR
-STARTCHAR C121
-ENCODING 81
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 -1
-BITMAP
-60
-90
-90
-90
-b0
-60
-10
-ENDCHAR
-STARTCHAR C122
-ENCODING 82
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-e0
-90
-e0
-90
-90
-90
-ENDCHAR
-STARTCHAR C123
-ENCODING 83
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-40
-20
-90
-60
-ENDCHAR
-STARTCHAR C124
-ENCODING 84
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-e0
-40
-40
-40
-40
-40
-ENDCHAR
-STARTCHAR C125
-ENCODING 85
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-90
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C126
-ENCODING 86
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-90
-90
-f0
-60
-60
-ENDCHAR
-STARTCHAR C127
-ENCODING 87
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-90
-90
-f0
-f0
-90
-ENDCHAR
-STARTCHAR C130
-ENCODING 88
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-90
-60
-60
-90
-90
-ENDCHAR
-STARTCHAR C131
-ENCODING 89
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-90
-70
-10
-90
-60
-ENDCHAR
-STARTCHAR C132
-ENCODING 90
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-f0
-10
-20
-40
-80
-f0
-ENDCHAR
-STARTCHAR C133
-ENCODING 91
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 6 2 0
-BITMAP
-c0
-80
-80
-80
-80
-c0
-ENDCHAR
-STARTCHAR C134
-ENCODING 92
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-80
-80
-40
-20
-10
-10
-ENDCHAR
-STARTCHAR C135
-ENCODING 93
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 6 0 0
-BITMAP
-c0
-40
-40
-40
-40
-c0
-ENDCHAR
-STARTCHAR C136
-ENCODING 94
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 2 1 4
-BITMAP
-40
-a0
-ENDCHAR
-STARTCHAR C137
-ENCODING 95
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 1 0 -1
-BITMAP
-f0
-ENDCHAR
-STARTCHAR C140
-ENCODING 96
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 3 1 3
-BITMAP
-80
-80
-40
-ENDCHAR
-STARTCHAR C141
-ENCODING 97
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-60
-10
-f0
-70
-ENDCHAR
-STARTCHAR C142
-ENCODING 98
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-80
-80
-e0
-90
-90
-e0
-ENDCHAR
-STARTCHAR C143
-ENCODING 99
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 4 0 0
-BITMAP
-60
-80
-80
-60
-ENDCHAR
-STARTCHAR C144
-ENCODING 100
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-10
-10
-70
-90
-90
-70
-ENDCHAR
-STARTCHAR C145
-ENCODING 101
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-60
-f0
-80
-60
-ENDCHAR
-STARTCHAR C146
-ENCODING 102
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-30
-40
-e0
-40
-40
-40
-ENDCHAR
-STARTCHAR C147
-ENCODING 103
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 -2
-BITMAP
-60
-90
-90
-70
-10
-e0
-ENDCHAR
-STARTCHAR C150
-ENCODING 104
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-80
-80
-e0
-90
-90
-90
-ENDCHAR
-STARTCHAR C151
-ENCODING 105
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-40
-00
-c0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C152
-ENCODING 106
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 0 0
-BITMAP
-20
-00
-60
-20
-a0
-40
-ENDCHAR
-STARTCHAR C153
-ENCODING 107
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-80
-80
-90
-e0
-a0
-90
-ENDCHAR
-STARTCHAR C154
-ENCODING 108
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-80
-80
-80
-80
-a0
-40
-ENDCHAR
-STARTCHAR C155
-ENCODING 109
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-60
-f0
-f0
-90
-ENDCHAR
-STARTCHAR C156
-ENCODING 110
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-60
-90
-90
-90
-ENDCHAR
-STARTCHAR C157
-ENCODING 111
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-60
-90
-90
-60
-ENDCHAR
-STARTCHAR C160
-ENCODING 112
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 -2
-BITMAP
-60
-90
-90
-e0
-80
-80
-ENDCHAR
-STARTCHAR C161
-ENCODING 113
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 -2
-BITMAP
-60
-90
-90
-70
-10
-10
-ENDCHAR
-STARTCHAR C162
-ENCODING 114
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-b0
-c0
-80
-80
-ENDCHAR
-STARTCHAR C163
-ENCODING 115
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-70
-c0
-30
-e0
-ENDCHAR
-STARTCHAR C164
-ENCODING 116
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-40
-40
-e0
-40
-40
-20
-ENDCHAR
-STARTCHAR C165
-ENCODING 117
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C166
-ENCODING 118
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-90
-90
-60
-60
-ENDCHAR
-STARTCHAR C167
-ENCODING 119
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-90
-90
-f0
-f0
-ENDCHAR
-STARTCHAR C170
-ENCODING 120
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-90
-60
-60
-90
-ENDCHAR
-STARTCHAR C171
-ENCODING 121
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 -2
-BITMAP
-90
-90
-90
-70
-10
-e0
-ENDCHAR
-STARTCHAR C172
-ENCODING 122
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-f0
-30
-c0
-f0
-ENDCHAR
-STARTCHAR C173
-ENCODING 123
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 7 1 0
-BITMAP
-20
-40
-40
-80
-40
-40
-20
-ENDCHAR
-STARTCHAR C174
-ENCODING 124
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 1 7 2 0
-BITMAP
-80
-80
-80
-00
-80
-80
-80
-ENDCHAR
-STARTCHAR C175
-ENCODING 125
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 7 1 0
-BITMAP
-80
-40
-40
-20
-40
-40
-80
-ENDCHAR
-STARTCHAR C176
-ENCODING 126
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 2 0 3
-BITMAP
-50
-a0
-ENDCHAR
-STARTCHAR C177
-ENCODING 127
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-60
-88
-10
-60
-88
-10
-60
-88
-10
-ENDCHAR
-STARTCHAR C200
-ENCODING 128
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 0 0 0 0
-BITMAP
-ENDCHAR
-STARTCHAR C201
-ENCODING 129
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 3 0 4
-BITMAP
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C202
-ENCODING 130
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 3 2 4
-BITMAP
-e0
-e0
-e0
-ENDCHAR
-STARTCHAR C203
-ENCODING 131
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 3 0 4
-BITMAP
-f8
-f8
-f8
-ENDCHAR
-STARTCHAR C204
-ENCODING 132
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 3 0 1
-BITMAP
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C205
-ENCODING 133
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 6 0 1
-BITMAP
-c0
-c0
-c0
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C206
-ENCODING 134
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 6 0 1
-BITMAP
-38
-38
-38
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C207
-ENCODING 135
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 6 0 1
-BITMAP
-f8
-f8
-f8
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C210
-ENCODING 136
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 3 2 1
-BITMAP
-e0
-e0
-e0
-ENDCHAR
-STARTCHAR C211
-ENCODING 137
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 6 0 1
-BITMAP
-c0
-c0
-c0
-38
-38
-38
-ENDCHAR
-STARTCHAR C212
-ENCODING 138
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 2 1
-BITMAP
-e0
-e0
-e0
-e0
-e0
-e0
-ENDCHAR
-STARTCHAR C213
-ENCODING 139
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 6 0 1
-BITMAP
-f8
-f8
-f8
-38
-38
-38
-ENDCHAR
-STARTCHAR C214
-ENCODING 140
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 3 0 1
-BITMAP
-f8
-f8
-f8
-ENDCHAR
-STARTCHAR C215
-ENCODING 141
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 6 0 1
-BITMAP
-c0
-c0
-c0
-f8
-f8
-f8
-ENDCHAR
-STARTCHAR C216
-ENCODING 142
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 6 0 1
-BITMAP
-38
-38
-38
-f8
-f8
-f8
-ENDCHAR
-STARTCHAR C217
-ENCODING 143
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 6 0 1
-BITMAP
-f8
-f8
-f8
-f8
-f8
-f8
-ENDCHAR
-STARTCHAR C220
-ENCODING 144
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 3 0 -2
-BITMAP
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C221
-ENCODING 145
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 9 0 -2
-BITMAP
-c0
-c0
-c0
-00
-00
-00
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C222
-ENCODING 146
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-38
-38
-38
-00
-00
-00
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C223
-ENCODING 147
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-f8
-f8
-f8
-00
-00
-00
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C224
-ENCODING 148
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 6 0 -2
-BITMAP
-c0
-c0
-c0
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C225
-ENCODING 149
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 9 0 -2
-BITMAP
-c0
-c0
-c0
-c0
-c0
-c0
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C226
-ENCODING 150
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-38
-38
-38
-c0
-c0
-c0
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C227
-ENCODING 151
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-f8
-f8
-f8
-c0
-c0
-c0
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C230
-ENCODING 152
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 6 0 -2
-BITMAP
-38
-38
-38
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C231
-ENCODING 153
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-c0
-c0
-c0
-38
-38
-38
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C232
-ENCODING 154
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-38
-38
-38
-38
-38
-38
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C233
-ENCODING 155
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-f8
-f8
-f8
-38
-38
-38
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C234
-ENCODING 156
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 6 0 -2
-BITMAP
-f8
-f8
-f8
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C235
-ENCODING 157
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-c0
-c0
-c0
-f8
-f8
-f8
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C236
-ENCODING 158
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-38
-38
-38
-f8
-f8
-f8
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C237
-ENCODING 159
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 5 9 0 -2
-BITMAP
-f8
-f8
-f8
-f8
-f8
-f8
-c0
-c0
-c0
-ENDCHAR
-STARTCHAR C240
-ENCODING 160
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 0 0 0 0
-BITMAP
-ENDCHAR
-STARTCHAR C241
-ENCODING 161
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-40
-00
-c0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C242
-ENCODING 162
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-20
-70
-80
-80
-70
-20
-ENDCHAR
-STARTCHAR C243
-ENCODING 163
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-20
-50
-40
-e0
-40
-f0
-ENDCHAR
-STARTCHAR C244
-ENCODING 164
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 9 0 -2
-BITMAP
-90
-90
-60
-90
-90
-60
-90
-90
-60
-ENDCHAR
-STARTCHAR C245
-ENCODING 165
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 7 1 0
-BITMAP
-a0
-a0
-40
-e0
-40
-e0
-40
-ENDCHAR
-STARTCHAR C246
-ENCODING 166
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 1 5 1 0
-BITMAP
-80
-80
-00
-80
-80
-ENDCHAR
-STARTCHAR C247
-ENCODING 167
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-70
-c0
-a0
-50
-30
-e0
-ENDCHAR
-STARTCHAR C250
-ENCODING 168
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 1 0 5
-BITMAP
-a0
-ENDCHAR
-STARTCHAR C251
-ENCODING 169
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 0
-BITMAP
-60
-d0
-b0
-d0
-60
-ENDCHAR
-STARTCHAR C252
-ENCODING 170
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 1
-BITMAP
-60
-10
-70
-90
-90
-70
-ENDCHAR
-STARTCHAR C253
-ENCODING 171
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 3 0 1
-BITMAP
-50
-a0
-50
-ENDCHAR
-STARTCHAR C254
-ENCODING 172
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 2 0 1
-BITMAP
-f0
-10
-ENDCHAR
-STARTCHAR C255
-ENCODING 173
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 1 0 2
-BITMAP
-f0
-ENDCHAR
-STARTCHAR C256
-ENCODING 174
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 0
-BITMAP
-60
-d0
-b0
-b0
-60
-ENDCHAR
-STARTCHAR C257
-ENCODING 175
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 1 0 5
-BITMAP
-f0
-ENDCHAR
-STARTCHAR C260
-ENCODING 176
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 3 1 3
-BITMAP
-40
-a0
-40
-ENDCHAR
-STARTCHAR C261
-ENCODING 177
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 5 1 0
-BITMAP
-40
-e0
-40
-00
-e0
-ENDCHAR
-STARTCHAR C262
-ENCODING 178
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 4 1 3
-BITMAP
-80
-40
-80
-c0
-ENDCHAR
-STARTCHAR C263
-ENCODING 179
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 5 1 2
-BITMAP
-80
-40
-80
-40
-80
-ENDCHAR
-STARTCHAR C264
-ENCODING 180
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 3 1 3
-BITMAP
-40
-80
-80
-ENDCHAR
-STARTCHAR C265
-ENCODING 181
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 -2
-BITMAP
-90
-90
-90
-e0
-80
-80
-ENDCHAR
-STARTCHAR C266
-ENCODING 182
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 -1
-BITMAP
-f0
-d0
-d0
-d0
-50
-50
-50
-ENDCHAR
-STARTCHAR C267
-ENCODING 183
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 2 1 2
-BITMAP
-c0
-c0
-ENDCHAR
-STARTCHAR C270
-ENCODING 184
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 3 1 -1
-BITMAP
-c0
-40
-80
-ENDCHAR
-STARTCHAR C271
-ENCODING 185
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 2 4 1 3
-BITMAP
-40
-c0
-40
-40
-ENDCHAR
-STARTCHAR C272
-ENCODING 186
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 1
-BITMAP
-60
-90
-90
-60
-ENDCHAR
-STARTCHAR C273
-ENCODING 187
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 3 0 1
-BITMAP
-a0
-50
-a0
-ENDCHAR
-STARTCHAR C274
-ENCODING 188
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 0
-BITMAP
-90
-30
-60
-c0
-90
-ENDCHAR
-STARTCHAR C275
-ENCODING 189
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 0
-BITMAP
-90
-30
-60
-c0
-90
-ENDCHAR
-STARTCHAR C276
-ENCODING 190
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 0
-BITMAP
-90
-30
-60
-c0
-90
-ENDCHAR
-STARTCHAR C277
-ENCODING 191
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-40
-00
-60
-10
-90
-60
-ENDCHAR
-STARTCHAR C300
-ENCODING 192
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-c0
-00
-60
-90
-f0
-90
-90
-ENDCHAR
-STARTCHAR C301
-ENCODING 193
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-30
-00
-60
-90
-f0
-90
-90
-ENDCHAR
-STARTCHAR C302
-ENCODING 194
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-60
-90
-60
-90
-f0
-90
-90
-ENDCHAR
-STARTCHAR C303
-ENCODING 195
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-50
-a0
-60
-90
-f0
-90
-90
-ENDCHAR
-STARTCHAR C304
-ENCODING 196
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-90
-00
-60
-90
-f0
-90
-90
-ENDCHAR
-STARTCHAR C305
-ENCODING 197
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-60
-00
-60
-90
-f0
-90
-90
-ENDCHAR
-STARTCHAR C306
-ENCODING 198
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-70
-a0
-f0
-a0
-a0
-b0
-ENDCHAR
-STARTCHAR C307
-ENCODING 199
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 8 0 -2
-BITMAP
-60
-90
-80
-80
-90
-60
-20
-40
-ENDCHAR
-STARTCHAR C310
-ENCODING 200
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-c0
-00
-f0
-80
-e0
-80
-f0
-ENDCHAR
-STARTCHAR C311
-ENCODING 201
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-30
-00
-f0
-80
-e0
-80
-f0
-ENDCHAR
-STARTCHAR C312
-ENCODING 202
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-50
-a0
-f0
-80
-e0
-80
-f0
-ENDCHAR
-STARTCHAR C313
-ENCODING 203
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-90
-00
-f0
-80
-e0
-80
-f0
-ENDCHAR
-STARTCHAR C314
-ENCODING 204
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 7 1 0
-BITMAP
-80
-40
-00
-e0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C315
-ENCODING 205
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 7 1 0
-BITMAP
-20
-40
-00
-e0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C316
-ENCODING 206
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 7 1 0
-BITMAP
-40
-a0
-00
-e0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C317
-ENCODING 207
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-a0
-00
-e0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C320
-ENCODING 208
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-e0
-90
-d0
-90
-90
-e0
-ENDCHAR
-STARTCHAR C321
-ENCODING 209
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-50
-a0
-90
-d0
-f0
-b0
-90
-ENDCHAR
-STARTCHAR C322
-ENCODING 210
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-40
-20
-60
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C323
-ENCODING 211
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-20
-40
-60
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C324
-ENCODING 212
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-60
-90
-60
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C325
-ENCODING 213
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-50
-a0
-60
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C326
-ENCODING 214
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-90
-00
-60
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C327
-ENCODING 215
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 1
-BITMAP
-90
-60
-60
-90
-ENDCHAR
-STARTCHAR C330
-ENCODING 216
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-60
-90
-a0
-50
-90
-60
-ENDCHAR
-STARTCHAR C331
-ENCODING 217
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-80
-40
-90
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C332
-ENCODING 218
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-10
-20
-90
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C333
-ENCODING 219
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-60
-00
-90
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C334
-ENCODING 220
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-90
-00
-90
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C335
-ENCODING 221
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-10
-20
-90
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C336
-ENCODING 222
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-80
-e0
-90
-e0
-80
-80
-ENDCHAR
-STARTCHAR C337
-ENCODING 223
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 -1
-BITMAP
-60
-90
-a0
-90
-90
-a0
-80
-ENDCHAR
-STARTCHAR C340
-ENCODING 224
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-40
-20
-00
-60
-10
-f0
-70
-ENDCHAR
-STARTCHAR C341
-ENCODING 225
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-20
-40
-00
-60
-10
-f0
-70
-ENDCHAR
-STARTCHAR C342
-ENCODING 226
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-20
-50
-00
-60
-10
-f0
-70
-ENDCHAR
-STARTCHAR C343
-ENCODING 227
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-50
-a0
-00
-60
-10
-f0
-70
-ENDCHAR
-STARTCHAR C344
-ENCODING 228
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-50
-00
-60
-10
-f0
-70
-ENDCHAR
-STARTCHAR C345
-ENCODING 229
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-20
-50
-20
-60
-10
-f0
-70
-ENDCHAR
-STARTCHAR C346
-ENCODING 230
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-70
-b0
-a0
-70
-ENDCHAR
-STARTCHAR C347
-ENCODING 231
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 0 -2
-BITMAP
-60
-80
-80
-60
-40
-80
-ENDCHAR
-STARTCHAR C350
-ENCODING 232
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-40
-20
-00
-60
-f0
-80
-60
-ENDCHAR
-STARTCHAR C351
-ENCODING 233
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-20
-40
-00
-60
-f0
-80
-60
-ENDCHAR
-STARTCHAR C352
-ENCODING 234
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-20
-50
-00
-60
-f0
-80
-60
-ENDCHAR
-STARTCHAR C353
-ENCODING 235
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-50
-00
-60
-f0
-80
-60
-ENDCHAR
-STARTCHAR C354
-ENCODING 236
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 7 1 0
-BITMAP
-80
-40
-00
-c0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C355
-ENCODING 237
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 7 1 0
-BITMAP
-20
-40
-00
-c0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C356
-ENCODING 238
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 7 1 0
-BITMAP
-40
-a0
-00
-c0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C357
-ENCODING 239
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 3 6 1 0
-BITMAP
-a0
-00
-c0
-40
-40
-e0
-ENDCHAR
-STARTCHAR C360
-ENCODING 240
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-40
-20
-10
-70
-90
-90
-60
-ENDCHAR
-STARTCHAR C361
-ENCODING 241
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-50
-a0
-00
-60
-90
-90
-90
-ENDCHAR
-STARTCHAR C362
-ENCODING 242
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-40
-20
-00
-60
-90
-90
-60
-ENDCHAR
-STARTCHAR C363
-ENCODING 243
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-20
-40
-00
-60
-90
-90
-60
-ENDCHAR
-STARTCHAR C364
-ENCODING 244
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-60
-90
-00
-60
-90
-90
-60
-ENDCHAR
-STARTCHAR C365
-ENCODING 245
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-50
-a0
-00
-60
-90
-90
-60
-ENDCHAR
-STARTCHAR C366
-ENCODING 246
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-00
-60
-90
-90
-60
-ENDCHAR
-STARTCHAR C367
-ENCODING 247
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 5 0 1
-BITMAP
-40
-00
-f0
-00
-20
-ENDCHAR
-STARTCHAR C370
-ENCODING 248
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 4 0 0
-BITMAP
-60
-b0
-d0
-60
-ENDCHAR
-STARTCHAR C371
-ENCODING 249
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-40
-20
-00
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C372
-ENCODING 250
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-20
-40
-00
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C373
-ENCODING 251
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 7 0 0
-BITMAP
-60
-90
-00
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C374
-ENCODING 252
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-90
-00
-90
-90
-90
-60
-ENDCHAR
-STARTCHAR C375
-ENCODING 253
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 9 0 -2
-BITMAP
-20
-40
-00
-90
-90
-90
-70
-10
-e0
-ENDCHAR
-STARTCHAR C376
-ENCODING 254
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 6 0 0
-BITMAP
-80
-e0
-90
-90
-e0
-80
-ENDCHAR
-STARTCHAR C377
-ENCODING 255
-SWIDTH 714 0
-DWIDTH 5 0
-BBX 4 8 0 -2
-BITMAP
-90
-00
-90
-90
-90
-70
-10
-e0
-ENDCHAR
-ENDFONT
diff --git a/data/images/missing.bimg b/data/images/missing.bimg
deleted file mode 100644
index e788e91..0000000
--- a/data/images/missing.bimg
+++ /dev/null
@@ -1,15 +0,0 @@
-{
- {
- {"","787","808"},
- {"
","080","808"},
- {"","708","887"}
- },
- version = "1.0.0",
- animation = false,
- title = "Missing bimg",
- description = "Oh oh, the source is missing!",
- author = "Kristify",
- creator = "Keyboard and Mouse",
- date = "2022-09-11T19:04:24+0000",
-}
-
diff --git a/data/images/script.bimg b/data/images/script.bimg
deleted file mode 100644
index 4e5467c..0000000
--- a/data/images/script.bimg
+++ /dev/null
@@ -1,15 +0,0 @@
-{
- {
- {"ddd","7c7","208"},
- {"aaa","f32","403"},
- {"fff","733","867"}
- },
- version = "1.0.0",
- animation = false,
- title = "Missing bimg",
- description = "Oh oh, the source is missing!",
- author = "Kristify",
- creator = "Keyboard and Mouse",
- date = "2022-09-11T19:04:24+0000",
-}
-
diff --git a/data/pages/home.xml b/data/pages/home.xml
deleted file mode 100644
index ca6e09c..0000000
--- a/data/pages/home.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-
-
-
-
-
-
\ No newline at end of file
diff --git a/data/pages/index.xml b/data/pages/index.xml
index dfd177e..23ddf46 100644
--- a/data/pages/index.xml
+++ b/data/pages/index.xml
@@ -1,7 +1,17 @@
-
-
- - Home
- - Products
-
- >
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/data/pages/products.xml b/data/pages/products.xml
deleted file mode 100644
index 9397551..0000000
--- a/data/pages/products.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-
-
-
-
\ No newline at end of file
diff --git a/data/pages/theme.lua b/data/pages/theme.lua
index 116981d..a210b28 100644
--- a/data/pages/theme.lua
+++ b/data/pages/theme.lua
@@ -1,14 +1,3 @@
return {
- FrameBG = colors.black,
- MenubarBG = colors.cyan,
- MenubarText = colors.white,
- SelectionText = colors.white,
- SelectionBG = colors.black,
- ListBG = colors.gray,
- ListText = colors.black,
- LabelBG = colors.black,
- LabelText = colors.white,
- ScrollbarText = colors.black,
- ScrollbarBG = colors.gray,
- ScrollbarSymbolColor = colors.lightGray
+
}
\ No newline at end of file
diff --git a/data/pages/widget.xml b/data/pages/widget.xml
new file mode 100644
index 0000000..7eb18af
--- /dev/null
+++ b/data/pages/widget.xml
@@ -0,0 +1,16 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/data/products.lua b/data/products.lua
index 1565da6..189ab26 100644
--- a/data/products.lua
+++ b/data/products.lua
@@ -2,16 +2,25 @@
{
displayName = "Dirt",
description = "Has good quality.",
- bimg = { { "", " ", "888" }, { "", "888", "ccc" }, { "", "c c", " c " } },
- price = 2,
- id = "minecraft:dirt",
- metaname = "dirt",
+ price = 999,
+ id = "minecraft:dirt"
},
{
displayName = "Diamond",
description = "Only for a limited time!",
price = 14,
- id = "minecraft:diamond",
- metaname = "dia",
+ id = "minecraft:diamond"
+ },
+ {
+ displayName = "Emerald",
+ description = "Peps with longe nose like those stuff..",
+ price = 2,
+ id = "minecraft:emerald"
+ },
+ {
+ displayName = "Paper",
+ description = "Maby you need it, i dunno.",
+ price = 1,
+ id = "minecraft:paper"
},
}
diff --git a/src/frontend.lua b/src/frontend.lua
new file mode 100644
index 0000000..b274eb0
--- /dev/null
+++ b/src/frontend.lua
@@ -0,0 +1,98 @@
+local ctx = ({...})[1]
+local basalt = require("libs/basalt")
+
+local function searchObject(base, id)
+ local obj = base:getObject(id)
+ if not obj then
+ local tAll = base:getLastLayout()
+ for _,obj in pairs(tAll) do
+ if obj and obj.getType and obj.getType() == "Frame" then
+ local found = searchObject(obj, id)
+ if found then
+ return found
+ end
+ end
+ end
+ end
+ return obj
+end
+
+-- Button functoins
+basalt.setVariable("openHelpDialog", function()
+ --basalt.debug("But nobody came.")
+ os.queueEvent("kstUpdateProducts")
+end)
+basalt.setVariable("selectNewCategory", function()
+ basalt.debug("")
+end)
+
+-- Create frame
+local base = basalt.createFrame()
+ :setTheme(ctx.theme)
+ :addLayout(fs.combine(ctx.path.page, "index.xml"))
+
+-- Events
+basalt.onEvent(function(event)
+ if event == "kstUpdateProducts" then
+ local body = searchObject(base, "_body")
+ -- Clear
+ repeat
+ local obj = body:getObject("_widget")
+ body:removeObject(obj)
+ until not obj
+ -- Sort
+ local tItems = {}
+ for _,item in ipairs(ctx.products) do
+ if --[[INSERT CHECK IF IT IS AVAILABLE]] true then
+ local newItem = {
+ amount = 1, -- INSERT AVAILABLE AMOUNT
+ }
+ for k,v in pairs(item) do
+ newItem[k] = v
+ end
+ tItems[#tItems+1] = newItem
+ end
+ end
+ table.sort(tItems, function(a,b)
+ return a.amount > b.amount
+ end)
+ -- Get size of widget
+ local dummy = body:addLayout(fs.combine(ctx.path.page, "widget.xml"))
+ dummy = dummy:getObject("_widget")
+ local nW,_ = body:getSize()
+ local nSubW,nSubH = dummy:getSize()
+ body:removeObject(dummy)
+ -- Insert
+ local spaceW = nW/nSubW-1
+ local nX,nY = 0,0
+ for i,item in ipairs(tItems) do
+ body:addLayout(fs.combine(ctx.path.page, "widget.xml"))
+ local widget = body:getObject("_widget")
+ :setPosition(nSubW*nX+1, nSubH*nY+1)
+ widget.name = "_widget_"..i
+
+ -- Adjust data
+ local name = searchObject(widget, "_name")
+ :setText(item.displayName)
+
+ local amount = searchObject(widget, "_onStock")
+ :setText(item.amount.."x")
+
+ local button = searchObject(widget, "_purchase")
+ local _,h = button:getSize()
+ local btnLabel = item.price.."kst"
+ button
+ :setText(btnLabel)
+ :setSize(#btnLabel+2,h)
+
+ -- Next grid space
+ nX = nX+1
+ if nX > spaceW then
+ nX = 0
+ nY = nY+1
+ end
+ end
+ end
+end)
+
+basalt.autoUpdate(base)
\ No newline at end of file
diff --git a/src/init.lua b/src/init.lua
index d990810..6d431ea 100644
--- a/src/init.lua
+++ b/src/init.lua
@@ -2,47 +2,16 @@
local sSrc = fs.getDir(shell.getRunningProgram())
local sRoot = fs.combine(sSrc, "..")
local sData = fs.combine(sRoot, "data")
-local sFont = fs.combine(sData, "fonts")
-local sImg = fs.combine(sData, "images")
local sPage = fs.combine(sData, "pages")
-local basalt = require("libs/basalt")
-local bdf = require("libs/basalt/libraries/miniBDF")
local ctx
-local function purchase(self, event, button, x, y)
- if event == "mouse_click" and button == 1 then
- local metadata = self:getMetadata()
- if metadata.id then
- -- TODO Open popup that tells user where to send krist to get item
- basalt.debug("Item: " .. ctx.products[metadata.id].displayName)
- end
- end
-end
-
local function init(...)
-- [Context]
- ctx = { gui = {}, image = {}, products = {}, theme = {}, config = {}, pages = {}, current = 1, scroll = 0,
- redraw = true }
-
- -- [Fonts]
- fontBDF = {}
- if fs.exists(sFont) and fs.isDir(sFont) then
- local fonts = fs.list(sFont)
- for i = 1, #fonts do
- local tmp = bdf.loadBDF(fs.combine(sFont, fonts[i]))
- local count, msg = bdf.checkFont(tmp)
- if count > 0 then
- printError("Could not load font \'" .. fonts[i] .. "\'!")
- for j = 1, #msg do
- printError(" * " .. msg[j])
- end
- sleep(1)
- else
- fontBDF[tmp.name] = tmp
- end
- end
- end
+ ctx = { products = {}, theme = {}, config = {}, pages = {} }
+ ctx.path = {
+ page = sPage
+ }
-- [Pages]
local pages = fs.list(sPage)
@@ -79,7 +48,6 @@
end
return false
end
-
-- theme
local col = { white = 0x1, orange = 0x2, magenta = 0x4, lightBlue = 0x8, yellow = 0x10, lime = 0x20, pink = 0x40,
grey = 0x80, lightGrey = 0x100, cyan = 0x200, purple = 0x400, blue = 0x800, brown = 0x1000, green = 0x2000,
@@ -91,19 +59,6 @@
if result then
ctx.theme = result
end
- -- bimg
- local files = fs.list(sImg)
- for i = 1, #files do
- if files[i]:sub(-4) == "bimg" then
- local f = fs.open(fs.combine(sImg, files[i]), 'r')
- local c = f.readAll()
- f.close()
- local result = loadStr(c, "return ", { colours = col, colors = inferiorcol })
- if result then
- ctx.image[files[i] or (#ctx.image + 1)] = result
- end
- end
- end
-- config
result = loadLuaFile(fs.combine(sData, "config.lua"))
if result then
@@ -115,168 +70,9 @@
ctx.products = result
end
- -- [Purchase]
- basalt.setVariable("purchase", purchase)
-
return ctx
end
----Saves the current proucts states into the file
----and loads them into the interface.
-local function updateProducts()
-end
-
----Checks if a given table has all keys inside it, building a chain with each other.
----@param ctx table The table to inspect
----@param ... any The keys to check
----@return boolean status true if all keys are there and false if not
-local function checkTableTree(ctx, ...)
- local tmp = ctx
- for _, key in pairs({ ... }) do
- if tmp[key] then
- tmp = tmp[key]
- else
- return false
- end
- end
- return true
-end
-
----Go through layout and replace stuff with our content
----@param page table The Basalt frame layout
-local function insertData(page, ctx)
- local layout = page:getLastLayout()
- local function repalceContent(layout)
- for _, object in pairs(layout) do
- -- Is frame?
- if object.addLayout then
- id = object:getName()
- -- Is frame for products?
- if id:find("products") then
- local listHeight = 1
- local nW, nH = object:getSize()
- for i, product in pairs(ctx.products) do
- if product.displayName and product.price and product.description then
- local item = object:addFrame(tostring(i))
- :setPosition(1, listHeight)
- :setSize(nW, 3)
- :setBackground(colors.gray)
- local offX = 0
- -- Image
- local bimg = {}
- for k, v in pairs(ctx.image["missing.bimg"]) do
- bimg[k] = v
- end
- if product.bimg then
- if type(product.bimg) == "table" then
- bimg[1] = product.bimg
- elseif type(product.bimg) == "string" then
- bimg = fs.combine(sImg, product.bimg)
- end
- end
- if bimg then
- local img = item:addBimg()
- :setPosition(1, 1)
- :loadImage(bimg)
- local x, y = img:getSize()
- offX = x + 2
- end
- -- Title
- item:addLabel()
- :setText(product.displayName)
- :setPosition(2 + offX, 1)
- :setSize(1, nW - (6 + offX), 1)
- :setBackground(colors.gray)
- -- Description
- item:addLabel()
- :setText(product.description)
- :setPosition(2 + offX, 2)
- :setSize(2, nW - (6 + offX), 1)
- :setForeground(colors.lightGray)
- :setBackground(colors.gray)
- -- Button
- item:addButton()
- :setText("BUY")
- :setPosition(nW - 6, 1)
- :setSize(7, 3)
- :setForeground(colors.white)
- :setBackground(colors.green)
- :setMetadata({
- id = i
- })
- :onClick(purchase)
-
-
- listHeight = listHeight + 4
- end
- end
- object:setSize(nW, listHeight)
- -- Look into frame for other stuff
- else
- local subLayout = object:getLastLayout()
- repalceContent(subLayout)
- end
- -- Is something else we are looking for?
- elseif object.setText then
- local id = object:getName()
- local txt = object:getValue()
- if id:find("subtitle") then
- if checkTableTree(ctx, "config", "details", "description") then
- object:setText(string.format(txt, ctx.config.details.description))
- end
- elseif id:find("title") then
- if checkTableTree(ctx, "config", "details", "title") then
- object:setText(string.format(txt, ctx.config.details.title))
- end
- end
- end
- end
- end
-
- repalceContent(layout)
-end
-
-local function main(ctx)
- local base = basalt.createFrame()
- :setTheme(ctx.theme)
- :addLayout(fs.combine(sPage, "index.xml"))
-
- local sCurPage = ""
- parallel.waitForAny(
- basalt.autoUpdate,
- function()
- local menubar = base:getDeepObject("main-menubar")
- local displayPage = base:getDeepObject("main-content")
-
- if not (menubar or displayPage) then
- return printError("Content is missing in index.xml!\nMake sure the following things are there:\n * Menubar | id=\"main-menubar\"\n * Frame | id=\"main-content\"")
- end
-
- while true do
- -- Change pages
- local tmpPage = menubar:getItem(menubar:getItemIndex()).text
- if tmpPage ~= sCurPage then
- sCurPage = tmpPage
- local oldLayout = displayPage:getLastLayout()
- for _, v in pairs(oldLayout) do
- displayPage:removeObject(v)
- end
-
- displayPage:addLayoutFromString(ctx.pages[sCurPage:lower() .. ".xml"])
- insertData(displayPage, ctx)
- end
-
- -- Update products
- if updateContent then
-
- updateContent = false
- end
- sleep()
- end
- end
- )
-end
-
-- INIT
local noErrors = true
local args = table.pack(...)
@@ -289,9 +85,9 @@
-- MAIN
if noErrors then
- xpcall(function()
- main(ctx)
- end, function(err)
+ local frontend, err = loadfile(fs.combine(sSrc, "frontend.lua"), "t", _ENV)
+ if not frontend then
printError(err)
- end)
-end
+ end
+ frontend(ctx)
+end
\ No newline at end of file
diff --git a/src/libs/Basalt/Frame.lua b/src/libs/Basalt/Frame.lua
deleted file mode 100644
index c5be088..0000000
--- a/src/libs/Basalt/Frame.lua
+++ /dev/null
@@ -1,1112 +0,0 @@
-local Object = require("Object")
-local _OBJECTS = require("loadObjects")
-local BasaltDraw = require("basaltDraw")
-local utils = require("utils")
-local layout = require("layout")
-local uuid = utils.uuid
-local rpairs = utils.rpairs
-local xmlValue = utils.getValueFromXML
-local tableCount = utils.tableCount
-
-local sub,min,max = string.sub,math.min,math.max
-
-return function(name, parent, pTerm, basalt)
- -- Frame
- local base = Object(name)
- local objectType = "Frame"
- local objects = {}
- local objZIndex = {}
- local object = {}
- local events = {}
- local eventZIndex = {}
- local variables = {}
- local theme = {}
- local dynamicValues = {}
- local dynValueId = 0
- local termObject = pTerm or term.current()
-
- local monSide = ""
- local isMonitor = false
- local monitorAttached = false
- local dragXOffset = 0
- local dragYOffset = 0
- local isScrollable = false
- local scrollAmount = 0
- local mirrorActive = false
- local mirrorAttached = false
- local mirrorSide = ""
- local isMovable = false
- local isDragging =false
-
- local focusedObjectCache
- local focusedObject
- local autoSize = true
- local autoScroll = true
- local initialized = false
-
- local activeEvents = {}
-
- base:setZIndex(10)
-
- local basaltDraw = BasaltDraw(termObject)
-
- local cursorBlink = false
- local xCursor = 1
- local yCursor = 1
- local cursorColor = colors.white
-
- local xOffset, yOffset = 0, 0
-
- local lastXMLReferences = {}
-
- local function xmlDefaultValues(data, obj)
- if(obj~=nil)then
- obj:setValuesByXMLData(data)
- end
- end
-
- local function addXMLObjectType(tab, f, self)
- if(tab~=nil)then
- if(tab.properties~=nil)then tab = {tab} end
-
- for k,v in pairs(tab)do
- local obj = f(self, v["@id"] or uuid())
- table.insert(lastXMLReferences, obj)
- xmlDefaultValues(v, obj)
- end
- end
- end
-
- local function getObject(name)
- for _, value in pairs(objects) do
- for _, b in pairs(value) do
- if (b:getName() == name) then
- return b
- end
- end
- end
- end
- local function getDeepObject(name)
- local o = getObject(name)
- if(o~=nil)then return o end
- for _, value in pairs(objects) do
- for _, b in pairs(value) do
- if (b:getType() == "Frame") then
- local oF = b:getDeepObject(name)
- if(oF~=nil)then return oF end
- end
- end
- end
- end
-
- local function addObject(obj)
- local zIndex = obj:getZIndex()
- if (getObject(obj.name) ~= nil) then
- return nil
- end
- if (objects[zIndex] == nil) then
- for x = 1, #objZIndex + 1 do
- if (objZIndex[x] ~= nil) then
- if (zIndex == objZIndex[x]) then
- break
- end
- if (zIndex > objZIndex[x]) then
- table.insert(objZIndex, x, zIndex)
- break
- end
- else
- table.insert(objZIndex, zIndex)
- end
- end
- if (#objZIndex <= 0) then
- table.insert(objZIndex, zIndex)
- end
- objects[zIndex] = {}
- end
- obj.parent = object
- if(obj.init~=nil)then
- obj:init()
- end
- table.insert(objects[zIndex], obj)
- return obj
- end
-
- local function removeEvents(self, obj)
- for a, b in pairs(events) do
- for c, d in pairs(b) do
- for key, value in pairs(d) do
- if (value == obj) then
- table.remove(events[a][c], key)
- if(self.parent~=nil)then
- if(tableCount(events[a])<=0)then
- self.parent:removeEvent(a, self)
- end
- end
- end
- end
- end
- end
- end
-
- local function removeObject(obj)
- for a, b in pairs(objects) do
- for key, value in pairs(b) do
- if (value == obj) then
- table.remove(objects[a], key)
- removeEvents(object, obj)
- return true;
- end
- end
- end
- return false
- end
-
- local function getEvent(self, event, name)
- for _, value in pairs(events[event]) do
- for _, b in pairs(value) do
- if (b:getName() == name) then
- return b
- end
- end
- end
- end
-
- local function addEvent(self, event, obj)
- local zIndex = obj:getZIndex()
- if(events[event]==nil)then events[event] = {} end
- if(eventZIndex[event]==nil)then eventZIndex[event] = {} end
- if (getEvent(self, event, obj.name) ~= nil) then
- return nil
- end
- if(self.parent~=nil)then
- self.parent:addEvent(event, self)
- end
- activeEvents[event] = true
- if (events[event][zIndex] == nil) then
- for x = 1, #eventZIndex[event] + 1 do
- if (eventZIndex[event][x] ~= nil) then
- if (zIndex == eventZIndex[event][x]) then
- break
- end
- if (zIndex > eventZIndex[event][x]) then
- table.insert(eventZIndex[event], x, zIndex)
- break
- end
- else
- table.insert(eventZIndex[event], zIndex)
- end
- end
- if (#eventZIndex[event] <= 0) then
- table.insert(eventZIndex[event], zIndex)
- end
- events[event][zIndex] = {}
- end
- table.insert(events[event][zIndex], obj)
- return obj
- end
-
- local function removeEvent(self, event, obj)
- if(events[event]~=nil)then
- for a, b in pairs(events[event]) do
- for key, value in pairs(b) do
- if (value == obj) then
- table.remove(events[event][a], key)
- if(#events[event][a]<=0)then
- events[event][a] = nil
- if(self.parent~=nil)then
- if(tableCount(events[event])<=0)then
- activeEvents[event] = false
- self.parent:removeEvent(event, self)
- end
- end
- end
- return true;
- end
- end
- end
- end
- return false
- end
-
- local function stringToNumber(str)
- local ok, err = pcall(load("return " .. str))
- if not(ok)then error(str.." is not a valid dynamic code") end
- return load("return " .. str)()
- end
-
- local function newDynamicValue(_, obj, str)
- for k,v in pairs(dynamicValues)do
- if(v[2]==str)and(v[4]==obj)then
- return v
- end
- end
- dynValueId = dynValueId + 1
- dynamicValues[dynValueId] = {0, str, {}, obj, dynValueId}
- return dynamicValues[dynValueId]
- end
-
- local function dynValueGetObjects(obj, str)
- local names = {}
- local t = {}
- for v in str:gmatch("%a+%.x") do
- local name = v:gsub("%.x", "")
- if(name~="self")and(name~="parent")then
- table.insert(names, name) end
- end
- for v in str:gmatch("%w+%.y") do
- local name = v:gsub("%.y", "")
- if(name~="self")and(name~="parent")then table.insert(names, name) end
- end
- for v in str:gmatch("%a+%.w") do
- local name = v:gsub("%.w", "")
- if(name~="self")and(name~="parent")then
- table.insert(names, name)
-
- end
- end
- for v in str:gmatch("%a+%.h") do
- local name = v:gsub("%.h", "")
- if(name~="self")and(name~="parent")then
- table.insert(names, name) end
- end
- for k,v in pairs(names)do
- t[v] = getObject(v)
- if(t[v]==nil)then
- error("Dynamic Values - unable to find object "..v)
- end
- end
- t["self"] = obj
- t["parent"] = obj:getParent()
- return t
- end
-
- local function dynValueObjectToNumber(str, objList)
- local newStr = str
- for v in str:gmatch("%w+%.x") do
- newStr = newStr:gsub(v, objList[v:gsub("%.x", "")]:getX())
- end
- for v in str:gmatch("%w+%.y") do
- newStr = newStr:gsub(v, objList[v:gsub("%.y", "")]:getY())
- end
- for v in str:gmatch("%w+%.w") do
- newStr = newStr:gsub(v, objList[v:gsub("%.w", "")]:getWidth())
- end
- for v in str:gmatch("%w+%.h") do
- newStr = newStr:gsub(v, objList[v:gsub("%.h", "")]:getHeight())
- end
- return newStr
- end
-
-
- local function recalculateDynamicValues(self)
- if(#dynamicValues>0)then
- for n=1,dynValueId do
- if(dynamicValues[n]~=nil)then
- local numberStr
- if(#dynamicValues[n][3]<=0)then dynamicValues[n][3] = dynValueGetObjects(dynamicValues[n][4], dynamicValues[n][2]) end
- numberStr = dynValueObjectToNumber(dynamicValues[n][2], dynamicValues[n][3])
- dynamicValues[n][1] = stringToNumber(numberStr)
- if(dynamicValues[n][4]:getType()=="Frame")then
- dynamicValues[n][4]:recalculateDynamicValues()
- end
- end
- end
- for _, index in pairs(objZIndex) do
- if (objects[index] ~= nil) then
- for _, value in pairs(objects[index]) do
- if (value.eventHandler ~= nil) then
- value:eventHandler("dynamicValueEvent", self)
- end
- end
- end
- end
- end
- end
-
- local function getDynamicValue(id)
- return dynamicValues[id][1]
- end
-
- local function calculateMaxScroll(self)
- for _, value in pairs(objects) do
- for _, b in pairs(value) do
- if(b.getHeight~=nil)and(b.getY~=nil)then
- local h, y = b:getHeight(), b:getY()
- if (h + y - self:getHeight() > scrollAmount) then
- scrollAmount = max(h + y - self:getHeight(), 0)
- end
- end
- end
- end
- end
-
-
- local function focusSystem(self)
- if(focusedObject~=focusedObjectCache)then
- if(focusedObject~=nil)then
- focusedObject:loseFocusHandler()
- end
- if(focusedObjectCache~=nil)then
- focusedObjectCache:getFocusHandler()
- end
- focusedObject = focusedObjectCache
- end
- end
-
- object = {
- barActive = false,
- barBackground = colors.gray,
- barTextcolor = colors.black,
- barText = "New Frame",
- barTextAlign = "left",
-
- addEvent = addEvent,
- removeEvent = removeEvent,
- removeEvents = removeEvents,
- getEvent = getEvent,
-
- newDynamicValue = newDynamicValue,
- recalculateDynamicValues = recalculateDynamicValues,
- getDynamicValue = getDynamicValue,
-
- getType = function(self)
- return objectType
- end;
-
- setFocusedObject = function(self, obj)
- focusedObjectCache = obj
- focusSystem(self)
- return self
- end;
-
- getVariable = function(self, name)
- return basalt.getVariable(name)
- end,
-
- setSize = function(self, w, h, rel)
- base.setSize(self, w, h, rel)
- if(self.parent==nil)then
- basaltDraw = BasaltDraw(termObject)
- end
- for _, index in pairs(objZIndex) do
- if (objects[index] ~= nil) then
- for _, value in pairs(objects[index]) do
- if (value.eventHandler ~= nil) then
- value:eventHandler("basalt_resize", value, self)
- end
- end
- end
- end
- self:recalculateDynamicValues()
- autoSize = false
- return self
- end;
-
- setTheme = function(self, _theme, col)
- if(type(_theme)=="table")then
- theme = _theme
- elseif(type(_theme)=="string")then
- theme[_theme] = col
- end
- self:updateDraw()
- return self
- end,
-
- getTheme = function(self, name)
- return theme[name] or (self.parent~=nil and self.parent:getTheme(name) or basalt.getTheme(name))
- end,
-
- setPosition = function(self, x, y, rel)
- base.setPosition(self, x, y, rel)
- for _, index in pairs(objZIndex) do
- if (objects[index] ~= nil) then
- for _, value in pairs(objects[index]) do
- if (value.eventHandler ~= nil) then
- value:eventHandler("basalt_reposition", value, self)
- end
- end
- end
- end
- self:recalculateDynamicValues()
- return self
- end;
-
- getBasaltInstance = function(self)
- return basalt
- end,
-
- setOffset = function(self, xO, yO)
- xOffset = xO ~= nil and math.floor(xO < 0 and math.abs(xO) or -xO) or xOffset
- yOffset = yO ~= nil and math.floor(yO < 0 and math.abs(yO) or -yO) or yOffset
- self:updateDraw()
- return self
- end;
-
- getOffsetInternal = function(self)
- return xOffset, yOffset
- end;
-
- getOffset = function(self)
- return xOffset < 0 and math.abs(xOffset) or -xOffset, yOffset < 0 and math.abs(yOffset) or -yOffset
- end;
-
- removeFocusedObject = function(self)
- focusedObjectCache = nil
- focusSystem(self)
- return self
- end;
-
- getFocusedObject = function(self)
- return focusedObject
- end;
-
- setCursor = function(self, _blink, _xCursor, _yCursor, color)
- if(self.parent~=nil)then
- local obx, oby = self:getAnchorPosition()
- self.parent:setCursor(_blink or false, (_xCursor or 0)+obx-1, (_yCursor or 0)+oby-1, color or cursorColor)
- else
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition(self:getX(), self:getY(), true))
- cursorBlink = _blink or false
- if (_xCursor ~= nil) then
- xCursor = obx + _xCursor - 1
- end
- if (_yCursor ~= nil) then
- yCursor = oby + _yCursor - 1
- end
- cursorColor = color or cursorColor
- if (cursorBlink) then
- termObject.setTextColor(cursorColor)
- termObject.setCursorPos(xCursor, yCursor)
- termObject.setCursorBlink(cursorBlink)
- else
- termObject.setCursorBlink(false)
- end
- end
- return self
- end;
-
- setMovable = function(self, movable)
- if(self.parent~=nil)then
- isMovable = movable or not isMovable
- self.parent:addEvent("mouse_click", self)
- activeEvents["mouse_click"] = true
- self.parent:addEvent("mouse_up", self)
- activeEvents["mouse_up"] = true
- self.parent:addEvent("mouse_drag", self)
- activeEvents["mouse_drag"] = true
- end
- return self;
- end;
-
- setScrollable = function(self, scrollable)
- isScrollable = (scrollable or scrollable==nil) and true or false
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_scroll", self)
- end
- activeEvents["mouse_scroll"] = true
- return self
- end,
-
- setScrollAmount = function(self, max)
- scrollAmount = max or scrollAmount
- autoScroll = false
- return self
- end,
-
-
- getScrollAmount = function(self)
- return autoScroll and scrollAmount or calculateMaxScroll(self)
- end,
-
- show = function(self)
- base.show(self)
- if(self.parent==nil)then
- basalt.setActiveFrame(self)
- if(isMonitor)then
- basalt.setMonitorFrame(monSide, self)
- else
- basalt.setMainFrame(self)
- end
- end
- return self;
- end;
-
- hide = function (self)
- base.hide(self)
- if(self.parent==nil)then
- if(activeFrame == self)then activeFrame = nil end
- if(isMonitor)then
- if(basalt.getMonitorFrame(monSide) == self)then
- basalt.setActiveFrame(nil)
- end
- else
- if(basalt.getMainFrame() == self)then
- basalt.setMainFrame(nil)
- end
- end
- end
- return self
- end;
-
- addLayout = function(self, file)
- if(file~=nil)then
- if(fs.exists(file))then
- local f = fs.open(file, "r")
- local data = layout:ParseXmlText(f.readAll())
- f.close()
- lastXMLReferences = {}
- self:setValuesByXMLData(data)
- end
- end
- return self
- end,
-
- getLastLayout = function(self)
- return lastXMLReferences
- end,
-
- addLayoutFromString = function(self, str)
- if(str~=nil)then
- local data = layout:ParseXmlText(str)
- self:setValuesByXMLData(data)
- end
- return self
- end,
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("movable", data)~=nil)then if(xmlValue("movable", data))then self:setMovable(true) end end
- if(xmlValue("scrollable", data)~=nil)then if(xmlValue("scrollable", data))then self:setScrollable(true) end end
- if(xmlValue("monitor", data)~=nil)then self:setMonitor(xmlValue("monitor", data)):show() end
- if(xmlValue("mirror", data)~=nil)then self:setMirror(xmlValue("mirror", data)) end
- if(xmlValue("bar", data)~=nil)then if(xmlValue("bar", data))then self:showBar(true) else self:showBar(false) end end
- if(xmlValue("barText", data)~=nil)then self.barText = xmlValue("barText", data) end
- if(xmlValue("barBG", data)~=nil)then self.barBackground = colors[xmlValue("barBG", data)] end
- if(xmlValue("barFG", data)~=nil)then self.barTextcolor = colors[xmlValue("barFG", data)] end
- if(xmlValue("barAlign", data)~=nil)then self.barTextAlign = xmlValue("barAlign", data) end
- if(xmlValue("layout", data)~=nil)then self:addLayout(xmlValue("layout", data)) end
- if(xmlValue("xOffset", data)~=nil)then self:setOffset(xmlValue("xOffset", data), yOffset) end
- if(xmlValue("yOffset", data)~=nil)then self:setOffset(yOffset, xmlValue("yOffset", data)) end
- if(xmlValue("scrollAmount", data)~=nil)then self:setScrollAmount(xmlValue("scrollAmount", data)) end
-
- local objectList = data:children()
-
- for k,v in pairs(objectList)do
- if(v.___name~="animation")then
- local name = v.___name:gsub("^%l", string.upper)
- if(_OBJECTS[name]~=nil)then
- addXMLObjectType(v, self["add"..name], self)
- end
- end
- end
-
- addXMLObjectType(data["frame"], self.addFrame, self)
- addXMLObjectType(data["animation"], self.addAnimation, self)
- return self
- end,
-
- showBar = function(self, showIt) -- deprecated
- self.barActive = showIt or not self.barActive
- self:updateDraw()
- return self
- end;
-
- setBar = function(self, text, bgCol, fgCol) -- deprecated
- self.barText = text or ""
- self.barBackground = bgCol or self.barBackground
- self.barTextcolor = fgCol or self.barTextcolor
- self:updateDraw()
- return self
- end;
-
- setBarTextAlign = function(self, align) -- deprecated
- self.barTextAlign = align or "left"
- self:updateDraw()
- return self
- end;
-
- setMirror = function(self, side)
- if(self.parent~=nil)then error("Frame has to be a base frame in order to attach a mirror.") end
- mirrorSide = side
- if(mirror~=nil)then
- basaltDraw.setMirror(mirror)
- end
- mirrorActive = true
- return self
- end,
-
- removeMirror = function(self)
- mirror = nil
- mirrorActive = false
- basaltDraw.setMirror(nil)
- return self
- end,
-
- setMonitor = function(self, side)
- if(side~=nil)and(side~=false)then
- if(peripheral.getType(side)=="monitor")then
- termObject = peripheral.wrap(side)
- monitorAttached = true
-
- end
- if(self.parent~=nil)then
- self.parent:removeObject(self)
- end
- isMonitor = true
- basalt.setMonitorFrame(side, self)
- else
- termObject = parentTerminal
- isMonitor = false
- if(basalt.getMonitorFrame(monSide)==self)then
- basalt.setMonitorFrame(monSide, nil)
- end
- end
- basaltDraw = BasaltDraw(termObject)
- self:setSize(termObject.getSize())
- autoSize = true
- monSide = side or nil
- self:updateDraw()
- return self;
- end;
-
- loseFocusHandler = function(self)
- base.loseFocusHandler(self)
- if(focusedObject~=nil)then focusedObject:loseFocusHandler() focusedObject = nil end
- end;
-
- getFocusHandler = function(self)
- base.getFocusHandler(self)
- if (self.parent ~= nil) then
- if(isMovable)then
- self.parent:removeEvents(self)
- self.parent:removeObject(self)
- self.parent:addObject(self)
- for k,v in pairs(activeEvents)do
- if(v)then
- self.parent:addEvent(k, self)
- end
- end
- self:updateDraw()
- end
- end
- if(focusedObject~=nil)then focusedObject:getFocusHandler() end
- end;
-
- eventHandler = function(self, event, p1, p2, p3, p4)
- base.eventHandler(self, event, p1, p2, p3, p4)
- if(events["other_event"]~=nil)then
- for _, index in ipairs(eventZIndex["other_event"]) do
- if (events["other_event"][index] ~= nil) then
- for _, value in rpairs(events["other_event"][index]) do
- if (value.eventHandler ~= nil) then
- if (value:eventHandler(event, p1, p2, p3, p4)) then
- return true
- end
- end
- end
- end
- end
- end
- if(autoSize)and not(isMonitor)then
- if(self.parent==nil)then
- if(event=="term_resize")then
- self:setSize(termObject.getSize())
- autoSize = true
- end
- end
- end
- if(isMonitor)then
- if(autoSize)then
- if(event=="monitor_resize")and(p1==monSide)then
- self:setSize(termObject.getSize())
- autoSize = true
- self:updateDraw()
- end
- end
- if(event == "peripheral")and(p1==monSide)then
- if(peripheral.getType(monSide)=="monitor")then
- monitorAttached = true
- termObject = peripheral.wrap(monSide)
- basaltDraw = BasaltDraw(termObject)
- self:updateDraw()
- end
- end
- if(event == "peripheral_detach")and(p1==monSide)then
- monitorAttached = false
- end
- end
- if(mirrorActive)then
- if(peripheral.getType(mirrorSide)=="monitor")then
- mirrorAttached = true
- basaltDraw.setMirror(peripheral.wrap(mirrorSide))
- end
- if(event == "peripheral_detach")and(p1==mirrorSide)then
- monitorAttached = false
- end
- if(event=="monitor_touch")and(mirrorSide==p1)then
- self:mouseHandler(1, p2, p3, true)
- end
- end
- if (event == "terminate")and(self.parent==nil)then
- basalt.stop()
- end
- end,
-
- mouseHandler = function(self, button, x, y)
- if(base.mouseHandler(self, button, x, y))then
- if(events["mouse_click"]~=nil)then
- self:setCursor(false)
- for _, index in ipairs(eventZIndex["mouse_click"]) do
- if (events["mouse_click"][index] ~= nil) then
- for _, value in rpairs(events["mouse_click"][index]) do
- if (value.mouseHandler ~= nil) then
- if (value:mouseHandler(button, x, y)) then
- focusSystem(self)
- return true
- end
- end
- end
- end
- end
- end
- if (isMovable) then
- local fx, fy = self:getAbsolutePosition(self:getAnchorPosition())
- if (x >= fx) and (x <= fx + self:getWidth() - 1) and (y == fy)then
- isDragging = true
- dragXOffset = fx - x
- dragYOffset = yOff and 1 or 0
- end
- end
- self:removeFocusedObject()
- return true
- end
- return false
- end,
-
- mouseUpHandler = function(self, button, x, y)
- if (isDragging) then
- isDragging = false
- end
- if(base.mouseUpHandler(self, button, x, y))then
- if(events["mouse_up"]~=nil)then
- for _, index in ipairs(eventZIndex["mouse_up"]) do
- if (events["mouse_up"][index] ~= nil) then
- for _, value in rpairs(events["mouse_up"][index]) do
- if (value.mouseUpHandler ~= nil) then
- if (value:mouseUpHandler(button, x, y)) then
- focusSystem(self)
- return true
- end
- end
- end
- end
- end
- end
- focusSystem(self)
- return true
- end
- return false
- end,
-
- scrollHandler = function(self, dir, x, y)
- if(base.scrollHandler(self, dir, x, y))then
- if(events["mouse_scroll"]~=nil)then
- for _, index in pairs(eventZIndex["mouse_scroll"]) do
- if (events["mouse_scroll"][index] ~= nil) then
- for _, value in rpairs(events["mouse_scroll"][index]) do
- if (value.scrollHandler ~= nil) then
- if (value:scrollHandler(dir, x, y)) then
- focusSystem(self)
- return true
- end
- end
- end
- end
- end
- end
- local cache = yOffset
- if(isScrollable)then
- calculateMaxScroll(self)
- if(dir>0)or(dir<0)then
- yOffset = max(min(yOffset-dir, 0),-scrollAmount)
- self:updateDraw()
- end
- end
- self:removeFocusedObject()
- if(yOffset==cache)then return false end
- return true
- end
- return false
- end,
-
- dragHandler = function(self, button, x, y)
- if (isDragging) then
- local xO, yO = self.parent:getOffsetInternal()
- xO = xO < 0 and math.abs(xO) or -xO
- yO = yO < 0 and math.abs(yO) or -yO
- local parentX = 1
- local parentY = 1
- if (self.parent ~= nil) then
- parentX, parentY = self.parent:getAbsolutePosition(self.parent:getAnchorPosition())
- end
- self:setPosition(x + dragXOffset - (parentX - 1) + xO, y + dragYOffset - (parentY - 1) + yO)
- self:updateDraw()
- return true
- end
- if(self:isVisible())and(self:isEnabled())then
- if(events["mouse_drag"]~=nil)then
- for _, index in ipairs(eventZIndex["mouse_drag"]) do
- if (events["mouse_drag"][index] ~= nil) then
- for _, value in rpairs(events["mouse_drag"][index]) do
- if (value.dragHandler ~= nil) then
- if (value:dragHandler(button, x, y)) then
- focusSystem(self)
- return true
- end
- end
- end
- end
- end
- end
- end
- focusSystem(self)
- base.dragHandler(self, button, x, y)
- return false
- end,
-
- keyHandler = function(self, key, isHolding)
- if (self:isFocused())or(self.parent==nil)then
- local val = self:getEventSystem():sendEvent("key", self, "key", key)
- if(val==false)then return false end
- if(events["key"]~=nil)then
- for _, index in pairs(eventZIndex["key"]) do
- if (events["key"][index] ~= nil) then
- for _, value in rpairs(events["key"][index]) do
- if (value.keyHandler ~= nil) then
- if (value:keyHandler(key, isHolding)) then
- return true
- end
- end
- end
- end
- end
- end
- end
- return false
- end,
-
- keyUpHandler = function(self, key)
- if (self:isFocused())or(self.parent==nil)then
- local val = self:getEventSystem():sendEvent("key_up", self, "key_up", key)
- if(val==false)then return false end
- if(events["key_up"]~=nil)then
- for _, index in pairs(eventZIndex["key_up"]) do
- if (events["key_up"][index] ~= nil) then
- for _, value in rpairs(events["key_up"][index]) do
- if (value.keyUpHandler ~= nil) then
- if (value:keyUpHandler(key)) then
- return true
- end
- end
- end
- end
- end
- end
- end
- return false
- end,
-
- charHandler = function(self, char)
- if (self:isFocused())or(self.parent==nil)then
- local val = self:getEventSystem():sendEvent("char", self, "char", char)
- if(val==false)then return false end
- if(events["char"]~=nil)then
- for _, index in pairs(eventZIndex["char"]) do
- if (events["char"][index] ~= nil) then
- for _, value in rpairs(events["char"][index]) do
- if (value.charHandler ~= nil) then
- if (value:charHandler(char)) then
- return true
- end
- end
- end
- end
- end
- end
- end
- return false
- end,
-
- setText = function(self, x, y, text)
- local obx, oby = self:getAnchorPosition()
- if (y >= 1) and (y <= self:getHeight()) then
- if (self.parent ~= nil) then
- self.parent:setText(max(x + (obx - 1), obx), oby + y - 1, sub(text, max(1 - x + 1, 1), max(self:getWidth() - x + 1,1)))
- else
- basaltDraw.setText(max(x + (obx - 1), obx), oby + y - 1, sub(text, max(1 - x + 1, 1), max(self:getWidth() - x + 1,1)))
- end
- end
- end;
-
- setBG = function(self, x, y, bgCol)
- local obx, oby = self:getAnchorPosition()
- if (y >= 1) and (y <= self:getHeight()) then
- if (self.parent ~= nil) then
- self.parent:setBG(max(x + (obx - 1), obx), oby + y - 1, sub(bgCol, max(1 - x + 1, 1), max(self:getWidth() - x + 1,1)))
- else
- basaltDraw.setBG(max(x + (obx - 1), obx), oby + y - 1, sub(bgCol, max(1 - x + 1, 1), max(self:getWidth() - x + 1,1)))
- end
- end
- end;
-
- setFG = function(self, x, y, fgCol)
- local obx, oby = self:getAnchorPosition()
- if (y >= 1) and (y <= self:getHeight()) then
- if (self.parent ~= nil) then
- self.parent:setFG(max(x + (obx - 1), obx), oby + y - 1, sub(fgCol, max(1 - x + 1, 1), max(self:getWidth() - x + 1,1)))
- else
- basaltDraw.setFG(max(x + (obx - 1), obx), oby + y - 1, sub(fgCol, max(1 - x + 1, 1), max(self:getWidth() - x + 1,1)))
- end
- end
- end;
-
- writeText = function(self, x, y, text, bgCol, fgCol)
- local obx, oby = self:getAnchorPosition()
- if (y >= 1) and (y <= self:getHeight()) then
- if (self.parent ~= nil) then
- self.parent:writeText(max(x + (obx - 1), obx), oby + y - 1, sub(text, max(1 - x + 1, 1), self:getWidth() - x + 1), bgCol, fgCol)
- else
- basaltDraw.writeText(max(x + (obx - 1), obx), oby + y - 1, sub(text, max(1 - x + 1, 1), max(self:getWidth() - x + 1,1)), bgCol, fgCol)
- end
- end
- end;
-
- drawBackgroundBox = function(self, x, y, width, height, bgCol)
- local obx, oby = self:getAnchorPosition()
-
- height = (y < 1 and (height + y > self:getHeight() and self:getHeight() or height + y - 1) or (height + y > self:getHeight() and self:getHeight() - y + 1 or height))
- width = (x < 1 and (width + x > self:getWidth() and self:getWidth() or width + x - 1) or (width + x > self:getWidth() and self:getWidth() - x + 1 or width))
- if (self.parent ~= nil) then
- self.parent:drawBackgroundBox(max(x + (obx - 1), obx), max(y + (oby - 1), oby), width, height, bgCol)
- else
- basaltDraw.drawBackgroundBox(max(x + (obx - 1), obx), max(y + (oby - 1), oby), width, height, bgCol)
- end
- end;
-
- drawTextBox = function(self, x, y, width, height, symbol)
- local obx, oby = self:getAnchorPosition()
- height = (y < 1 and (height + y > self:getHeight() and self:getHeight() or height + y - 1) or (height + y > self:getHeight() and self:getHeight() - y + 1 or height))
- width = (x < 1 and (width + x > self:getWidth() and self:getWidth() or width + x - 1) or (width + x > self:getWidth() and self:getWidth() - x + 1 or width))
- if (self.parent ~= nil) then
- self.parent:drawTextBox(max(x + (obx - 1), obx), max(y + (oby - 1), oby), width, height, sub(symbol,1,1))
- else
- basaltDraw.drawTextBox(max(x + (obx - 1), obx), max(y + (oby - 1), oby), width, height, sub(symbol,1,1))
- end
- end;
-
- drawForegroundBox = function(self, x, y, width, height, fgCol)
- local obx, oby = self:getAnchorPosition()
- height = (y < 1 and (height + y > self:getHeight() and self:getHeight() or height + y - 1) or (height + y > self:getHeight() and self:getHeight() - y + 1 or height))
- width = (x < 1 and (width + x > self:getWidth() and self:getWidth() or width + x - 1) or (width + x > self:getWidth() and self:getWidth() - x + 1 or width))
- if (self.parent ~= nil) then
- self.parent:drawForegroundBox(max(x + (obx - 1), obx), max(y + (oby - 1), oby), width, height, fgCol)
- else
- basaltDraw.drawForegroundBox(max(x + (obx - 1), obx), max(y + (oby - 1), oby), width, height, fgCol)
- end
- end;
-
- draw = function(self, force)
- if(isMonitor)and not(monitorAttached)then return false end;
- if(self.parent==nil)then if(self:getDraw()==false)then return false end end
- if (base.draw(self))then
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- local anchx, anchy = self:getAnchorPosition()
- local w,h = self:getSize()
- if (self.parent == nil) then
- if(self.bgColor~=false)then
- basaltDraw.drawBackgroundBox(anchx, anchy, w, h, self.bgColor)
- basaltDraw.drawTextBox(anchx, anchy, w, h, " ")
- end
- if(self.fgColor~=false)then basaltDraw.drawForegroundBox(anchx, anchy, w, h, self.fgColor) end
- end
- if (self.barActive) then
- if (self.parent ~= nil) then
- self.parent:writeText(anchx, anchy, utils.getTextHorizontalAlign(self.barText, w, self.barTextAlign), self.barBackground, self.barTextcolor)
- else
- basaltDraw.writeText(anchx, anchy, utils.getTextHorizontalAlign(self.barText, w, self.barTextAlign), self.barBackground, self.barTextcolor)
- end
- if(self:getBorder("left"))then
- if (self.parent ~= nil) then
- self.parent:drawBackgroundBox(anchx-1, anchy, 1, 1, self.barBackground)
- if(self.bgColor~=false)then
- self.parent:drawBackgroundBox(anchx-1, anchy+1, 1, h-1, self.bgColor)
- end
- end
- end
- if(self:getBorder("top"))then
- if (self.parent ~= nil) then
- self.parent:drawBackgroundBox(anchx-1, anchy-1, w+1, 1, self.barBackground)
- end
- end
- end
-
- for _, index in rpairs(objZIndex) do
- if (objects[index] ~= nil) then
- for _, value in pairs(objects[index]) do
- if (value.draw ~= nil) then
- value:draw()
- end
- end
- end
- end
- end
- end;
-
- updateTerm = function(self)
- if(isMonitor)and not(monitorAttached)then return false end;
- basaltDraw.update()
- end;
-
- addObject = function(self, obj)
- return addObject(obj)
- end;
-
- removeObject = function(self, obj)
- return removeObject(obj)
- end;
-
- getObject = function(self, obj)
- return getObject(obj)
- end;
- getDeepObject = function(self, name)
- return getDeepObject(name)
- end,
-
- addFrame = function(self, name)
- local obj = basalt.newFrame(name or uuid(), self, nil, basalt)
- return addObject(obj)
- end,
-
- init = function(self)
- if not(initialized)then
- if (parent ~= nil) then
- base.width, base.height = parent:getSize()
- self:setBackground(parent:getTheme("FrameBG"))
- self:setForeground(parent:getTheme("FrameText"))
- else
- base.width, base.height = termObject.getSize()
- self:setBackground(basalt.getTheme("BasaltBG"))
- self:setForeground(basalt.getTheme("BasaltText"))
- end
- initialized = true
- end
- end,
- }
- for k,v in pairs(_OBJECTS)do
- object["add"..k] = function(self, name)
- return addObject(v(name or uuid(), self))
- end
- end
- setmetatable(object, base)
- return object
-end
diff --git a/src/libs/Basalt/Object.lua b/src/libs/Basalt/Object.lua
deleted file mode 100644
index ccc7b6b..0000000
--- a/src/libs/Basalt/Object.lua
+++ /dev/null
@@ -1,867 +0,0 @@
-local basaltEvent = require("basaltEvent")
-local utils = require("utils")
-local split = utils.splitString
-local numberFromString = utils.numberFromString
-local xmlValue = utils.getValueFromXML
-
-return function(name)
- -- Base object
- local objectType = "Object" -- not changeable
- local object = {}
- local zIndex = 1
- local value
- local anchor = "topLeft"
- local ignOffset = false
- local isVisible = true
- local initialized = false
-
- local shadow = false
- local borderColors = {
- left = false,
- right = false,
- top = false,
- bottom = false
- }
-
- local shadowColor = colors.black
- local isEnabled = true
- local isDragging = false
- local dragStartX, dragStartY, dragXOffset, dragYOffset = 0, 0, 0, 0
-
- local draw = true
- local activeEvents = {}
-
- local eventSystem = basaltEvent()
-
- object = {
- x = 1,
- y = 1,
- width = 1,
- height = 1,
- bgColor = colors.black,
- bgSymbol = " ",
- bgSymbolColor = colors.black,
- fgColor = colors.white,
- transparentColor = false,
- name = name or "Object",
- parent = nil,
-
- show = function(self)
- isVisible = true
- self:updateDraw()
- return self
- end;
-
- hide = function(self)
- isVisible = false
- self:updateDraw()
- return self
- end,
-
- enable = function(self)
- isEnabled = true
- return self
- end,
-
- disable = function(self)
- isEnabled = false
- return self
- end,
-
- isEnabled = function(self)
- return isEnabled
- end,
-
- generateXMLEventFunction = function(self, func, val)
- local createF = function(str)
- if(str:sub(1,1)=="#")then
- local o = self:getBaseFrame():getDeepObject(str:sub(2,str:len()))
- if(o~=nil)and(o.internalObjetCall~=nil)then
- func(self,function()o:internalObjetCall()end)
- end
- else
- func(self,self:getBaseFrame():getVariable(str))
- end
- end
- if(type(val)=="string")then
- createF(val)
- elseif(type(val)=="table")then
- for k,v in pairs(val)do
- createF(v)
- end
- end
- return self
- end,
-
- setValuesByXMLData = function(self, data)
- local baseFrame = self:getBaseFrame()
- if(xmlValue("x", data)~=nil)then self:setPosition(xmlValue("x", data), self.y) end
- if(xmlValue("y", data)~=nil)then self:setPosition(self.x, xmlValue("y", data)) end
- if(xmlValue("width", data)~=nil)then self:setSize(xmlValue("width", data), self.height) end
- if(xmlValue("height", data)~=nil)then self:setSize(self.width, xmlValue("height", data)) end
- if(xmlValue("bg", data)~=nil)then self:setBackground(colors[xmlValue("bg", data)]) end
- if(xmlValue("fg", data)~=nil)then self:setForeground(colors[xmlValue("fg", data)]) end
- if(xmlValue("value", data)~=nil)then self:setValue(colors[xmlValue("value", data)]) end
- if(xmlValue("visible", data)~=nil)then if(xmlValue("visible", data))then self:show() else self:hide() end end
- if(xmlValue("enabled", data)~=nil)then if(xmlValue("enabled", data))then self:enable() else self:disable() end end
- if(xmlValue("zIndex", data)~=nil)then self:setZIndex(xmlValue("zIndex", data)) end
- if(xmlValue("anchor", data)~=nil)then self:setAnchor(xmlValue("anchor", data)) end
- if(xmlValue("shadowColor", data)~=nil)then self:setShadow(colors[xmlValue("shadowColor", data)]) end
- if(xmlValue("border", data)~=nil)then self:setBorder(colors[xmlValue("border", data)]) end
- if(xmlValue("borderLeft", data)~=nil)then borderColors["left"] = xmlValue("borderLeft", data) end
- if(xmlValue("borderTop", data)~=nil)then borderColors["top"] = xmlValue("borderTop", data) end
- if(xmlValue("borderRight", data)~=nil)then borderColors["right"] = xmlValue("borderRight", data) end
- if(xmlValue("borderBottom", data)~=nil)then borderColors["bottom"] = xmlValue("borderBottom", data) end
- if(xmlValue("borderColor", data)~=nil)then self:setBorder(colors[xmlValue("borderColor", data)]) end
- if(xmlValue("ignoreOffset", data)~=nil)then if(xmlValue("ignoreOffset", data))then self:ignoreOffset(true) end end
- if(xmlValue("onClick", data)~=nil)then self:generateXMLEventFunction(self.onClick, xmlValue("onClick", data)) end
- if(xmlValue("onClickUp", data)~=nil)then self:generateXMLEventFunction(self.onClickUp, xmlValue("onClickUp", data)) end
- if(xmlValue("onScroll", data)~=nil)then self:generateXMLEventFunction(self.onScroll, xmlValue("onScroll", data)) end
- if(xmlValue("onDrag", data)~=nil)then self:generateXMLEventFunction(self.onDrag, xmlValue("onDrag", data)) end
- if(xmlValue("onKey", data)~=nil)then self:generateXMLEventFunction(self.onKey, xmlValue("onKey", data)) end
- if(xmlValue("onKeyUp", data)~=nil)then self:generateXMLEventFunction(self.onKeyUp, xmlValue("onKeyUp", data)) end
- if(xmlValue("onChange", data)~=nil)then self:generateXMLEventFunction(self.onChange, xmlValue("onChange", data)) end
- if(xmlValue("onResize", data)~=nil)then self:generateXMLEventFunction(self.onResize, xmlValue("onResize", data)) end
- if(xmlValue("onReposition", data)~=nil)then self:generateXMLEventFunction(self.onReposition, xmlValue("onReposition", data)) end
- if(xmlValue("onEvent", data)~=nil)then self:generateXMLEventFunction(self.onEvent, xmlValue("onEvent", data)) end
- if(xmlValue("onGetFocus", data)~=nil)then self:generateXMLEventFunction(self.onGetFocus, xmlValue("onGetFocus", data)) end
- if(xmlValue("onLoseFocus", data)~=nil)then self:generateXMLEventFunction(self.onLoseFocus, xmlValue("onLoseFocus", data)) end
- self:updateDraw()
- return self
- end,
-
- isVisible = function(self)
- return isVisible
- end;
-
- setFocus = function(self)
- if (self.parent ~= nil) then
- self.parent:setFocusedObject(self)
- end
- return self
- end;
-
- setZIndex = function(self, index)
- zIndex = index
- if (self.parent ~= nil) then
- self.parent:removeObject(self)
- self.parent:addObject(self)
- self:updateEventHandlers()
- end
-
- return self
- end,
-
- updateEventHandlers = function(self)
- for k,v in pairs(activeEvents)do
- if(v)then
- self.parent:addEvent(k, self)
- end
- end
- end,
-
- getZIndex = function(self)
- return zIndex;
- end;
-
- getType = function(self)
- return objectType
- end;
-
- getName = function(self)
- return self.name
- end;
-
- remove = function(self)
- if (self.parent ~= nil) then
- self.parent:removeObject(self)
- end
- self:updateDraw()
- return self
- end;
-
- setParent = function(self, frame)
- if (frame.getType ~= nil and frame:getType() == "Frame") then
- self:remove()
- frame:addObject(self)
- if (self.draw) then
- self:show()
- end
- end
- return self
- end;
-
- setValue = function(self, _value)
- if (value ~= _value) then
- value = _value
- self:updateDraw()
- self:valueChangedHandler()
- end
- return self
- end;
-
- getValue = function(self)
- return value
- end;
-
- getDraw = function(self)
- return draw
- end;
-
- updateDraw = function(self, change)
- draw = change
- if(change == nil)then draw = true end
- if(draw)then if(self.parent~=nil)then self.parent:updateDraw() end end
- return self
- end;
-
-
- getEventSystem = function(self)
- return eventSystem
- end;
-
-
- getParent = function(self)
- return self.parent
- end;
-
- setPosition = function(self, xPos, yPos, rel)
- if(type(xPos)=="number")then
- self.x = rel and self:getX()+xPos or xPos
- end
- if(type(yPos)=="number")then
- self.y = rel and self:getY()+yPos or yPos
- end
- if(self.parent~=nil)then
- if(type(xPos)=="string")then
- self.x = self.parent:newDynamicValue(self, xPos)
- end
- if(type(yPos)=="string")then
- self.y = self.parent:newDynamicValue(self, yPos)
- end
- self.parent:recalculateDynamicValues()
- end
- eventSystem:sendEvent("basalt_reposition", self)
- self:updateDraw()
- return self
- end;
-
- getX = function(self)
- return type(self.x) == "number" and self.x or math.floor(self.x[1]+0.5)
- end;
-
- getY = function(self)
- return type(self.y) == "number" and self.y or math.floor(self.y[1]+0.5)
- end;
-
- getPosition = function(self)
- return self:getX(), self:getY()
- end;
-
- getVisibility = function(self)
- return isVisible
- end;
-
- setVisibility = function(self, _isVisible)
- isVisible = _isVisible or not isVisible
- self:updateDraw()
- return self
- end;
-
- setSize = function(self, width, height, rel)
- if(type(width)=="number")then
- self.width = rel and self.width+width or width
- end
- if(type(height)=="number")then
- self.height = rel and self.height+height or height
- end
- if(self.parent~=nil)then
- if(type(width)=="string")then
- self.width = self.parent:newDynamicValue(self, width)
- end
- if(type(height)=="string")then
- self.height = self.parent:newDynamicValue(self, height)
- end
- self.parent:recalculateDynamicValues()
- end
- eventSystem:sendEvent("basalt_resize", self)
- self:updateDraw()
- return self
- end;
-
- getHeight = function(self)
- return type(self.height) == "number" and self.height or math.floor(self.height[1]+0.5)
- end;
-
- getWidth = function(self)
- return type(self.width) == "number" and self.width or math.floor(self.width[1]+0.5)
- end;
-
- getSize = function(self)
- return self:getWidth(), self:getHeight()
- end;
-
- calculateDynamicValues = function(self)
- if(type(self.width)=="table")then self.width:calculate() end
- if(type(self.height)=="table")then self.height:calculate() end
- if(type(self.x)=="table")then self.x:calculate() end
- if(type(self.y)=="table")then self.y:calculate() end
- self:updateDraw()
- return self
- end,
-
- setBackground = function(self, color, symbol, symbolCol)
- self.bgColor = color or false
- self.bgSymbol = symbol or (self.bgColor~=false and self.bgSymbol or false)
- self.bgSymbolColor = symbolCol or self.bgSymbolColor
- self:updateDraw()
- return self
- end;
-
- setTransparent = function(self, color)
- self.transparentColor = color or false
- self.bgSymbol = false
- self.bgSymbolColor = false
- self:updateDraw()
- return self
- end;
-
- getBackground = function(self)
- return self.bgColor
- end;
-
- setForeground = function(self, color)
- self.fgColor = color or false
- self:updateDraw()
- return self
- end;
-
- getForeground = function(self)
- return self.fgColor
- end;
-
- setShadow = function(self, color)
- if(color==false)then
- shadow = false
- else
- shadowColor = color
- shadow = true
- end
- self:updateDraw()
- return self
- end;
-
- isShadowActive = function(self)
- return shadow;
- end;
-
- setBorder = function(self, ...)
- if(...~=nil)then
- local t = {...}
- for k,v in pairs(t)do
- if(v=="left")or(#t==1)then
- borderColors["left"] = t[1]
- end
- if(v=="top")or(#t==1)then
- borderColors["top"] = t[1]
- end
- if(v=="right")or(#t==1)then
- borderColors["right"] = t[1]
- end
- if(v=="bottom")or(#t==1)then
- borderColors["bottom"] = t[1]
- end
- end
- end
- self:updateDraw()
- return self
- end;
-
- getBorder = function(self, side)
- if(side=="left")then
- return borderLeft;
- end
- if(side=="top")then
- return borderTop;
- end
- if(side=="right")then
- return borderRight;
- end
- if(side=="bottom")then
- return borderBottom;
- end
- end;
-
- draw = function(self)
- if (isVisible)then
- if(self.parent~=nil)then
- local x, y = self:getAnchorPosition()
- local w,h = self:getSize()
- local wP,hP = self.parent:getSize()
- if(x+w<1)or(x>wP)or(y+h<1)or(y>hP)then return false end
- if(self.transparentColor~=false)then
- self.parent:drawForegroundBox(x, y, w, h, self.transparentColor)
- end
- if(self.bgColor~=false)then
- self.parent:drawBackgroundBox(x, y, w, h, self.bgColor)
- end
- if(self.bgSymbol~=false)then
- self.parent:drawTextBox(x, y, w, h, self.bgSymbol)
- if(self.bgSymbol~=" ")then
- self.parent:drawForegroundBox(x, y, w, h, self.bgSymbolColor)
- end
- end
- if(shadow)then
- self.parent:drawBackgroundBox(x+1, y+h, w, 1, shadowColor)
- self.parent:drawBackgroundBox(x+w, y+1, 1, h, shadowColor)
- self.parent:drawForegroundBox(x+1, y+h, w, 1, shadowColor)
- self.parent:drawForegroundBox(x+w, y+1, 1, h, shadowColor)
- end
- if(borderColors["left"]~=false)then
- self.parent:drawTextBox(x-1, y, 1, h, "\149")
- self.parent:drawBackgroundBox(x-1, y, 1, h, self.bgColor)
- self.parent:drawForegroundBox(x-1, y, 1, h, borderColors["left"])
- end
- if(borderColors["left"]~=false)and(borderColors["top"]~=false)then
- self.parent:drawTextBox(x-1, y-1, 1, 1, "\151")
- self.parent:drawBackgroundBox(x-1, y-1, 1, 1, self.bgColor)
- self.parent:drawForegroundBox(x-1, y-1, 1, 1, borderColors["left"])
- end
- if(borderColors["top"]~=false)then
-
- self.parent:drawTextBox(x, y-1, w, 1, "\131")
- self.parent:drawBackgroundBox(x, y-1, w, 1, self.bgColor)
- self.parent:drawForegroundBox(x, y-1, w, 1, borderColors["top"])
- end
- if(borderColors["top"]~=false)and(borderColors["right"]~=false)then
- self.parent:drawTextBox(x+w, y-1, 1, 1, "\148")
- self.parent:drawForegroundBox(x+w, y-1, 1, 1, self.bgColor)
- self.parent:drawBackgroundBox(x+w, y-1, 1, 1, borderColors["right"])
- end
- if(borderColors["right"]~=false)then
- self.parent:drawTextBox(x+w, y, 1, h, "\149")
- self.parent:drawForegroundBox(x+w, y, 1, h, self.bgColor)
- self.parent:drawBackgroundBox(x+w, y, 1, h, borderColors["right"])
- end
- if(borderColors["right"]~=false)and(borderColors["bottom"]~=false)then
- self.parent:drawTextBox(x+w, y+h, 1, 1, "\133")
- self.parent:drawForegroundBox(x+w, y+h, 1, 1, self.bgColor)
- self.parent:drawBackgroundBox(x+w, y+h, 1, 1, borderColors["right"])
- end
- if(borderColors["bottom"]~=false)then
- self.parent:drawTextBox(x, y+h, w, 1, "\143")
- self.parent:drawForegroundBox(x, y+h, w, 1, self.bgColor)
- self.parent:drawBackgroundBox(x, y+h, w, 1, borderColors["bottom"])
- end
- if(borderColors["bottom"]~=false)and(borderColors["left"]~=false)then
- self.parent:drawTextBox(x-1, y+h, 1, 1, "\138")
- self.parent:drawForegroundBox(x-1, y+h, 1, 1, self.bgColor)
- self.parent:drawBackgroundBox(x-1, y+h, 1, 1, borderColors["left"])
- end
- end
- draw = false
- return true
- end
- return false
- end;
-
-
- getAbsolutePosition = function(self, x, y)
- -- relative position to absolute position
- if (x == nil) or (y == nil) then
- x, y = self:getAnchorPosition()
- end
-
- if (self.parent ~= nil) then
- local fx, fy = self.parent:getAbsolutePosition()
- x = fx + x - 1
- y = fy + y - 1
- end
- return x, y
- end;
-
- getAnchorPosition = function(self, x, y, ignOff)
- if (x == nil) then
- x = self:getX()
- end
- if (y == nil) then
- y = self:getY()
- end
- if(self.parent~=nil)then
- local pw,ph = self.parent:getSize()
- if (anchor == "top") then
- x = math.floor(pw/2) + x - 1
- elseif(anchor == "topRight") then
- x = pw + x - 1
- elseif(anchor == "right") then
- x = pw + x - 1
- y = math.floor(ph/2) + y - 1
- elseif(anchor == "bottomRight") then
- x = pw + x - 1
- y = ph + y - 1
- elseif(anchor == "bottom") then
- x = math.floor(pw/2) + x - 1
- y = ph + y - 1
- elseif(anchor == "bottomLeft") then
- y = ph + y - 1
- elseif(anchor == "left") then
- y = math.floor(ph/2) + y - 1
- elseif(anchor == "center") then
- x = math.floor(pw/2) + x - 1
- y = math.floor(ph/2) + y - 1
- end
-
- local xO, yO = self.parent:getOffsetInternal()
- if not(ignOffset or ignOff) then
- return x+xO, y+yO
- end
- end
- return x, y
- end;
-
- ignoreOffset = function(self, ignore)
- ignOffset = ignore
- if(ignore==nil)then ignOffset = true end
- return self
- end;
-
- getBaseFrame = function(self)
- if(self.parent~=nil)then
- return self.parent:getBaseFrame()
- end
- return self
- end;
-
- setAnchor = function(self, newAnchor)
- anchor = newAnchor
- self:updateDraw()
- return self
- end;
-
- getAnchor = function(self)
- return anchor
- end;
-
- onChange = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("value_changed", v)
- end
- end
- return self
- end;
-
- onClick = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("mouse_click", v)
- end
- end
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_click", self)
- activeEvents["mouse_click"] = true
- end
- return self
- end;
-
- onClickUp = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("mouse_up", v)
- end
- end
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_up", self)
- activeEvents["mouse_up"] = true
- end
- return self
- end;
-
-
- onScroll = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("mouse_scroll", v)
- end
- end
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_scroll", self)
- activeEvents["mouse_scroll"] = true
- end
- return self
- end;
-
- onDrag = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("mouse_drag", v)
- end
- end
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_drag", self)
- activeEvents["mouse_drag"] = true
- self.parent:addEvent("mouse_click", self)
- activeEvents["mouse_click"] = true
- self.parent:addEvent("mouse_up", self)
- activeEvents["mouse_up"] = true
- end
- return self
- end;
-
- onEvent = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("other_event", v)
- end
- end
- if(self.parent~=nil)then
- self.parent:addEvent("other_event", self)
- activeEvents["other_event"] = true
- end
- return self
- end;
-
- onKey = function(self, ...)
- if(isEnabled)then
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("key", v)
- self:registerEvent("char", v)
- end
- end
- if(self.parent~=nil)then
- self.parent:addEvent("key", self)
- self.parent:addEvent("char", self)
- activeEvents["key"] = true
- activeEvents["char"] = true
- end
- end
- return self
- end;
-
- onResize = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("basalt_resize", v)
- end
- end
- return self
- end;
-
- onReposition = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("basalt_reposition", v)
- end
- end
- return self
- end;
-
- onKeyUp = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("key_up", v)
- end
- end
- if(self.parent~=nil)then
- self.parent:addEvent("key_up", self)
- activeEvents["key_up"] = true
- end
- return self
- end;
-
- isFocused = function(self)
- if (self.parent ~= nil) then
- return self.parent:getFocusedObject() == self
- end
- return false
- end;
-
- onGetFocus = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("get_focus", v)
- end
- end
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_click", self)
- activeEvents["mouse_click"] = true
- end
- return self
- end;
-
- onLoseFocus = function(self, ...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- self:registerEvent("lose_focus", v)
- end
- end
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_click", self)
- activeEvents["mouse_click"] = true
- end
- return self
- end;
-
- registerEvent = function(self, event, func)
- return eventSystem:registerEvent(event, func)
- end;
-
- removeEvent = function(self, event, index)
- return eventSystem:removeEvent(event, index)
- end;
-
- sendEvent = function(self, event, ...)
- return eventSystem:sendEvent(event, self, ...)
- end;
-
- isCoordsInObject = function(self, x, y)
- if(isVisible)and(isEnabled)then
- local objX, objY = self:getAbsolutePosition(self:getAnchorPosition())
- local w, h = self:getSize()
- if (objX <= x) and (objX + w > x) and (objY <= y) and (objY + h > y) then
- return true
- end
- end
- return false
- end,
-
- mouseHandler = function(self, button, x, y, isMon)
- if(self:isCoordsInObject(x, y))then
- local val = eventSystem:sendEvent("mouse_click", self, "mouse_click", button, x, y, isMon)
- if(val==false)then return false end
- if(self.parent~=nil)then
- self.parent:setFocusedObject(self)
- end
- isDragging = true
- dragStartX, dragStartY = x, y
- return true
- end
- return false
- end,
-
- mouseUpHandler = function(self, button, x, y)
- isDragging = false
- if(self:isCoordsInObject(x, y))then
- local val = eventSystem:sendEvent("mouse_up", self, "mouse_up", button, x, y)
- if(val==false)then return false end
- return true
- end
- return false
- end,
-
- dragHandler = function(self, button, x, y)
- if(isDragging)then
- local xO, yO, parentX, parentY = 0, 0, 1, 1
- if (self.parent ~= nil) then
- xO, yO = self.parent:getOffsetInternal()
- xO = xO < 0 and math.abs(xO) or -xO
- yO = yO < 0 and math.abs(yO) or -yO
- parentX, parentY = self.parent:getAbsolutePosition(self.parent:getAnchorPosition())
- end
- local dX, dY = x + dragXOffset - (parentX - 1) + xO, y + dragYOffset - (parentY - 1) + yO
- local val = eventSystem:sendEvent("mouse_drag", self, button, dX, dY, dragStartX-x, dragStartY-y, x, y)
- local objX, objY = self:getAbsolutePosition(self:getAnchorPosition())
- dragStartX, dragStartY = x, y
- if(val~=nil)then return val end
- if(self.parent~=nil)then
- self.parent:setFocusedObject(self)
- end
- return true
- end
-
- if(self:isCoordsInObject(x, y))then
- local objX, objY = self:getAbsolutePosition(self:getAnchorPosition())
- dragStartX, dragStartY = x, y
- dragXOffset, dragYOffset = objX - x, objY - y
- end
- return false
- end,
-
- scrollHandler = function(self, dir, x, y)
- if(self:isCoordsInObject(x, y))then
- local val = eventSystem:sendEvent("mouse_scroll", self, "mouse_scroll", dir, x, y)
- if(val==false)then return false end
- if(self.parent~=nil)then
- self.parent:setFocusedObject(self)
- end
- return true
- end
- return false
- end,
-
- keyHandler = function(self, key, isHolding)
- if(isEnabled)and(isVisible)then
- if (self:isFocused()) then
- local val = eventSystem:sendEvent("key", self, "key", key, isHolding)
- if(val==false)then return false end
- return true
- end
- end
- return false
- end;
-
- keyUpHandler = function(self, key)
- if(isEnabled)and(isVisible)then
- if (self:isFocused()) then
- local val = eventSystem:sendEvent("key_up", self, "key_up", key)
- if(val==false)then return false end
- return true
- end
- end
- return false
- end;
-
- charHandler = function(self, char)
- if(isEnabled)and(isVisible)then
- if (self:isFocused()) then
- local val = eventSystem:sendEvent("char", self, "char", char)
- if(val==false)then return false end
- return true
- end
- end
- return false
- end,
-
- valueChangedHandler = function(self)
- eventSystem:sendEvent("value_changed", self, value)
- end;
-
- eventHandler = function(self, event, p1, p2, p3, p4)
- local val = eventSystem:sendEvent("other_event", self, event, p1, p2, p3, p4)
- if(val~=nil)then return val end
- return true
- end;
-
- getFocusHandler = function(self)
- local val = eventSystem:sendEvent("get_focus", self)
- if(val~=nil)then return val end
- return true
- end;
-
- loseFocusHandler = function(self)
- isDragging = false
- local val = eventSystem:sendEvent("lose_focus", self)
- if(val~=nil)then return val end
- return true
- end;
-
- init = function(self)
- if(self.parent~=nil)then
- for k,v in pairs(activeEvents)do
- if(v)then
- self.parent:addEvent(k, self)
- end
- end
- end
- if not(initialized)then
- initialized = true
- return true
- end
- end
-
- }
-
- object.__index = object
- return object
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/init.lua b/src/libs/Basalt/init.lua
deleted file mode 100644
index bb8e6b0..0000000
--- a/src/libs/Basalt/init.lua
+++ /dev/null
@@ -1,10 +0,0 @@
-local curDir = fs.getDir(table.pack(...)[2]) or ""
-
-local defaultPath = package.path
-local format = "%s;/%s/?.lua;/%s/?/init.lua"
-package.path = string.format(format, package.path, curDir,curDir)..string.format(format, package.path, curDir.."/libraries",curDir.."/libraries")..string.format(format, package.path, curDir.."/objects",curDir.."/objects")
-
-local Basalt = require("main")
-package.path = defaultPath
-
-return Basalt
\ No newline at end of file
diff --git a/src/libs/Basalt/libraries/basaltDraw.lua b/src/libs/Basalt/libraries/basaltDraw.lua
deleted file mode 100644
index 62ce41e..0000000
--- a/src/libs/Basalt/libraries/basaltDraw.lua
+++ /dev/null
@@ -1,209 +0,0 @@
-local tHex = require("tHex")
-local sub,rep = string.sub,string.rep
-
-return function(drawTerm)
- local terminal = drawTerm or term.current()
- local mirrorTerm
- local width, height = terminal.getSize()
- local cacheT = {}
- local cacheBG = {}
- local cacheFG = {}
-
- local _cacheT = {}
- local _cacheBG = {}
- local _cacheFG = {}
-
- local emptySpaceLine
- local emptyColorLines = {}
-
- local function createEmptyLines()
- emptySpaceLine = rep(" ", width)
- for n = 0, 15 do
- local nColor = 2 ^ n
- local sHex = tHex[nColor]
- emptyColorLines[nColor] = rep(sHex, width)
- end
- end
- ----
- createEmptyLines()
-
- local function recreateWindowArray()
- createEmptyLines()
- local emptyText = emptySpaceLine
- local emptyFG = emptyColorLines[colors.white]
- local emptyBG = emptyColorLines[colors.black]
- for currentY = 1, height do
- cacheT[currentY] = sub(cacheT[currentY] == nil and emptyText or cacheT[currentY] .. emptyText:sub(1, width - cacheT[currentY]:len()), 1, width)
- cacheFG[currentY] = sub(cacheFG[currentY] == nil and emptyFG or cacheFG[currentY] .. emptyFG:sub(1, width - cacheFG[currentY]:len()), 1, width)
- cacheBG[currentY] = sub(cacheBG[currentY] == nil and emptyBG or cacheBG[currentY] .. emptyBG:sub(1, width - cacheBG[currentY]:len()), 1, width)
- end
- end
- recreateWindowArray()
-
- local function setText(x, y, text)
- if (y >= 1) and (y <= height) then
- if (x + text:len() > 0) and (x <= width) then
- local oldCache = cacheT[y]
- local newCache
- local nEnd = x + #text - 1
-
- if (x < 1) then
- local startN = 1 - x + 1
- local endN = width - x + 1
- text = sub(text, startN, endN)
- elseif (nEnd > width) then
- local endN = width - x + 1
- text = sub(text, 1, endN)
- end
-
- if (x > 1) then
- local endN = x - 1
- newCache = sub(oldCache, 1, endN) .. text
- else
- newCache = text
- end
- if nEnd < width then
- newCache = newCache .. sub(oldCache, nEnd + 1, width)
- end
- cacheT[y] = newCache
- end
- end
- end
-
- local function setBG(x, y, colorStr)
- if (y >= 1) and (y <= height) then
- if (x + colorStr:len() > 0) and (x <= width) then
- local oldCache = cacheBG[y]
- local newCache
- local nEnd = x + #colorStr - 1
-
- if (x < 1) then
- colorStr = sub(colorStr, 1 - x + 1, width - x + 1)
- elseif (nEnd > width) then
- colorStr = sub(colorStr, 1, width - x + 1)
- end
-
- if (x > 1) then
- newCache = sub(oldCache, 1, x - 1) .. colorStr
- else
- newCache = colorStr
- end
- if nEnd < width then
- newCache = newCache .. sub(oldCache, nEnd + 1, width)
- end
- cacheBG[y] = newCache
- end
- end
- end
-
- local function setFG(x, y, colorStr)
- if (y >= 1) and (y <= height) then
- if (x + colorStr:len() > 0) and (x <= width) then
- local oldCache = cacheFG[y]
- local newCache
- local nEnd = x + #colorStr - 1
-
- if (x < 1) then
- local startN = 1 - x + 1
- local endN = width - x + 1
- colorStr = sub(colorStr, startN, endN)
- elseif (nEnd > width) then
- local endN = width - x + 1
- colorStr = sub(colorStr, 1, endN)
- end
-
- if (x > 1) then
- local endN = x - 1
- newCache = sub(oldCache, 1, endN) .. colorStr
- else
- newCache = colorStr
- end
- if nEnd < width then
- newCache = newCache .. sub(oldCache, nEnd + 1, width)
- end
- cacheFG[y] = newCache
- end
- end
- end
-
- local drawHelper = {
- setSize = function(w, h)
- width, height = w, h
- recreateWindowArray()
- end,
-
- setMirror = function(mirror)
- mirrorTerm = mirror
- end,
- setBG = function(x, y, colorStr)
- setBG(x, y, colorStr)
- end;
-
- setText = function(x, y, text)
- setText(x, y, text)
- end;
-
- setFG = function(x, y, colorStr)
- setFG(x, y, colorStr)
- end;
-
- drawBackgroundBox = function(x, y, width, height, bgCol)
- for n = 1, height do
- setBG(x, y + (n - 1), rep(tHex[bgCol], width))
- end
- end;
- drawForegroundBox = function(x, y, width, height, fgCol)
- for n = 1, height do
- setFG(x, y + (n - 1) ,rep(tHex[fgCol], width))
- end
- end;
- drawTextBox = function(x, y, width, height, symbol)
- for n = 1, height do
- setText(x, y + (n - 1), rep(symbol, width))
- end
- end;
- writeText = function(x, y, text, bgCol, fgCol)
- if(text~=nil)then
- setText(x, y, text)
- if(bgCol~=nil)and(bgCol~=false)then
- setBG(x, y, rep(tHex[bgCol], text:len()))
- end
- if(fgCol~=nil)and(fgCol~=false)then
- setFG(x, y, rep(tHex[fgCol], text:len()))
- end
- end
- end;
-
- update = function()
- local xC, yC = terminal.getCursorPos()
- local isBlinking = false
- if (terminal.getCursorBlink ~= nil) then
- isBlinking = terminal.getCursorBlink()
- end
- terminal.setCursorBlink(false)
- if(mirrorTerm~=nil)then terminal.setCursorBlink(false) end
- for n = 1, height do
- terminal.setCursorPos(1, n)
- terminal.blit(cacheT[n], cacheFG[n], cacheBG[n])
- if(mirrorTerm~=nil)then
- mirrorTerm.setCursorPos(1, n)
- mirrorTerm.blit(cacheT[n], cacheFG[n], cacheBG[n])
- end
- end
- terminal.setBackgroundColor(colors.black)
- terminal.setCursorBlink(isBlinking)
- terminal.setCursorPos(xC, yC)
- if(mirrorTerm~=nil)then
- mirrorTerm.setBackgroundColor(colors.black)
- mirrorTerm.setCursorBlink(isBlinking)
- mirrorTerm.setCursorPos(xC, yC)
- end
-
- end;
-
- setTerm = function(newTerm)
- terminal = newTerm;
- end;
- }
- return drawHelper
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/libraries/basaltEvent.lua b/src/libs/Basalt/libraries/basaltEvent.lua
deleted file mode 100644
index 80bcd55..0000000
--- a/src/libs/Basalt/libraries/basaltEvent.lua
+++ /dev/null
@@ -1,35 +0,0 @@
-return function()
- local events = {}
- local index = {}
-
- local event = {
- registerEvent = function(self, _event, func)
- if (events[_event] == nil) then
- events[_event] = {}
- index[_event] = 1
- end
- events[_event][index[_event]] = func
- index[_event] = index[_event] + 1
- return index[_event] - 1
- end;
-
- removeEvent = function(self, _event, index)
- events[_event][index[_event]] = nil
- end;
-
- sendEvent = function(self, _event, ...)
- local returnValue
- if (events[_event] ~= nil) then
- for _, value in pairs(events[_event]) do
- local val = value(...)
- if(val==false)then
- returnValue = val
- end
- end
- end
- return returnValue
- end;
- }
- event.__index = event
- return event
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/libraries/basaltLogs.lua b/src/libs/Basalt/libraries/basaltLogs.lua
deleted file mode 100644
index 4edcd5a..0000000
--- a/src/libs/Basalt/libraries/basaltLogs.lua
+++ /dev/null
@@ -1,20 +0,0 @@
-local logDir = ""
-local logFileName = "basaltLog.txt"
-
-local defaultLogType = "Debug"
-
-fs.delete(logDir~="" and logDir.."/"..logFileName or logFileName)
-
-local mt = {
- __call = function(_,text, typ)
- if(text==nil)then return end
- local dirStr = logDir~="" and logDir.."/"..logFileName or logFileName
- local handle = fs.open(dirStr, fs.exists(dirStr) and "a" or "w")
- handle.writeLine("[Basalt]["..(typ and typ or defaultLogType).."]: "..tostring(text))
- handle.close()
- end,
-}
-
-return setmetatable({}, mt)
-
---Work in progress
\ No newline at end of file
diff --git a/src/libs/Basalt/libraries/geometricPoints.lua b/src/libs/Basalt/libraries/geometricPoints.lua
deleted file mode 100644
index 01800a2..0000000
--- a/src/libs/Basalt/libraries/geometricPoints.lua
+++ /dev/null
@@ -1,197 +0,0 @@
-local function line(x1,y1,x2,y2)
- local points = {}
- if x1 == x2 and y1 == y2 then return {x=x1,y=x2} end
- local minX = math.min(x1, x2)
- local maxX, minY, maxY
- if minX == x1 then minY,maxX,maxY = y1,x2,y2
- else minY,maxX,maxY = y2,x1,y1 end
- local xDiff,yDiff = maxX - minX,maxY - minY
- if xDiff > math.abs(yDiff) then
- local y = minY
- local dy = yDiff / xDiff
- for x = minX, maxX do
- table.insert(points,{x=x,y=math.floor(y + 0.5)})
- y = y + dy
- end
- else
- local x,dx = minX,xDiff / yDiff
- if maxY >= minY then
- for y = minY, maxY do
- table.insert(points,{x=math.floor(x + 0.5),y=y})
- x = x + dx
- end
- else
- for y = minY, maxY, -1 do
- table.insert(points,{x=math.floor(x + 0.5),y=y})
- x = x - dx
- end
- end
- end
- return points
-end
-
-local function filledCircle(xC, yC, r)
- local points = {}
- for x=-r, r+1 do
- local dy = math.floor(math.sqrt(r*r - x*x))
- for y=-dy, dy+1 do
- table.insert(points, {x=xC+x, y=yC+y})
- end
- end
- return points
-end
-
-local function ellipse(xC, yC, r1, r2, filled)
- local rx,ry = math.ceil(math.floor(r1-0.5)/2),math.ceil(math.floor(r2-0.5)/2)
- local x,y=0,ry
- local d1 = ((ry * ry) - (rx * rx * ry) + (0.25 * rx * rx))
- local dx = 2*ry^2*x
- local dy = 2*rx^2*y
- local points = {}
- while dx < dy do
- table.insert(points,{x=x+xC,y=y+yC})
- table.insert(points,{x=-x+xC,y=y+yC})
- table.insert(points,{x=x+xC,y=-y+yC})
- table.insert(points,{x=-x+xC,y=-y+yC})
- if filled then
- for y=-y+yC+1,y+yC-1 do
- table.insert(points,{x=x+xC,y=y})
- table.insert(points,{x=-x+xC,y=y})
- end
- end
- if d1 < 0 then
- x = x + 1
- dx = dx + 2*ry^2
- d1 = d1 + dx + ry^2
- else
- x,y = x+1,y-1
- dx = dx + 2*ry^2
- dy = dy - 2*rx^2
- d1 = d1 + dx - dy + ry^2
- end
- end
- local d2 = (((ry * ry) * ((x + 0.5) * (x + 0.5))) + ((rx * rx) * ((y - 1) * (y - 1))) - (rx * rx * ry * ry))
- while y >= 0 do
- table.insert(points,{x=x+xC,y=y+yC})
- table.insert(points,{x=-x+xC,y=y+yC})
- table.insert(points,{x=x+xC,y=-y+yC})
- table.insert(points,{x=-x+xC,y=-y+yC})
- if filled then
- for y=-y+yC,y+yC do
- table.insert(points,{x=x+xC,y=y})
- table.insert(points,{x=-x+xC,y=y})
- end
- end
- if d2 > 0 then
- y = y - 1
- dy = dy - 2*rx^2
- d2 = d2 + rx^2 - dy
- else
- y = y - 1
- x = x + 1
- dy = dy - 2*rx^2
- dx = dx + 2*ry^2
- d2 = d2 + dx - dy + rx^2
- end
- end
- return points
-end
-
-local function circle(xC, yC, r, filled)
- return ellipse(xC, yC, r, r, filled)
-end
-
-return {
-circle = function(x, y, radius, filled)
- return circle(x, y, radius, filled)
-end,
-
-rectangle = function(x1, y1, x2, y2, filled)
- local points = {}
- if(filled)then
- for y=y1,y2 do
- for x=x1,x2 do
- table.insert(points, {x=x,y=y})
- end
- end
- else
- for y=y1,y2 do
- for x=x1,x2 do
- if(x==x1)or(x==x2)or(y==y1)or(y==y2)then
- table.insert(points, {x=x,y=y})
- end
- end
- end
- end
- return points
-end,
-
-triangle = function(x1, y1, x2, y2, x3, y3, filled)
- local function drawFlatTopTriangle(points,x1,y1,x2,y2,x3,y3)
- local m1 = (x3 - x1) / (y3 - y1)
- local m2 = (x3 - x2) / (y3 - y2)
- local yStart = math.ceil(y1 - 0.5)
- local yEnd = math.ceil(y3 - 0.5)-1
- for y = yStart, yEnd do
- local px1 = m1 * (y + 0.5 - y1) + x1
- local px2 = m2 * (y + 0.5 - y2) + x2
- local xStart = math.ceil(px1 - 0.5)
- local xEnd = math.ceil(px2 - 0.5)
- for x=xStart,xEnd do
- table.insert(points,{x=x,y=y})
- end
- end
- end
-
- local function drawFlatBottomTriangle(points,x1,y1,x2,y2,x3,y3)
- local m1 = (x2 - x1) / (y2 - y1)
- local m2 = (x3 - x1) / (y3 - y1)
- local yStart = math.ceil(y1-0.5)
- local yEnd = math.ceil(y3-0.5)-1
- for y = yStart, yEnd do
- local px1 = m1 * (y + 0.5 - y1) + x1
- local px2 = m2 * (y + 0.5 - y1) + x1
- local xStart = math.ceil(px1 - 0.5)
- local xEnd = math.ceil(px2 - 0.5)
- for x=xStart,xEnd do
- table.insert(points,{x=x,y=y})
- end
- end
- end
- local points = {}
- if(filled)then
- if y2 < y1 then x1,y1,x2,y2 = x2,y2,x1,y1 end
- if y3 < y2 then x2,y2,x3,y3 = x3,y3,x2,y2 end
- if y2 < y2 then x1,y1,x2,y2 = x2,y2,x1,y1 end
- if y1 == y2 then
- if x2 < x1 then x1,y1,x2,y2 = x2,y2,x1,y1 end
- drawFlatTopTriangle(points,x1,y1,x2,y2,x3,y3)
- elseif y2 == y3 then
- if x3 < x2 then x3,y3,x2,y2 = x2,y2,x3,y3 end
- drawFlatBottomTriangle(points,x1,y1,x2,y2,x3,y3)
- else
- local alphaSplit = (y2-y1)/(y3-y1)
- local x = x1 + ((x3 - x1) * alphaSplit)
- local y = y1 + ((y3 - y1) * alphaSplit)
- if x2 < x then
- drawFlatBottomTriangle(points,x1,y1,x2,y2,x, y)
- drawFlatTopTriangle(points,x2,y2,x,y,x3,y3)
- else
- drawFlatBottomTriangle(points,x1,y1,x,y,x1,y1)
- drawFlatTopTriangle(points,x,y,x2,y2,x3,y3)
- end
- end
- else
- points = line(x1,y1,x2,y2)
- for k,v in pairs(line(x2,y2,x3,y3))do table.insert(points, v) end
- for k,v in pairs(line(x3,y3,x1,y1))do table.insert(points, v) end
- end
- return points
-end,
-
-line = line,
-
-ellipse = function(xCenter, yCenter, radius1, radius2, filled)
- return ellipse(xCenter, yCenter, radius1, radius2, filled)
-end
-}
\ No newline at end of file
diff --git a/src/libs/Basalt/libraries/layout.lua b/src/libs/Basalt/libraries/layout.lua
deleted file mode 100644
index ee29437..0000000
--- a/src/libs/Basalt/libraries/layout.lua
+++ /dev/null
@@ -1,147 +0,0 @@
-local function newNode(name)
- local node = {}
- node.___value = nil
- node.___name = name
- node.___children = {}
- node.___props = {}
-
- function node:value() return self.___value end
- function node:setValue(val) self.___value = val end
- function node:name() return self.___name end
- function node:setName(name) self.___name = name end
- function node:children() return self.___children end
- function node:numChildren() return #self.___children end
- function node:addChild(child)
- if self[child:name()] ~= nil then
- if type(self[child:name()].name) == "function" then
- local tempTable = {}
- table.insert(tempTable, self[child:name()])
- self[child:name()] = tempTable
- end
- table.insert(self[child:name()], child)
- else
- self[child:name()] = child
- end
- table.insert(self.___children, child)
- end
-
- function node:properties() return self.___props end
- function node:numProperties() return #self.___props end
- function node:addProperty(name, value)
- local lName = "@" .. name
- if self[lName] ~= nil then
- if type(self[lName]) == "string" then
- local tempTable = {}
- table.insert(tempTable, self[lName])
- self[lName] = tempTable
- end
- table.insert(self[lName], value)
- else
- self[lName] = value
- end
- table.insert(self.___props, { name = name, value = self[name] })
- end
-
- return node
-end
-
-local XmlParser = {};
-
-function XmlParser:ToXmlString(value)
- value = string.gsub(value, "&", "&"); -- '&' -> "&"
- value = string.gsub(value, "<", "<"); -- '<' -> "<"
- value = string.gsub(value, ">", ">"); -- '>' -> ">"
- value = string.gsub(value, "\"", """); -- '"' -> """
- value = string.gsub(value, "([^%w%&%;%p%\t% ])",
- function(c)
- return string.format("&#x%X;", string.byte(c))
- end);
- return value;
-end
-
-function XmlParser:FromXmlString(value)
- value = string.gsub(value, "&#x([%x]+)%;",
- function(h)
- return string.char(tonumber(h, 16))
- end);
- value = string.gsub(value, "&#([0-9]+)%;",
- function(h)
- return string.char(tonumber(h, 10))
- end);
- value = string.gsub(value, """, "\"");
- value = string.gsub(value, "'", "'");
- value = string.gsub(value, ">", ">");
- value = string.gsub(value, "<", "<");
- value = string.gsub(value, "&", "&");
- return value;
-end
-
-function XmlParser:ParseArgs(node, s)
- string.gsub(s, "(%w+)=([\"'])(.-)%2", function(w, _, a)
- node:addProperty(w, self:FromXmlString(a))
- end)
-end
-
-function XmlParser:ParseXmlText(xmlText)
- local stack = {}
- local top = newNode()
- table.insert(stack, top)
- local ni, c, label, xarg, empty
- local i, j = 1, 1
- while true do
- ni, j, c, label, xarg, empty = string.find(xmlText, "<(%/?)([%w_:]+)(.-)(%/?)>", i)
- if not ni then break end
- local text = string.sub(xmlText, i, ni - 1);
- if not string.find(text, "^%s*$") then
- local lVal = (top:value() or "") .. self:FromXmlString(text)
- stack[#stack]:setValue(lVal)
- end
- if empty == "/" then -- empty element tag
- local lNode = newNode(label)
- self:ParseArgs(lNode, xarg)
- top:addChild(lNode)
- elseif c == "" then -- start tag
- local lNode = newNode(label)
- self:ParseArgs(lNode, xarg)
- table.insert(stack, lNode)
- top = lNode
- else -- end tag
- local toclose = table.remove(stack) -- remove top
-
- top = stack[#stack]
- if #stack < 1 then
- error("XmlParser: nothing to close with " .. label)
- end
- if toclose:name() ~= label then
- error("XmlParser: trying to close " .. toclose.name .. " with " .. label)
- end
- top:addChild(toclose)
- end
- i = j + 1
- end
- local text = string.sub(xmlText, i);
- if #stack > 1 then
- error("XmlParser: unclosed " .. stack[#stack]:name())
- end
- return top
-end
-
-function XmlParser:loadFile(xmlFilename, base)
- if not base then
- base = system.ResourceDirectory
- end
-
- local path = system.pathForFile(xmlFilename, base)
- local hFile, err = io.open(path, "r");
-
- if hFile and not err then
- local xmlText = hFile:read("*a"); -- read file content
- io.close(hFile);
- return self:ParseXmlText(xmlText), nil;
- else
- print(err)
- return nil
- end
-end
-
-return XmlParser
\ No newline at end of file
diff --git a/src/libs/Basalt/libraries/miniBDF.lua b/src/libs/Basalt/libraries/miniBDF.lua
deleted file mode 100644
index 6e5ddb0..0000000
--- a/src/libs/Basalt/libraries/miniBDF.lua
+++ /dev/null
@@ -1,304 +0,0 @@
----Converts a given table to a blit char.
----@param str string Something like: "100110" for \153
----@return string sChar Matching counter part
----@return boolean bReversed Swaped text & background color?
-local function toBlit(str)
- if type(str) ~= "string" or #str < 6 then
- str = "000000"
- elseif str:sub(1,1) == '#' then
- return str:sub(2,2), false
- end
- local t = {}
- for i=1,6 do
- t[#t+1] = tonumber(str:sub(i,i)) or 0
- end
-
- if t[6]==1 then
- for i=1,5 do
- t[i] = 1-t[i]
- end end
- local n = 128
- for i=0,4 do
- n = n+t[i+1]*2^i
- end
-
- return string.char(n), (t[6] == 1)
-end
-
----Converts a given char to a table,
----representing pixels in the current font.
----@param font table The font, generated with bdf.loadBDF(...)
----@param char string The char (e.g. "f")
----@return table char The char in the current font, as table
-local function drawChar(font, char)
- local char = font.bitmap[char:byte()]
- -- Return empty
- if not char then
- if not font.bitmap[63] then
- local width,height = font.width,font.height
- local tmp = (' '):rep(width)
- local char = {}
- for y=1,height do
- char[#char+1] = tmp
- end
- return char
- else
- char = font.bitmap[63]
- end
- end
-
- -- Get bitmap
- local result = {}
- local j=0
- for i=#char,1,-1 do
- result[font.width-j-char.bound.offy-font.offy] = char[i]
- j=j+1
- end
- -- Fill gaps
- for i=1,font.height do
- if not result[i] then
- result[i] = ('0'):rep(font.width)
- else
- if char.bound.offx > 0 then
- result[i] = ('0'):rep(char.bound.offx)..result[i]
- end
- if #result[i] < font.width then
- result[i] =result[i]..('0'):rep(font.width-#result[i])
- end
- end
- end
-
- return result
-end
-
----Same as drawChar but with strings.
----@param font The font, generated with bdf.loadBDF(...)
----@param str string The string (e.g. "Hello")
----@return table str The string in the current font, as table
-local function drawString(font, str)
- local string = {}
- for x=1,#str do
- local char = font:drawChar(str:sub(x))
- for y=1,#char do
- if not string[y] then string[y] = "" end
- string[y] = string[y]..char[y]
- end
- end
- return string
-end
-
-local function needsSpace(len,expected)
- local add = 0
- while math.floor((len+add)/expected) ~= ((len+add)/expected) do
- add = add+1
- end
- return add
-end
-
-local blit = {[1]='0',[2]='1',[4]='2',[8]='3',[16]='4',[32]='5',[64]='6',[128]='7',[256]='8',[512]='9',[1024]='a',[2048]='b',[4096]='c',[8192]='d',[16384]='e',[32768]='f' }
----Converts a bitmap table into a one represented by box chars.
----@param str table The bitmap (could be via font:drawChar("..."))
----@param bg number The Background color
----@param fg number The Background color
----@return table blits The result
-local function compress(str, bg,fg)
- local addX = needsSpace(#str[1],2)
- local addY = needsSpace(#str,3)
- if addX > 0 then
- for i=1,#str do
- str[i] = str[i]..('0'):rep(addX)
- end
- end
- if addY > 0 then
- for i=1,addY do
- str[#str+1] = ('0'):rep(#str[1])
- end
- end
-
- local blits = {
- ch={},
- bg={},
- fg={}
- }
- for y=1,#str/3 do
- blits.ch[y] = ""
- blits.bg[y] = ""
- blits.fg[y] = ""
- end
-
- for x=1,#str[1]/2 do
- for y=1,#str/3 do
- local char,invert = toBlit(
- str[y*3-2]:sub(x*2-1,x*2)..
- str[y*3-1]:sub(x*2-1,x*2)..
- str[y*3-0]:sub(x*2-1,x*2)
- )
- blits.ch[y] = blits.ch[y]..char
- local c1,c2 = blit[bg],blit[fg]
- if invert then
- c2,c1 = blit[bg],blit[fg]
- end
- blits.bg[y] = blits.bg[y]..c1
- blits.fg[y] = blits.fg[y]..c2
- end
- end
- return blits
-end
-
-
-local data = {
- FONT = function(font,line)
- font.name = line
- end,
- FONTBOUNDINGBOX = function(font,line)
- local type={"width","height","offx","offy"}
- local i=1
- for word in string.gmatch(line, '([^ ]+)') do
- if i > #type then return end
- font[type[i]] = tonumber(word) or 0
- i=i+1
- end
- end,
- CHARSET_REGISTRY = function(font,line)
- if line:find("ISO") and line:find("8859") then
- font.validCharReg = font.validCharReg+1
- end
- end,
- CHARSET_ENCODING = function(font,line)
- if line:find("\"1\"") then
- font.validCharReg = font.validCharReg+1
- end
- end,
- CHARS = function(font,line)
- local num = tonumber(line) or 0
- if num == 256 then
- font.validCharReg = font.validCharReg+1
- end
- end,
- STARTCHAR = function(font,line)
- font._CUR_CHAR = {name=line}
- end,
- ENCODING = function(font,line)
- if not font._CUR_CHAR then return end
- font._CUR_CHAR.byte = tonumber(line) or 0
- end,
- BBX = function(font, line)
- local i=1
- local b = {"width","height","offx","offy"}
- font._CUR_CHAR.bound = {}
- for word in string.gmatch(line, '([^ ]+)') do
- if i > #b then return end
- font._CUR_CHAR.bound[b[i]] = tonumber(word) or 0
- i=i+1
- end
- end,
- BITMAP = function(font,_)
- font.isBitmap = true
- end
-}
-
----Parses a .BDF font file into a in lua readable table.
----@param path string The path to the .BDF file
----@return table font The result
-local function loadBDF(path)
- if not (fs.exists(path) and not fs.isDir(path)) then
- return printError("Could not load: \'"..path.."\'!")
- end
-
- local f = fs.open(path, 'r')
- local font = {bitmap={},validCharReg=0,isBitmap=false}
-
- local line = f.readLine()
- repeat
- if font.isBitmap then
- if line:find("ENDCHAR") then
- -- Finishing
- font.isBitmap = false
- local byte = font._CUR_CHAR.byte
- font._CUR_CHAR.byte = nil
- font.bitmap[byte] = {}
- for k,v in pairs(font._CUR_CHAR) do
- font.bitmap[byte][k] = v
- end
- font._CUR_CHAR = nil
- else
- local num = tonumber("0x"..line)
- if not num then return end
-
- local function ffs(value)
- if value == 0 then return 0 end
- local pos = 0;
- while bit32.band(value, 1) == 0 do
- value = bit32.rshift(value, 1);
- pos = pos + 1
- end
- return pos
- end
-
- local l = ""
- local w = math.ceil(math.floor(math.log(num) / math.log(2)) / 8) * 8
- for i = ffs(num) or 0, w do
- l = l..bit32.band(bit32.rshift(num, i-1), 1)
- end
- l = l:reverse()
- local w = font._CUR_CHAR.bound.width
- if #l > w then
- l = l:sub(1,w)
- elseif #l < w then
- l = l..('0'):rep(w-#l)
- end
-
- font._CUR_CHAR[#font._CUR_CHAR+1] = l
- end
- else
- local label = line:match('([^ ]+)')
- if data[label] then
- data[label](font, line:sub(#label+2))
- end
- end
- line = f.readLine()
- until line == nil
-
- f.close()
- font.isBitmap = nil
- font.validCharReg = (font.validCharReg == 3)
- font.drawChar = drawChar
- font.drawString = drawString
- return font
-end
-
----Checks for errors a font may have. Should return 0.
----The bigger the results number, the more errors it has.
----@param font table The font that will be checked.
----@return number errors The amount of errors the font has.
----@return table messages The error messages
-local function checkFont(font)
- local msg = {}
- local errorCounter = 0
- if type(font.name) ~= "string" then
- errorCounter = errorCounter+1
- table.insert(msg,"Font has no name.")
- elseif type(font.width) ~= "number" then
- errorCounter = errorCounter+1
- table.insert(msg,"Font has no global width.")
- elseif type(font.height) ~= "number" then
- errorCounter = errorCounter+1
- table.insert(msg,"Font has no global height.")
- elseif not font.validCharReg then
- errorCounter = errorCounter+1
- table.insert(msg,"Font uses not supported format.")
- elseif type(font.bitmap) ~= "table" then
- errorCounter = errorCounter+1
- table.insert(msg,"Font has no bitmaps (nothing to render)")
- elseif #font.bitmap ~= 255 then
- errorCounter = errorCounter+1
- table.insert(msg,"Font may have missing chars.")
- end
- return errorCounter,msg
-end
-
-return {
- loadBDF = loadBDF,
- checkFont = checkFont,
- compress = compress
-}
\ No newline at end of file
diff --git a/src/libs/Basalt/libraries/process.lua b/src/libs/Basalt/libraries/process.lua
deleted file mode 100644
index 8a7248e..0000000
--- a/src/libs/Basalt/libraries/process.lua
+++ /dev/null
@@ -1,63 +0,0 @@
-local processes = {}
-local process = {}
-local processId = 0
-
-function process:new(path, window, ...)
- local args = {...}
- local newP = setmetatable({ path = path }, { __index = self })
- newP.window = window
- newP.processId = processId
- if(type(path)=="string")then
- newP.coroutine = coroutine.create(function()
- shell.execute(path, table.unpack(args))
- end)
- elseif(type(path)=="function")then
- newP.coroutine = coroutine.create(function()
- path(table.unpack(args))
- end)
- else
- return
- end
- processes[processId] = newP
- processId = processId + 1
- return newP
-end
-
-function process:resume(event, ...)
- term.redirect(self.window)
- if(self.filter~=nil)then
- if(event~=self.filter)then return end
- self.filter=nil
- end
- local ok, result = coroutine.resume(self.coroutine, event, ...)
- if ok then
- self.filter = result
- else
- error(result)
- end
-end
-
-function process:isDead()
- if (self.coroutine ~= nil) then
- if (coroutine.status(self.coroutine) == "dead") then
- table.remove(processes, self.processId)
- return true
- end
- else
- return true
- end
- return false
-end
-
-function process:getStatus()
- if (self.coroutine ~= nil) then
- return coroutine.status(self.coroutine)
- end
- return nil
-end
-
-function process:start()
- coroutine.resume(self.coroutine)
-end
-
-return process
\ No newline at end of file
diff --git a/src/libs/Basalt/libraries/tHex.lua b/src/libs/Basalt/libraries/tHex.lua
deleted file mode 100644
index bd070ca..0000000
--- a/src/libs/Basalt/libraries/tHex.lua
+++ /dev/null
@@ -1,18 +0,0 @@
-return { -- copy paste is a very important feature
- [colors.white] = "0",
- [colors.orange] = "1",
- [colors.magenta] = "2",
- [colors.lightBlue] = "3",
- [colors.yellow] = "4",
- [colors.lime] = "5",
- [colors.pink] = "6",
- [colors.gray] = "7",
- [colors.lightGray] = "8",
- [colors.cyan] = "9",
- [colors.purple] = "a",
- [colors.blue] = "b",
- [colors.brown] = "c",
- [colors.green] = "d",
- [colors.red] = "e",
- [colors.black] = "f",
-}
\ No newline at end of file
diff --git a/src/libs/Basalt/libraries/utils.lua b/src/libs/Basalt/libraries/utils.lua
deleted file mode 100644
index f9844ce..0000000
--- a/src/libs/Basalt/libraries/utils.lua
+++ /dev/null
@@ -1,120 +0,0 @@
-local splitString = function(str, sep)
- if sep == nil then
- sep = "%s"
- end
- local t={}
- for v in string.gmatch(str, "([^"..sep.."]+)") do
- table.insert(t, v)
- end
- return t
-end
-
-return {
-getTextHorizontalAlign = function(text, width, textAlign, replaceChar)
- text = string.sub(text, 1, width)
- local offset = width - string.len(text)
- if (textAlign == "right") then
- text = string.rep(replaceChar or " ", offset) .. text
- elseif (textAlign == "center") then
- text = string.rep(replaceChar or " ", math.floor(offset / 2)) .. text .. string.rep(replaceChar or " ", math.floor(offset / 2))
- text = text .. (string.len(text) < width and (replaceChar or " ") or "")
- else
- text = text .. string.rep(replaceChar or " ", offset)
- end
- return text
-end,
-
-getTextVerticalAlign = function(h, textAlign)
- local offset = 0
- if (textAlign == "center") then
- offset = math.ceil(h / 2)
- if (offset < 1) then
- offset = 1
- end
- end
- if (textAlign == "bottom") then
- offset = h
- end
- if(offset<1)then offset=1 end
- return offset
-end,
-
-rpairs = function(t)
- return function(t, i)
- i = i - 1
- if i ~= 0 then
- return i, t[i]
- end
- end, t, #t + 1
-end,
-
-tableCount = function(t)
- local n = 0
- if(t~=nil)then
- for k,v in pairs(t)do
- n = n + 1
- end
- end
- return n
-end,
-
-splitString = splitString,
-
-createText = function(str, width)
- local uniqueLines = splitString(str, "\n")
- local lines = {}
- for k,v in pairs(uniqueLines)do
- local line = ""
- local words = splitString(v, " ")
- for a,b in pairs(words)do
- if(#line+#b <= width)then
- line = line=="" and b or line.." "..b
- if(a==#words)then table.insert(lines, line) end
- else
- table.insert(lines, line)
- line = b:sub(1,width)
- if(a==#words)then table.insert(lines, line) end
- end
- end
- end
- return lines
-end,
-
-getValueFromXML = function(name, tab)
- local var
- if(type(tab)~="table")then return end
- if(tab[name]~=nil)then
- if(type(tab[name])=="table")then
- if(tab[name].value~=nil)then
- var = tab[name]:value()
- end
- end
- end
- if(var==nil)then var = tab["@"..name] end
-
- if(var=="true")then
- var = true
- elseif(var=="false")then
- var = false
- elseif(tonumber(var)~=nil)then
- var = tonumber(var)
- end
- return var
-end,
-
-numberFromString = function(str)
- return load("return " .. str)()
-end,
-
-uuid = function()
- local random = math.random
- local function uuid()
- local template ='xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx'
- return string.gsub(template, '[xy]', function (c)
- local v = (c == 'x') and random(0, 0xf) or random(8, 0xb)
- return string.format('%x', v)
- end)
- end
- return uuid()
-end,
-}
\ No newline at end of file
diff --git a/src/libs/Basalt/loadObjects.lua b/src/libs/Basalt/loadObjects.lua
deleted file mode 100644
index bb600dd..0000000
--- a/src/libs/Basalt/loadObjects.lua
+++ /dev/null
@@ -1,21 +0,0 @@
-local _OBJECTS = {}
-if(packaged)then
- for k,v in pairs(getProject("objects"))do
- _OBJECTS[k] = v()
- end
- return _OBJECTS
-end
-
-local args = table.pack(...)
-local dir = fs.getDir(args[2] or "Basalt")
-if(dir==nil)then
- error("Unable to find directory "..args[2].." please report this bug to our discord.")
-end
-
-for _,v in pairs(fs.list(fs.combine(dir, "objects")))do
- if(v~="example.lua")then
- local name = v:gsub(".lua", "")
- _OBJECTS[name] = require(name)
- end
-end
-return _OBJECTS
\ No newline at end of file
diff --git a/src/libs/Basalt/main.lua b/src/libs/Basalt/main.lua
deleted file mode 100644
index 28fc5b3..0000000
--- a/src/libs/Basalt/main.lua
+++ /dev/null
@@ -1,357 +0,0 @@
-local basaltEvent = require("basaltEvent")()
-local Frame = require("Frame")
-local theme = require("theme")
-local utils = require("utils")
-local log = require("basaltLogs")
-local uuid = utils.uuid
-local createText = utils.createText
-
-
-local baseTerm = term.current()
-local version = "1.6.1"
-local debugger = true
-
-local projectDirectory = fs.getDir(table.pack(...)[2] or "")
-
-local activeKey, frames, monFrames, variables, schedules = {}, {}, {}, {}, {}
-local mainFrame, activeFrame, focusedObject, updaterActive
-
-local basalt = {}
-
-if not term.isColor or not term.isColor() then
- error('Basalt requires an advanced (golden) computer to run.', 0)
-end
-
-local function stop()
- updaterActive = false
- baseTerm.clear()
- baseTerm.setCursorPos(1, 1)
-end
-
-local setVariable = function(name, var)
- variables[name] = var
-end
-
-local getVariable = function(name)
- return variables[name]
-end
-
-local setTheme = function(_theme)
- theme = _theme
-end
-
-local getTheme = function(name)
- return theme[name]
-end
-
-local bInstance = {
- getMainFrame = function()
- return mainFrame
- end,
-
- setVariable = setVariable,
- getVariable = getVariable,
- getTheme = getTheme,
-
- setMainFrame = function(mFrame)
- mainFrame = mFrame
- end,
-
- getActiveFrame = function()
- return activeFrame
- end,
-
- setActiveFrame = function(aFrame)
- activeFrame = aFrame
- end,
-
- getFocusedObject = function()
- return focusedObject
- end,
-
- setFocusedObject = function(focused)
- focusedObject = focused
- end,
-
- getMonitorFrame = function(name)
- return monFrames[name]
- end,
-
- setMonitorFrame = function(name, frame)
- if(mainFrame == frame)then mainFrame = nil end
- monFrames[name] = frame
- end,
-
- getBaseTerm = function()
- return baseTerm
- end,
-
- stop = stop,
- newFrame = Frame,
-
- getDirectory = function()
- return projectDirectory
- end
-}
-
-local basaltError = function(errMsg)
- baseTerm.clear()
- baseTerm.setBackgroundColor(colors.black)
- baseTerm.setTextColor(colors.red)
- local w,h = baseTerm.getSize()
- if(basalt.logging)then
- log(errMsg, "Error")
- end
-
- local text = createText("Basalt error: "..errMsg, w)
- local yPos = 1
- for k,v in pairs(text)do
- baseTerm.setCursorPos(1,yPos)
- baseTerm.write(v)
- yPos = yPos + 1
- end
- baseTerm.setCursorPos(1,yPos+1)
- updaterActive = false
-end
-
-local function handleSchedules(event, p1, p2, p3, p4)
- if(#schedules>0)then
- local finished = {}
- for n=1,#schedules do
- if(schedules[n]~=nil)then
- if (coroutine.status(schedules[n]) == "suspended")then
- local ok, result = coroutine.resume(schedules[n], event, p1, p2, p3, p4)
- if not(ok)then
- basaltError(result)
- end
- else
- table.insert(finished, n)
- end
- end
- end
- for n=1,#finished do
- table.remove(schedules, finished[n]-(n-1))
- end
- end
-end
-
-local function drawFrames()
- if(updaterActive==false)then return end
- if(mainFrame~=nil)then
- mainFrame:draw()
- mainFrame:updateTerm()
- end
- for _,v in pairs(monFrames)do
- v:draw()
- v:updateTerm()
- end
-end
-
-local function basaltUpdateEvent(event, p1, p2, p3, p4)
- if(basaltEvent:sendEvent("basaltEventCycle", event, p1, p2, p3, p4)==false)then return end
- if(mainFrame~=nil)then
- if (event == "mouse_click") then
- mainFrame:mouseHandler(p1, p2, p3, false)
- activeFrame = mainFrame
- elseif (event == "mouse_drag") then
- mainFrame:dragHandler(p1, p2, p3, p4)
- activeFrame = mainFrame
- elseif (event == "mouse_up") then
- mainFrame:mouseUpHandler(p1, p2, p3, p4)
- activeFrame = mainFrame
- elseif (event == "mouse_scroll") then
- mainFrame:scrollHandler(p1, p2, p3, p4)
- activeFrame = mainFrame
- end
- end
- if(event == "monitor_touch") then
- if(monFrames[p1]~=nil)then
- monFrames[p1]:mouseHandler(1, p2, p3, true)
- activeFrame = monFrames[p1]
- end
- end
-
- if(event == "char")then
- if(activeFrame~=nil)then
- activeFrame:charHandler(p1)
- end
- end
- if(event == "key_up")then
- if(activeFrame~=nil)then
- activeFrame:keyUpHandler(p1)
- end
- activeKey[p1] = false
- end
- if(event == "key")then
- if(activeFrame~=nil)then
- activeFrame:keyHandler(p1, p2)
- end
- activeKey[p1] = true
- end
- if(event == "terminate")then
- if(activeFrame~=nil)then
- activeFrame:eventHandler(event)
- if(updaterActive==false)then return end
- end
- end
- if(event~="mouse_click")and(event~="mouse_up")and(event~="mouse_scroll")and(event~="mouse_drag")and(event~="key")and(event~="key_up")and(event~="char")and(event~="terminate")then
- for k, v in pairs(frames) do
- v:eventHandler(event, p1, p2, p3, p4)
- end
- end
- handleSchedules(event, p1, p2, p3, p4)
- drawFrames()
-end
-
-basalt = {
- logging = false,
- setTheme = setTheme,
- getTheme = getTheme,
- drawFrames = drawFrames,
- getVersion = function()
- return version
- end,
-
- setVariable = setVariable,
- getVariable = getVariable,
-
- setBaseTerm = function(_baseTerm)
- baseTerm = _baseTerm
- end,
-
- log = function(...)
- log(...)
- end,
-
- autoUpdate = function(isActive)
- updaterActive = isActive
- if(isActive==nil)then updaterActive = true end
- local function f()
- drawFrames()
- while updaterActive do
- basaltUpdateEvent(os.pullEventRaw())
- end
- end
- local ok, err = xpcall(f, debug.traceback)
- if not(ok)then
- basaltError(err)
- return
- end
- end,
-
- update = function(event, p1, p2, p3, p4)
- if (event ~= nil) then
- local ok, err = xpcall(basaltUpdateEvent, debug.traceback, event, p1, p2, p3, p4)
- if not(ok)then
- basaltError(err)
- return
- end
- end
- end,
-
- stop = stop,
- stopUpdate = stop,
-
- isKeyDown = function(key)
- if(activeKey[key]==nil)then return false end
- return activeKey[key];
- end,
-
- getFrame = function(name)
- for _, value in pairs(frames) do
- if (value.name == name) then
- return value
- end
- end
- end,
-
- getActiveFrame = function()
- return activeFrame
- end,
-
- setActiveFrame = function(frame)
- if (frame:getType() == "Frame") then
- activeFrame = frame
- return true
- end
- return false
- end,
-
- onEvent = function(...)
- for _,v in pairs(table.pack(...))do
- if(type(v)=="function")then
- basaltEvent:registerEvent("basaltEventCycle", v)
- end
- end
- end,
-
- schedule = function(f)
- assert(f~="function", "Schedule needs a function in order to work!")
- return function(...)
- local co = coroutine.create(f)
- local ok, result = coroutine.resume(co, ...)
- if(ok)then
- table.insert(schedules, co)
- else
- basaltError(result)
- end
- end
- end,
-
- createFrame = function(name)
- name = name or uuid()
- for _, v in pairs(frames) do
- if (v.name == name) then
- return nil
- end
- end
- local newFrame = Frame(name,nil,nil,bInstance)
- newFrame:init()
- table.insert(frames, newFrame)
- if(mainFrame==nil)and(newFrame:getName()~="basaltDebuggingFrame")then
- newFrame:show()
- end
- return newFrame
- end,
-
- removeFrame = function(name)
- frames[name] = nil
- end,
-
- setProjectDir = function(dir)
- projectDirectory = dir
- end,
-
- debug = function(...)
- local args = { ... }
- if(mainFrame==nil)then print(...) return end
- if (mainFrame.name ~= "basaltDebuggingFrame") then
- if (mainFrame ~= basalt.debugFrame) then
- basalt.debugLabel:setParent(mainFrame)
- end
- end
- local str = ""
- for key, value in pairs(args) do
- str = str .. tostring(value) .. (#args ~= key and ", " or "")
- end
- basalt.debugLabel:setText("[Debug] " .. str)
- for k,v in pairs(createText(str, basalt.debugList:getWidth()))do
- basalt.debugList:addItem(v)
- end
- if (basalt.debugList:getItemCount() > 50) then
- basalt.debugList:removeItem(1)
- end
- basalt.debugList:setValue(basalt.debugList:getItem(basalt.debugList:getItemCount()))
- if(basalt.debugList.getItemCount() > basalt.debugList:getHeight())then
- basalt.debugList:setOffset(basalt.debugList:getItemCount() - basalt.debugList:getHeight())
- end
- basalt.debugLabel:show()
- end,
-}
-
-basalt.debugFrame = basalt.createFrame("basaltDebuggingFrame"):showBar():setBackground(colors.lightGray):setBar("Debug", colors.black, colors.gray)
-basalt.debugFrame:addButton("back"):setAnchor("topRight"):setSize(1, 1):setText("\22"):onClick(function() if(basalt.oldFrame~=nil)then basalt.oldFrame:show() end end):setBackground(colors.red):show()
-basalt.debugList = basalt.debugFrame:addList("debugList"):setSize("parent.w - 2", "parent.h - 3"):setPosition(2, 3):setScrollable(true):show()
-basalt.debugLabel = basalt.debugFrame:addLabel("debugLabel"):onClick(function() basalt.oldFrame = mainFrame basalt.debugFrame:show() end):setBackground(colors.black):setForeground(colors.white):setAnchor("bottomLeft"):ignoreOffset():setZIndex(20):show()
-
-return basalt
diff --git a/src/libs/Basalt/objects/Animation.lua b/src/libs/Basalt/objects/Animation.lua
deleted file mode 100644
index 48d9d97..0000000
--- a/src/libs/Basalt/objects/Animation.lua
+++ /dev/null
@@ -1,471 +0,0 @@
-local xmlValue = require("utils").getValueFromXML
-local basaltEvent = require("basaltEvent")
-
-local floor,sin,cos,pi = math.floor,math.sin,math.cos,math.pi
-
-local lerp = function(s, e, pct)
- return s + (e - s) * pct
-end
-
-local linear = function (t)
- return t
-end
-
-local flip = function (t)
- return 1 - t
-end
-
-local easeIn = function (t)
- return t * t * t
-end
-
-local easeOut = function(t)
- return flip(easeIn(flip(t)))
-end
-
-local easeInOut = function(t)
- return lerp(easeIn(t), easeOut(t), t)
-end
-
-local easeOutSine = function(t)
- return sin((t * pi) / 2);
-end
-
-local easeInSine = function(t)
- return flip(cos((t * pi) / 2))
-end
-
-local easeInOutSine = function(t)
- return -(cos(pi * x) - 1) / 2
-end
-
-local lerp = {
- linear = linear,
- lerp = lerp,
- flip=flip,
- easeIn=easeIn,
- easeOut=easeOut,
- easeInOut=easeInOut,
- easeOutSine = easeOutSine,
- easeInSine = easeInSine,
- easeInOutSine = easeInOutSine,
-}
-
-local activeAnimations = {}
-
-return function(name)
- local object = {}
- local objectType = "Animation"
-
- local timerObj
-
- local animations = {}
- local animationTime = 0
- local animationActive = false
- local index = 1
- local infinitePlay = false
-
- local eventSystem = basaltEvent()
-
- local nextWaitTimer = 0
- local lastFunc
- local loop=false
- local autoDestroy = false
- local mode = "easeOut"
-
- local _OBJ
-
- local function call(tab)
- for k,v in pairs(tab)do
- v(object, animations[index].t, index)
- end
- end
-
- local function onPlay(self)
- if(index==1)then self:animationStartHandler() end
- if (animations[index] ~= nil) then
- call(animations[index].f)
- animationTime = animations[index].t
- end
- index = index + 1
- if(animations[index]==nil)then
- if(infinitePlay)then
- index = 1
- animationTime = 0
- else
- self:animationDoneHandler()
- return
- end
- end
- if (animations[index].t > 0) then
- timerObj = os.startTimer(animations[index].t - animationTime)
- else
- onPlay(self)
- end
- end
-
- local function addAnimationPart(time, f)
- for n=1,#animations do
- if(animations[n].t==time)then
- table.insert(animations[n].f, f)
- return
- end
- end
- for n=1,#animations do
- if(animations[n].t>time)then
- if(animations[n-1]~=nil)then
- if(animations[n-1].t=d-0.01)then
- if(activeAnimations[typ][name]==self)then
- activeAnimations[typ][name] = nil
- end
- end
- end
- end)
- end
- end;
-
- object = {
- name = name,
- getType = function(self)
- return objectType
- end;
-
- getBaseFrame = function(self)
- if(self.parent~=nil)then
- return self.parent:getBaseFrame()
- end
- return self
- end;
-
- setMode = function(self, newMode)
- mode = newMode
- return self
- end,
-
- generateXMLEventFunction = function(self, func, val)
- local createF = function(str)
- if(str:sub(1,1)=="#")then
- local o = self:getBaseFrame():getDeepObject(str:sub(2,str:len()))
- if(o~=nil)and(o.internalObjetCall~=nil)then
- func(self,function()o:internalObjetCall()end)
- end
- else
- func(self,self:getBaseFrame():getVariable(str))
- end
- end
- if(type(val)=="string")then
- createF(val)
- elseif(type(val)=="table")then
- for k,v in pairs(val)do
- createF(v)
- end
- end
- return self
- end,
-
- setValuesByXMLData = function(self, data)
- loop = xmlValue("loop", data)==true and true or false
- if(xmlValue("object", data)~=nil)then
- local o = self:getBaseFrame():getDeepObject(xmlValue("object", data))
- if(o==nil)then
- o = self:getBaseFrame():getVariable(xmlValue("object", data))
- end
- if(o~=nil)then
- self:setObject(o)
- end
- end
- if(data["move"]~=nil)then
- local x = xmlValue("x", data["move"])
- local y = xmlValue("y", data["move"])
- local duration = xmlValue("duration", data["move"])
- local time = xmlValue("time", data["move"])
- self:move(x, y, duration, time)
- end
- if(data["size"]~=nil)then
- local w = xmlValue("width", data["size"])
- local h = xmlValue("height", data["size"])
- local duration = xmlValue("duration", data["size"])
- local time = xmlValue("time", data["size"])
- self:size(w, h, duration, time)
- end
- if(data["offset"]~=nil)then
- local x = xmlValue("x", data["offset"])
- local y = xmlValue("y", data["offset"])
- local duration = xmlValue("duration", data["offset"])
- local time = xmlValue("time", data["offset"])
- self:offset(x, y, duration, time)
- end
- if(data["textColor"]~=nil)then
- local duration = xmlValue("duration", data["textColor"])
- local timer = xmlValue("time", data["textColor"])
- local t = {}
- local tab = data["textColor"]["color"]
- if(tab~=nil)then
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- table.insert(t, colors[v:value()])
- end
- end
- if(duration~=nil)and(#t>0)then
- self:changeTextColor(duration, timer or 0, table.unpack(t))
- end
- end
- if(data["background"]~=nil)then
- local duration = xmlValue("duration", data["background"])
- local timer = xmlValue("time", data["background"])
- local t = {}
- local tab = data["background"]["color"]
- if(tab~=nil)then
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- table.insert(t, colors[v:value()])
- end
- end
- if(duration~=nil)and(#t>0)then
- self:changeBackground(duration, timer or 0, table.unpack(t))
- end
- end
- if(data["text"]~=nil)then
- local duration = xmlValue("duration", data["text"])
- local timer = xmlValue("time", data["text"])
- local t = {}
- local tab = data["text"]["text"]
- if(tab~=nil)then
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- table.insert(t, v:value())
- end
- end
- if(duration~=nil)and(#t>0)then
- self:changeText(duration, timer or 0, table.unpack(t))
- end
- end
- if(xmlValue("onDone", data)~=nil)then self:generateXMLEventFunction(self.onDone, xmlValue("onDone", data)) end
- if(xmlValue("onStart", data)~=nil)then self:generateXMLEventFunction(self.onDone, xmlValue("onStart", data)) end
- if(xmlValue("autoDestroy", data)~=nil)then
- if(xmlValue("autoDestroy", data))then
- autoDestroy = true
- end
- end
- mode = xmlValue("mode", data) or mode
- if(xmlValue("play", data)~=nil)then if(xmlValue("play", data))then self:play(loop) end end
- return self
- end,
-
- getZIndex = function(self)
- return 1
- end;
-
- getName = function(self)
- return self.name
- end;
-
- setObject = function(self, obj)
- _OBJ = obj
- return self
- end;
-
- move = function(self, x, y, duration, timer, obj)
- _OBJ = obj or _OBJ
- predefinedLerp(x,y,duration,timer or 0,_OBJ.getPosition,_OBJ.setPosition, "position", self)
- return self
- end,
-
- offset = function(self, x, y, duration, timer, obj)
- _OBJ = obj or _OBJ
- predefinedLerp(x,y,duration,timer or 0,_OBJ.getOffset,_OBJ.setOffset, "offset", self)
- return self
- end,
-
- size = function(self, w, h, duration, timer, obj)
- _OBJ = obj or _OBJ
- predefinedLerp(w,h,duration,timer or 0,_OBJ.getSize,_OBJ.setSize, "size", self)
- return self
- end,
-
- changeText = function(self, duration, timer, ...)
- local text = {...}
- timer = timer or 0
- _OBJ = obj or _OBJ
- for n=1,#text do
- addAnimationPart(timer+n*(duration/#text), function()
- _OBJ.setText(_OBJ, text[n])
- end)
- end
- return self
- end,
-
- changeBackground = function(self, duration, timer, ...)
- local colors = {...}
- timer = timer or 0
- _OBJ = obj or _OBJ
- for n=1,#colors do
- addAnimationPart(timer+n*(duration/#colors), function()
- _OBJ.setBackground(_OBJ, colors[n])
- end)
- end
- return self
- end,
-
- changeTextColor = function(self, duration, timer, ...)
- local colors = {...}
- timer = timer or 0
- _OBJ = obj or _OBJ
- for n=1,#colors do
- addAnimationPart(timer+n*(duration/#colors), function()
- _OBJ.setForeground(_OBJ, colors[n])
- end)
- end
- return self
- end,
-
- add = function(self, func, wait)
- lastFunc = func
- addAnimationPart((wait or nextWaitTimer) + (animations[#animations]~=nil and animations[#animations].t or 0), func)
- return self
- end;
-
- wait = function(self, wait)
- nextWaitTimer = wait
- return self
- end;
-
- rep = function(self, reps)
- if(lastFunc~=nil)then
- for n = 1, reps or 1 do
- addAnimationPart((wait or nextWaitTimer) + (animations[#animations]~=nil and animations[#animations].t or 0), lastFunc)
- end
- end
- return self
- end;
-
- onDone = function(self, f)
- eventSystem:registerEvent("animation_done", f)
- return self
- end,
-
- onStart = function(self, f)
- eventSystem:registerEvent("animation_start", f)
- return self
- end,
-
- setAutoDestroy = function(self, destroy)
- autoDestroy = destroy~=nil and destroy or true
- return self
- end,
-
- animationDoneHandler = function(self)
- eventSystem:sendEvent("animation_done", self)
- self.parent:removeEvent("other_event", self)
- if(autoDestroy)then
- self.parent:removeObject(self)
- self = nil
- end
- end;
-
- animationStartHandler = function(self)
- eventSystem:sendEvent("animation_start", self)
- end;
-
- clear = function(self)
- animations = {}
- lastFunc = nil
- nextWaitTimer = 0
- index = 1
- animationTime = 0
- infinitePlay = false
- return self
- end;
-
- play = function(self, infinite)
- self:cancel()
- animationActive = true
- infinitePlay = infinite and true or false
- index = 1
- animationTime = 0
- if (animations[index] ~= nil) then
- if (animations[index].t > 0) then
- timerObj = os.startTimer(animations[index].t)
- else
- onPlay(self)
- end
- else
- self:animationDoneHandler()
- end
- self.parent:addEvent("other_event", self)
- return self
- end;
-
- cancel = function(self)
- if(timerObj~=nil)then
- os.cancelTimer(timerObj)
- infinitePlay = false
- end
- animationActive = false
- self.parent:removeEvent("other_event", self)
- return self
- end;
-
- internalObjetCall = function(self)
- self:play(loop)
- end,
-
- eventHandler = function(self, event, tObj)
- if(animationActive)then
- if (event == "timer") and (tObj == timerObj) then
- if (animations[index] ~= nil) then
- onPlay(self)
- else
- self:animationDoneHandler()
- end
- end
- end
- end;
- }
- object.__index = object
-
- return object
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Bimg.lua b/src/libs/Basalt/objects/Bimg.lua
deleted file mode 100644
index ee40f18..0000000
--- a/src/libs/Basalt/objects/Bimg.lua
+++ /dev/null
@@ -1,101 +0,0 @@
-local Object = require("Object")
-local utils = require("utils")
-local xmlValue = utils.getValueFromXML
-local createText = utils.createText
-local tHex = require("tHex")
-local bdf = require("miniBDF")
-
-return function(name)
- -- Bimg
- local base = Object(name)
- local objectType = "Bimg"
- base:setZIndex(2)
- local image
- local index = 1
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setIndex = function(self, i)
- index = i
- self:updateDraw()
- return self
- end;
-
- loadImage = function(self, path)
- if type(path) == "table" then
- image = path
- elseif type(path) == "string" then
- if fs.exists(path) and not fs.isDir(path) then
- local f = fs.open(path, 'r')
- local str = f.readAll()
- f.close()
-
- local col = {white=0x1,orange=0x2,magenta=0x4,lightBlue=0x8,yellow=0x10,lime=0x20,pink=0x40,grey=0x80,lightGrey=0x100,cyan=0x200,purple=0x400,blue=0x800,brown=0x1000,green=0x2000,red=0x4000,black=0x8000}
- local inferiorcol=col; inferiorcol.gray=col.grey; inferiorcol.lightGray=col.lightGrey
- local b,tBimg = pcall( load("return "..str,"bimg","t",{colours=col,colors=inferiorcol}) )
-
- if b and type(tBimg) == "table" then
- image = tBimg
- end
- end
- end
- self:updateDraw()
- return self
- end;
-
- unloadImage = function(self)
- image = nil
- self:updateDraw()
- return self
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("path", data)~=nil)then self:loadImage(xmlValue("path", data)) end
- return self
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local blits = {[1]='0',[2]='1',[4]='2',[8]='3',[16]='4',[32]='5',[64]='6',[128]='7',[256]='8',[512]='9',[1024]='a',[2048]='b',[4096]='c',[8192]='d',[16384]='e',[32768]='f' }
- if image and image[index] then
- local obx, oby = self:getAnchorPosition()
-
- local width = 1
- for i=1,#image[index] do
- local line = image[index][i]
-
- if #line[1] > width then
- width = #line[1]
- end
-
- if line[2]:find(' ') then
- local c = blits[self.parent:getBackground()]
- line[2] = (line[2]):gsub(' ', c)
- end
- if line[3]:find(' ') then
- local c = blits[self.parent:getBackground()]
- line[3] = (line[3]):gsub(' ', c)
- end
-
- self.parent:setText(obx, oby+i-1, line[1])
- self.parent:setFG(obx, oby+i-1, line[2])
- self.parent:setBG(obx, oby+i-1, line[3])
- end
- self:setSize(width, #image[index])
- end
- end
- end
- end,
-
- init = function(self) end
-
- }
-
- return setmetatable(object, base)
-end
-
diff --git a/src/libs/Basalt/objects/Breakline.lua b/src/libs/Basalt/objects/Breakline.lua
deleted file mode 100644
index 01c8f42..0000000
--- a/src/libs/Basalt/objects/Breakline.lua
+++ /dev/null
@@ -1,109 +0,0 @@
-local Object = require("Object")
-local xmlValue = require("utils").getValueFromXML
-
-return function(name)
- local base = Object(name)
- local objectType = "Breakline"
-
- base.width = 15
- base.height = 1
-
- base:setValue(1)
- base:setZIndex(2)
-
- local dirType = "vertical"
- local length = 1
-
- local function mouseEvent(self, button, x, y)
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- local w,h = self:getSize()
- if (dirType == "horizontal") then
- for _index = 0, w do
- if (obx + _index == x) and (oby <= y) and (oby + h > y) then
- index = math.min(_index + 1, w - (symbolSize - 1))
- self:setValue(maxValue / w * (index))
- self:updateDraw()
- end
- end
- end
- if (dirType == "vertical") then
- for _index = 0, h do
- if (oby + _index == y) and (obx <= x) and (obx + w > x) then
- index = math.min(_index + 1, h - (symbolSize - 1))
- self:setValue(maxValue / h * (index))
- self:updateDraw()
- end
- end
- end
- end
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("length", data)~=nil)then self:setLength(xmlValue("length", data)) end
- if(xmlValue("dirType", data)~=nil)then self:setDirType(xmlValue("dirType", data):lower()) end
- end,
-
- getLength = function(self)
- return length
- end,
-
- setLength = function(self, newLen)
- if type(newLen)=="number" then
- length = newLen
- elseif type(newLen)=="string" then
- length = self.parent:newDynamicValue(self, newLen)
- self.parent:recalculateDynamicValues()
- end
- self:updateDraw()
- return self
- end;
-
- getDirType = function(self)
- return dirType
- end;
-
- setDirType = function(self, _typ)
- if _typ:lower() == "horizontal"
- or _typ:lower() == "vertical" then
- dirType = _typ:lower()
- end
- self:updateDraw()
- return self
- end;
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- self.bgColor = self.parent:getBackground()
-
- local obx, oby = self:getAnchorPosition()
- local length = length
- if type(length) == "table" then
- length = length[1]
- end
- if (dirType == "horizontal") then
- self:getSize(length,1)
- self.parent:writeText(obx, oby, ('\140'):rep(length), self.bgColor, self.fgColor)
- elseif (dirType == "vertical") then
- self:getSize(1,length)
- for i=1,length do
- self.parent:writeText(obx, oby+i-1, '\149', self.bgColor, self.fgColor)
- end
- end
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getBackground()
- self.fgColor = self.parent:getTheme("Breakline")
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Button.lua b/src/libs/Basalt/objects/Button.lua
deleted file mode 100644
index a6509b6..0000000
--- a/src/libs/Basalt/objects/Button.lua
+++ /dev/null
@@ -1,82 +0,0 @@
-local Object = require("Object")
-local utils = require("utils")
-local xmlValue = utils.getValueFromXML
-local tHex = require("tHex")
-
-return function(name)
- -- Button
- local base = Object(name)
- local objectType = "Button"
- local textHorizontalAlign = "center"
- local textVerticalAlign = "center"
- local metadata = {}
-
- base:setZIndex(5)
- base:setValue("Button")
- base.width = 12
- base.height = 3
-
- local object = {
- init = function(self)
- self.bgColor = self.parent:getTheme("ButtonBG")
- self.fgColor = self.parent:getTheme("ButtonText")
- end,
- getType = function(self)
- return objectType
- end;
- setHorizontalAlign = function(self, pos)
- textHorizontalAlign = pos
- self:updateDraw()
- return self
- end;
-
- setVerticalAlign = function(self, pos)
- textVerticalAlign = pos
- self:updateDraw()
- return self
- end;
-
- setText = function(self, text)
- base:setValue(text)
- self:updateDraw()
- return self
- end;
-
- setMetadata = function(self, newMdata)
- metadata = newMdata
- return self
- end;
-
- getMetadata = function(self)
- return metadata
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("text", data)~=nil)then self:setText(xmlValue("text", data)) end
- if(xmlValue("horizontalAlign", data)~=nil)then textHorizontalAlign = xmlValue("horizontalAlign", data) end
- if(xmlValue("verticalAlign", data)~=nil)then textVerticalAlign = xmlValue("verticalAlign", data) end
- return self
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- local verticalAlign = utils.getTextVerticalAlign(h, textVerticalAlign)
-
- for n = 1, h do
- if (n == verticalAlign) then
- self.parent:setText(obx, oby + (n - 1), utils.getTextHorizontalAlign(self:getValue(), w, textHorizontalAlign))
- self.parent:setFG(obx, oby + (n - 1), utils.getTextHorizontalAlign(tHex[self.fgColor]:rep(self:getValue():len()), w, textHorizontalAlign))
- end
- end
- end
- end
- end,
-
- }
- return setmetatable(object, base)
-end
-
diff --git a/src/libs/Basalt/objects/Checkbox.lua b/src/libs/Basalt/objects/Checkbox.lua
deleted file mode 100644
index 5ef5834..0000000
--- a/src/libs/Basalt/objects/Checkbox.lua
+++ /dev/null
@@ -1,83 +0,0 @@
-local Object = require("Object")
-local utils = require("utils")
-local xmlValue = utils.getValueFromXML
-
-return function(name)
- -- Checkbox
- local base = Object(name)
- local objectType = "Checkbox"
-
- base:setZIndex(5)
- base:setValue(false)
- base.width = 1
- base.height = 1
-
- local symbol = "\42"
-
- local object = {
-
- getType = function(self)
- return objectType
- end;
-
- setSymbol = function(self, sym)
- symbol = sym
- self:updateDraw()
- return self
- end,
-
- mouseHandler = function(self, button, x, y)
- if (base.mouseHandler(self, button, x, y)) then
- if(button == 1)then
- if (self:getValue() ~= true) and (self:getValue() ~= false) then
- self:setValue(false)
- else
- self:setValue(not self:getValue())
- end
- self:updateDraw()
- return true
- end
- end
- return false
- end,
-
- touchHandler = function(self, x, y)
- return self:mouseHandler(1, x, y)
- end,
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("checked", data)~=nil)then if(xmlValue("checked", data))then self:setValue(true) else self:setValue(false) end end
- return self
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- local verticalAlign = utils.getTextVerticalAlign(h, "center")
- if(self.bgColor~=false)then self.parent:drawBackgroundBox(obx, oby, w, h, self.bgColor) end
- for n = 1, h do
- if (n == verticalAlign) then
- if (self:getValue() == true) then
- self.parent:writeText(obx, oby + (n - 1), utils.getTextHorizontalAlign(symbol, w, "center"), self.bgColor, self.fgColor)
- else
- self.parent:writeText(obx, oby + (n - 1), utils.getTextHorizontalAlign(" ", w, "center"), self.bgColor, self.fgColor)
- end
- end
- end
- end
- end
- end,
-
- init = function(self)
- base.init(self)
- self.bgColor = self.parent:getTheme("CheckboxBG")
- self.fgColor = self.parent:getTheme("CheckboxText")
- self.parent:addEvent("mouse_click", self)
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Dropdown.lua b/src/libs/Basalt/objects/Dropdown.lua
deleted file mode 100644
index 29706fd..0000000
--- a/src/libs/Basalt/objects/Dropdown.lua
+++ /dev/null
@@ -1,241 +0,0 @@
-local Object = require("Object")
-local utils = require("utils")
-local xmlValue = require("utils").getValueFromXML
-
-return function(name)
- local base = Object(name)
- local objectType = "Dropdown"
- base.width = 12
- base.height = 1
- base:setZIndex(6)
-
- local list = {}
- local itemSelectedBG
- local itemSelectedFG
- local selectionColorActive = true
- local align = "left"
- local yOffset = 0
-
- local dropdownW = 16
- local dropdownH = 6
- local closedSymbol = "\16"
- local openedSymbol = "\31"
- local isOpened = false
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("selectionBG", data)~=nil)then itemSelectedBG = colors[xmlValue("selectionBG", data)] end
- if(xmlValue("selectionFG", data)~=nil)then itemSelectedFG = colors[xmlValue("selectionFG", data)] end
- if(xmlValue("dropdownWidth", data)~=nil)then dropdownW = xmlValue("dropdownWidth", data) end
- if(xmlValue("dropdownHeight", data)~=nil)then dropdownH = xmlValue("dropdownHeight", data) end
- if(xmlValue("offset", data)~=nil)then yOffset = xmlValue("offset", data) end
- if(data["item"]~=nil)then
- local tab = data["item"]
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- self:addItem(xmlValue("text", v), colors[xmlValue("bg", v)], colors[xmlValue("fg", v)])
- end
- end
- end,
-
- setOffset = function(self, yOff)
- yOffset = yOff
- self:updateDraw()
- return self
- end;
-
- getOffset = function(self)
- return yOffset
- end;
-
- addItem = function(self, text, bgCol, fgCol, ...)
- table.insert(list, { text = text, bgCol = bgCol or self.bgColor, fgCol = fgCol or self.fgColor, args = { ... } })
- self:updateDraw()
- return self
- end;
-
- getAll = function(self)
- return list
- end;
-
- removeItem = function(self, index)
- table.remove(list, index)
- self:updateDraw()
- return self
- end;
-
- getItem = function(self, index)
- return list[index]
- end;
-
- getItemIndex = function(self)
- local selected = self:getValue()
- for key, value in pairs(list) do
- if (value == selected) then
- return key
- end
- end
- end;
-
- clear = function(self)
- list = {}
- self:setValue({})
- self:updateDraw()
- return self
- end;
-
- getItemCount = function(self)
- return #list
- end;
-
- editItem = function(self, index, text, bgCol, fgCol, ...)
- table.remove(list, index)
- table.insert(list, index, { text = text, bgCol = bgCol or self.bgColor, fgCol = fgCol or self.fgColor, args = { ... } })
- self:updateDraw()
- return self
- end;
-
- selectItem = function(self, index)
- self:setValue(list[index] or {})
- self:updateDraw()
- return self
- end;
-
- setSelectedItem = function(self, bgCol, fgCol, active)
- itemSelectedBG = bgCol or self.bgColor
- itemSelectedFG = fgCol or self.fgColor
- selectionColorActive = active
- self:updateDraw()
- return self
- end;
-
- setDropdownSize = function(self, width, height)
- dropdownW, dropdownH = width, height
- self:updateDraw()
- return self
- end,
-
- mouseHandler = function(self, button, x, y)
- if (isOpened) then
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- if(button==1)then
- if (#list > 0) then
- for n = 1, dropdownH do
- if (list[n + yOffset] ~= nil) then
- if (obx <= x) and (obx + dropdownW > x) and (oby + n == y) then
- self:setValue(list[n + yOffset])
- self:updateDraw()
- local val = self:getEventSystem():sendEvent("mouse_click", self, "mouse_click", dir, x, y)
- if(val==false)then return val end
- return true
- end
- end
- end
- end
- end
- end
- if (base.mouseHandler(self, button, x, y)) then
- isOpened = (not isOpened)
- self:updateDraw()
- return true
- else
- if(isOpened)then
- self:updateDraw()
- isOpened = false
- end
- return false
- end
- end,
-
- mouseUpHandler = function(self, button, x, y)
- if (isOpened) then
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- if(button==1)then
- if (#list > 0) then
- for n = 1, dropdownH do
- if (list[n + yOffset] ~= nil) then
- if (obx <= x) and (obx + dropdownW > x) and (oby + n == y) then
- isOpened = false
- self:updateDraw()
- local val = self:getEventSystem():sendEvent("mouse_up", self, "mouse_up", dir, x, y)
- if(val==false)then return val end
- return true
- end
- end
- end
- end
- end
- end
- end,
-
- scrollHandler = function(self, dir, x, y)
- if (isOpened)and(self:isFocused()) then
- yOffset = yOffset + dir
- if (yOffset < 0) then
- yOffset = 0
- end
- if (dir == 1) then
- if (#list > dropdownH) then
- if (yOffset > #list - dropdownH) then
- yOffset = #list - dropdownH
- end
- else
- yOffset = math.min(#list - 1, 0)
- end
- end
- local val = self:getEventSystem():sendEvent("mouse_scroll", self, "mouse_scroll", dir, x, y)
- if(val==false)then return val end
- self:updateDraw()
- return true
- end
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- if (self.parent ~= nil) then
- if(self.bgColor~=false)then self.parent:drawBackgroundBox(obx, oby, w, h, self.bgColor) end
- local val = self:getValue()
- local text = utils.getTextHorizontalAlign((val~=nil and val.text or ""), w, align):sub(1, w - 1) .. (isOpened and openedSymbol or closedSymbol)
- self.parent:writeText(obx, oby, text, self.bgColor, self.fgColor)
-
- if (isOpened) then
- for n = 1, dropdownH do
- if (list[n + yOffset] ~= nil) then
- if (list[n + yOffset] == val) then
- if (selectionColorActive) then
- self.parent:writeText(obx, oby + n, utils.getTextHorizontalAlign(list[n + yOffset].text, dropdownW, align), itemSelectedBG, itemSelectedFG)
- else
- self.parent:writeText(obx, oby + n, utils.getTextHorizontalAlign(list[n + yOffset].text, dropdownW, align), list[n + yOffset].bgCol, list[n + yOffset].fgCol)
- end
- else
- self.parent:writeText(obx, oby + n, utils.getTextHorizontalAlign(list[n + yOffset].text, dropdownW, align), list[n + yOffset].bgCol, list[n + yOffset].fgCol)
- end
- end
- end
- end
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("DropdownBG")
- self.fgColor = self.parent:getTheme("DropdownText")
- itemSelectedBG = self.parent:getTheme("SelectionBG")
- itemSelectedFG = self.parent:getTheme("SelectionText")
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_click", self)
- self.parent:addEvent("mouse_up", self)
- self.parent:addEvent("mouse_scroll", self)
- end
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Graphic.lua b/src/libs/Basalt/objects/Graphic.lua
deleted file mode 100644
index 52be81d..0000000
--- a/src/libs/Basalt/objects/Graphic.lua
+++ /dev/null
@@ -1,471 +0,0 @@
-local Object = require("Object")
-local geometric = require("geometricPoints")
-local tHex = require("tHex")
-local xmlValue = require("utils").getValueFromXML
-
-local sub,len,max,min = string.sub,string.len,math.max,math.min
-
-return function(name)
- -- Graphic
- local base = Object(name)
- local objectType = "Graphic"
- base:setZIndex(2)
-
- local graphicObjects = {}
- local graphic = {}
- local shrinkedGraphic = {}
- local isGraphicShrinked = false
- local xOffset, yOffset = 0, 0
- local dragable = false
- local xMouse,yMouse
- local w, h = 40, 15
- local canvasSizeChanged = false
-
- local tColourLookup = {}
- for n=1,16 do
- tColourLookup[ string.byte( "0123456789abcdef",n,n ) ] = 2^(n-1)
- end
-
- local function stringToTable(str)
- local t = {}
- for i = 1, #str do
- t[i] = str:sub(i, i)
- end
- return t
- end
-
- local function setBG(x, y, width, height, colorStr)
- if (y >= 1) and (y <= height) then
- if (x + len(colorStr) > 0) and (x <= width) then
- local oldCache = graphic[y]
- local newCache
- local nEnd = x + #colorStr - 1
-
- if (x < 1) then
- colorStr = sub(colorStr, 1 - x + 1, width - x + 1)
- elseif (nEnd > width) then
- colorStr = sub(colorStr, 1, width - x + 1)
- end
-
- if (x > 1) then
- newCache = sub(oldCache, 1, x - 1) .. colorStr
- else
- newCache = colorStr
- end
- if nEnd < width then
- newCache = newCache .. sub(oldCache, nEnd + 1, width)
- end
- graphic[y] = newCache
- end
- end
- end
-
- local function redrawCanvasSize()
- local w,h = w,h
- if(isGraphicShrinked)then w = w*2 h = h*3 end
- for y=1,h do
- if(graphic[y]~=nil)then
- if(w>graphic[y]:len())then
- graphic[y] = graphic[y]..(tHex[base.bgColor]):rep(w-graphic[y]:len())
- else
- graphic[y] = graphic[y]:sub(1,w)
- end
- else
- graphic[y] = (tHex[base.bgColor]):rep(w)
- end
- end
- end
- redrawCanvasSize()
-
-
- local function shrink()
- local function parseLine( tImageArg, sLine )
- local tLine = {}
- for x=1,sLine:len() do
- tLine[x] = tColourLookup[ string.byte(sLine,x,x) ] or 0
- end
- table.insert( tImageArg, tLine )
- end
- function parseImage( sRawData )
- if type( sRawData ) ~= "string" then
- error( "bad argument #1 (expected string, got " .. type( sRawData ) .. ")" )
- end
- local tImage = {}
- for sLine in ( sRawData .. "\n" ):gmatch( "(.-)\n" ) do
- parseLine( tImage, sLine )
- end
- return tImage
- end
-
- local rawImg = ""
- for y=1,#graphic do
- if(y==#graphic)then
- rawImg = rawImg..graphic[y]
- else
- rawImg = rawImg..graphic[y].."\n"
- end
- end
- local img = parseImage(rawImg)
- -- shrinkSystem is copy pasted (and slightly changed) from blittle by Bomb Bloke: http://www.computercraft.info/forums2/index.php?/topic/25354-cc-176-blittle-api/
- local relations = { [0] = { 8, 4, 3, 6, 5 }, { 4, 14, 8, 7 }, { 6, 10, 8, 7 }, { 9, 11, 8, 0 }, { 1, 14, 8, 0 }, { 13, 12, 8, 0 }, { 2, 10, 8, 0 }, { 15, 8, 10, 11, 12, 14 },
- { 0, 7, 1, 9, 2, 13 }, { 3, 11, 8, 7 }, { 2, 6, 7, 15 }, { 9, 3, 7, 15 }, { 13, 5, 7, 15 }, { 5, 12, 8, 7 }, { 1, 4, 7, 15 }, { 7, 10, 11, 12, 14 } }
-
- local colourNum, exponents, colourChar = {}, {}, {}
- for i = 0, 15 do
- exponents[2 ^ i] = i
- end
- do
- local hex = "0123456789abcdef"
- for i = 1, 16 do
- colourNum[hex:sub(i, i)] = i - 1
- colourNum[i - 1] = hex:sub(i, i)
- colourChar[hex:sub(i, i)] = 2 ^ (i - 1)
- colourChar[2 ^ (i - 1)] = hex:sub(i, i)
-
- local thisRel = relations[i - 1]
- for i = 1, #thisRel do
- thisRel[i] = 2 ^ thisRel[i]
- end
- end
- end
-
- local function getBestColourMatch(usage)
- local lastCol = relations[exponents[usage[#usage][1]]]
-
- for j = 1, #lastCol do
- local thisRelation = lastCol[j]
- for i = 1, #usage - 1 do
- if usage[i][1] == thisRelation then
- return i
- end
- end
- end
-
- return 1
- end
-
- local function colsToChar(pattern, totals)
- if not totals then
- local newPattern = {}
- totals = {}
- for i = 1, 6 do
- local thisVal = pattern[i]
- local thisTot = totals[thisVal]
- totals[thisVal], newPattern[i] = thisTot and (thisTot + 1) or 1, thisVal
- end
- pattern = newPattern
- end
-
- local usage = {}
- for key, value in pairs(totals) do
- usage[#usage + 1] = { key, value }
- end
-
- if #usage > 1 then
- -- Reduce the chunk to two colours:
- while #usage > 2 do
- table.sort(usage, function(a, b)
- return a[2] > b[2]
- end)
- local matchToInd, usageLen = getBestColourMatch(usage), #usage
- local matchFrom, matchTo = usage[usageLen][1], usage[matchToInd][1]
- for i = 1, 6 do
- if pattern[i] == matchFrom then
- pattern[i] = matchTo
- usage[matchToInd][2] = usage[matchToInd][2] + 1
- end
- end
- usage[usageLen] = nil
- end
-
- -- Convert to character. Adapted from oli414's function:
- -- http://www.computercraft.info/forums2/index.php?/topic/25340-cc-176-easy-drawing-characters/
- local data = 128
- for i = 1, #pattern - 1 do
- if pattern[i] ~= pattern[6] then
- data = data + 2 ^ (i - 1)
- end
- end
- return string.char(data), colourChar[usage[1][1] == pattern[6] and usage[2][1] or usage[1][1]], colourChar[pattern[6]]
- else
- -- Solid colour character:
- return "\128", colourChar[pattern[1]], colourChar[pattern[1]]
- end
- end
-
- local results, width, height, bgCol = { {}, {}, {} }, 0, #img + #img % 3, base.bgColor or colors.black
- for i = 1, #img do
- if #img[i] > width then
- width = #img[i]
- end
- end
-
- for y = 0, height - 1, 3 do
- local cRow, tRow, bRow, counter = {}, {}, {}, 1
-
- for x = 0, width - 1, 2 do
- -- Grab a 2x3 chunk:
- local pattern, totals = {}, {}
-
- for yy = 1, 3 do
- for xx = 1, 2 do
- pattern[#pattern + 1] = (img[y + yy] and img[y + yy][x + xx]) and (img[y + yy][x + xx] == 0 and bgCol or img[y + yy][x + xx]) or bgCol
- totals[pattern[#pattern]] = totals[pattern[#pattern]] and (totals[pattern[#pattern]] + 1) or 1
- end
- end
-
- cRow[counter], tRow[counter], bRow[counter] = colsToChar(pattern, totals)
- counter = counter + 1
- end
-
- results[1][#results[1] + 1], results[2][#results[2] + 1], results[3][#results[3] + 1] = table.concat(cRow), table.concat(tRow), table.concat(bRow)
- end
-
- results.width, results.height = #results[1][1], #results[1]
-
- shrinkedGraphic = results
- end
-
- local function redraw()
- local w,h = w,h
- if(isGraphicShrinked)then w = w*2 h = h*3 end
- for k,v in pairs(graphicObjects)do
- for a,b in pairs(v[1])do
- setBG(b.x, b.y, w, h, v[2])
- end
- end
- if(isGraphicShrinked)then
- shrink()
- end
- end
-
- local object = {
- init = function(self)
- self.bgColor = self.parent:getTheme("GraphicBG")
- end,
-
- getType = function(self)
- return objectType
- end;
-
- setSize = function(self, width, height, rel)
- base.setSize(self, width, height, rel)
- if not(canvasSizeChanged)then
- w = width
- h = height
- redrawCanvasSize()
- end
- redraw()
- return self
- end,
-
- setOffset = function(self, x, y)
- xOffset = x or xOffset
- yOffset = y or yOffset
- return self
- end,
-
- setCanvasSize = function(self, width, height)
- w,h = width,height
- canvasSizeChanged = true
- redrawCanvasSize()
- return self
- end,
-
- clearCanvas = function(self)
- graphicObjects = {}
- graphic = {}
- redrawCanvasSize()
- end,
-
- getOffset = function(self)
- return xOffset,yOffset
- end,
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("text", data)~=nil)then self:setText(xmlValue("text", data)) end
- if(xmlValue("xOffset", data)~=nil)then self:setOffset(xmlValue("xOffset", data), yOffset) end
- if(xmlValue("yOffset", data)~=nil)then self:setOffset(xOffset, xmlValue("yOffset", data)) end
- if(xmlValue("wCanvas", data)~=nil)then w = xmlValue("wCanvas", data) end
- if(xmlValue("hCanvas", data)~=nil)then h = xmlValue("hCanvas", data) end
- if(xmlValue("shrink", data)~=nil)then if(xmlValue("shrink", data))then self:shrink() end end
- if(xmlValue("dragable", data)~=nil)then if(xmlValue("dragable", data))then dragable = true end end
- if(data["ellipse"]~=nil)then
- local tab = data["ellipse"]
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- local col = colors[xmlValue("color", v)]
- local rad1 = xmlValue("radius", v)
- local rad2 = xmlValue("radius2", v)
- local x = xmlValue("x", v)
- local y = xmlValue("y", v)
- local filled = xmlValue("filled", v)
- self:addEllipse(col, rad1, rad2, x, y, filled)
- end
- end
- if(data["circle"]~=nil)then
- local tab = data["circle"]
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- local col = colors[xmlValue("color", v)]
- local rad = tonumber(xmlValue("radius", v))
- local x = tonumber(xmlValue("x", v))
- local y = tonumber(xmlValue("y", v))
- local filled = xmlValue("filled", v)
- self:addCircle(col, rad, x, y, filled)
- end
- end
- if(data["line"]~=nil)then
- local tab = data["line"]
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- local col = colors[xmlValue("color", v)]
- local x = tonumber(xmlValue("x", v))
- local x2 = tonumber(xmlValue("x2", v))
- local y = tonumber(xmlValue("y", v))
- local y2 = tonumber(xmlValue("y2", v))
- self:addLine(col, x, y, x2, y2)
- end
- end
-
- if(data["rectangle"]~=nil)then
- local tab = data["rectangle"]
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- local col = colors[xmlValue("color", v)]
- local x = tonumber(xmlValue("x", v))
- local x2 = tonumber(xmlValue("x2", v))
- local y = tonumber(xmlValue("y", v))
- local y2 = tonumber(xmlValue("y2", v))
- local filled = xmlValue("filled", v)=="true" and true or false
- self:addRectangle(col, x, y, x2, y2, filled)
- end
- end
- if(data["triangle"]~=nil)then
- local tab = data["triangle"]
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- local col = colors[xmlValue("color", v)]
- local x = tonumber(xmlValue("x", v))
- local x2 = tonumber(xmlValue("x2", v))
- local x3 = tonumber(xmlValue("x2", v))
- local y = tonumber(xmlValue("y", v))
- local y2 = tonumber(xmlValue("y2", v))
- local y3 = tonumber(xmlValue("y3", v))
- local filled = xmlValue("filled", v)
- self:addTriangle(col, x, y, x2, y2, x3, y3, filled)
- end
- end
-
- return self
- end,
-
- addCircle = function(self, color, rad, x, y, filled)
- local col = tHex[color]
- table.insert(graphicObjects, {geometric.circle(x or 1, y or 1, rad, filled), tHex[color]})
- redraw()
- return self
- end;
-
- addEllipse = function(self, color, rad, rad2, x, y, filled)
- table.insert(graphicObjects, {geometric.ellipse(x or 1, y or 1, rad, rad2, filled), tHex[color]})
- redraw()
- return self
- end;
-
- addLine = function(self, color, x1, y1, x2, y2)
- table.insert(graphicObjects, {geometric.line(x1 or 1, y1 or 1, x2 or 1, y2 or 1), tHex[color]})
- redraw()
- return self
- end;
-
- addTriangle = function(self, color, x1, y1, x2, y2, x3, y3, filled)
- table.insert(graphicObjects, {geometric.triangle(x1 or 1, y1 or 1, x2 or 1, y2 or 1, x3 or 1, y3 or 1, filled), tHex[color]})
- redraw()
- return self
- end;
-
- addRectangle = function(self, color, x1, y1, x2, y2, filled)
- table.insert(graphicObjects, {geometric.rectangle(x1 or 1, y1 or 1, x2 or 1, y2 or 1, filled), tHex[color]})
- redraw()
- return self
- end;
-
- shrink = function(self)
- isGraphicShrinked = true
- redrawCanvasSize()
- shrink()
- return self
- end,
-
- setDragable = function(self, drag)
- dragable = drag == true and true or false
- return self
- end,
-
- mouseHandler = function(self, event, button, x, y)
- if(base.mouseHandler(self, event, button, x, y))then
- if(dragable)then
- if(event=="mouse_click")then
- xMouse,yMouse = x,y
- end
-
- if(event=="mouse_drag")then
- if(xMouse~=nil)and(yMouse~=nil)then
- xOffset = max(min(xOffset+xMouse-x, w-self:getWidth()),0)
- xMouse = x
- yOffset = max(min(yOffset+yMouse-y, h-self:getHeight()),0)
- yMouse = y
- end
- end
- end
- return true
- end
- return false
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- if(self.bgColor~=false)then
- self.parent:drawBackgroundBox(obx, oby, w, h, self.bgColor)
- end
- if (isGraphicShrinked) then
- -- this is copy pasted (and slightly changed) from blittle by Bomb Bloke: http://www.computercraft.info/forums2/index.php?/topic/25354-cc-176-blittle-api/
- local t, tC, bC = shrinkedGraphic[1], shrinkedGraphic[2], shrinkedGraphic[3]
- for i = 1, shrinkedGraphic.height do
- local x, y = obx+xOffset, oby + i - 1 + yOffset
- if(y>oby-1)and(y<=oby+h-1)and(x<=w+obx)then
- local tI = t[i]
- local xpos,substart,subend = max(x, obx), max(1 - x + 1, 1), min(w - (x-obx), w)
- if type(tI) == "string" then
- self.parent:setText(xpos, y, sub(tI, substart, subend))
- self.parent:setFG(xpos, y, sub(tC[i], substart, subend))
- self.parent:setBG(xpos, y, sub(bC[i], substart, subend))
- elseif type(tI) == "table" then
- self.parent:setText(xpos, y, sub(tI[2], substart, subend))
- self.parent:setFG(xpos, y, sub(tC[i], substart, subend))
- self.parent:setBG(xpos, y, sub(bC[i], substart, subend))
- end
- end
- end
- else
- for i = 1, #graphic do
- local x, y = obx+xOffset, oby + i - 1 + yOffset
- if(y>oby-1)and(y<=oby+h-1)and(x<=w+obx)then
- local xpos,substart,subend = max(x, obx), max(1 - x + 1, 1), min(w - (x-obx), w)
- self.parent:setBG(xpos, y, sub(graphic[i],substart,subend))
- end
- end
- end
- end
- self:setVisualChanged(false)
- end
- end;
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Input.lua b/src/libs/Basalt/objects/Input.lua
deleted file mode 100644
index 4533aca..0000000
--- a/src/libs/Basalt/objects/Input.lua
+++ /dev/null
@@ -1,368 +0,0 @@
-local Object = require("Object")
-local utils = require("utils")
-local log = require("basaltLogs")
-local xmlValue = utils.getValueFromXML
-
-return function(name)
- -- Input
- local base = Object(name)
- local objectType = "Input"
-
- local inputType = "text"
- local inputLimit = 0
- base:setZIndex(5)
- base:setValue("")
- base.width = 10
- base.height = 1
-
- local textX = 1
- local wIndex = 1
-
- local defaultText = ""
- local defaultBGCol
- local defaultFGCol
- local showingText = defaultText
- local internalValueChange = false
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setInputType = function(self, iType)
- if (iType == "password") or (iType == "number") or (iType == "text") then
- inputType = iType
- end
- self:updateDraw()
- return self
- end;
-
- setDefaultText = function(self, text, fCol, bCol)
- defaultText = text
- defaultBGCol = bCol or defaultBGCol
- defaultFGCol = fCol or defaultFGCol
- if (self:isFocused()) then
- showingText = ""
- else
- showingText = defaultText
- end
- self:updateDraw()
- return self
- end;
-
- getInputType = function(self)
- return inputType
- end;
-
- setValue = function(self, val)
- base.setValue(self, tostring(val))
- if not (internalValueChange) then
- if(self:isFocused())then
- textX = tostring(val):len() + 1
- wIndex = math.max(1, textX-self:getWidth()+1)
- local obx, oby = self:getAnchorPosition()
- self.parent:setCursor(true, obx + textX - wIndex, oby+math.floor(self.height/2), self.fgColor)
- end
- end
- self:updateDraw()
- return self
- end;
-
- getValue = function(self)
- local val = base.getValue(self)
- return inputType == "number" and tonumber(val) or val
- end;
-
- setInputLimit = function(self, limit)
- inputLimit = tonumber(limit) or inputLimit
- self:updateDraw()
- return self
- end;
-
- getInputLimit = function(self)
- return inputLimit
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- local dBG,dFG
- if(xmlValue("defaultBG", data)~=nil)then dBG = xmlValue("defaultBG", data) end
- if(xmlValue("defaultFG", data)~=nil)then dFG = xmlValue("defaultFG", data) end
- if(xmlValue("default", data)~=nil)then self:setDefaultText(xmlValue("default", data), dFG~=nil and colors[dFG], dBG~=nil and colors[dBG]) end
- if(xmlValue("limit", data)~=nil)then self:setInputLimit(xmlValue("limit", data)) end
- if(xmlValue("type", data)~=nil)then self:setInputType(xmlValue("type", data)) end
- return self
- end,
-
- getFocusHandler = function(self)
- base.getFocusHandler(self)
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- showingText = ""
- if(defaultText~="")then
- self:updateDraw()
- end
- self.parent:setCursor(true, obx + textX - wIndex, oby+math.max(math.ceil(self:getHeight()/2-1, 1)), self.fgColor)
- end
- end;
-
- loseFocusHandler = function(self)
- base.loseFocusHandler(self)
- if (self.parent ~= nil) then
- showingText = defaultText
- if(defaultText~="")then
- self:updateDraw()
- end
- self.parent:setCursor(false)
- end
- end;
-
- keyHandler = function(self, key)
- if (base.keyHandler(self, key)) then
- local w,h = self:getSize()
- internalValueChange = true
- if (key == keys.backspace) then
- -- on backspace
- local text = tostring(base.getValue())
- if (textX > 1) then
- self:setValue(text:sub(1, textX - 2) .. text:sub(textX, text:len()))
- if (textX > 1) then
- textX = textX - 1
- end
- if (wIndex > 1) then
- if (textX < wIndex) then
- wIndex = wIndex - 1
- end
- end
- end
- end
- if (key == keys.enter) then
- -- on enter
- if (self.parent ~= nil) then
- --self.parent:removeFocusedObject(self)
- end
- end
- if (key == keys.right) then
- -- right arrow
- local tLength = tostring(base.getValue()):len()
- textX = textX + 1
-
- if (textX > tLength) then
- textX = tLength + 1
- end
- if (textX < 1) then
- textX = 1
- end
- if (textX < wIndex) or (textX >= w + wIndex) then
- wIndex = textX - w + 1
- end
- if (wIndex < 1) then
- wIndex = 1
- end
- end
-
- if (key == keys.left) then
- -- left arrow
- textX = textX - 1
- if (textX >= 1) then
- if (textX < wIndex) or (textX >= w + wIndex) then
- wIndex = textX
- end
- end
- if (textX < 1) then
- textX = 1
- end
- if (wIndex < 1) then
- wIndex = 1
- end
- end
- local obx, oby = self:getAnchorPosition()
- local val = tostring(base.getValue())
- local cursorX = (textX <= val:len() and textX - 1 or val:len()) - (wIndex - 1)
-
- if (cursorX > self.x + w - 1) then
- cursorX = self.x + w - 1
- end
- if (self.parent ~= nil) then
- self.parent:setCursor(true, obx + cursorX, oby+math.max(math.ceil(h/2-1, 1)), self.fgColor)
- end
- self:updateDraw()
- internalValueChange = false
- return true
- end
- return false
- end,
-
- charHandler = function(self, char)
- if (base.charHandler(self, char)) then
- internalValueChange = true
- local w,h = self:getSize()
- local text = base.getValue()
- if (text:len() < inputLimit or inputLimit <= 0) then
- if (inputType == "number") then
- local cache = text
- if (char == ".") or (tonumber(char) ~= nil) then
- self:setValue(text:sub(1, textX - 1) .. char .. text:sub(textX, text:len()))
- textX = textX + 1
- end
- if (tonumber(base.getValue()) == nil) then
- self:setValue(cache)
- end
- else
- self:setValue(text:sub(1, textX - 1) .. char .. text:sub(textX, text:len()))
- textX = textX + 1
- end
- if (textX >= w + wIndex) then
- wIndex = wIndex + 1
- end
- end
- local obx, oby = self:getAnchorPosition()
- local val = tostring(base.getValue())
- local cursorX = (textX <= val:len() and textX - 1 or val:len()) - (wIndex - 1)
-
- local x = self:getX()
- if (cursorX > x + w - 1) then
- cursorX = x + w - 1
- end
- if (self.parent ~= nil) then
- self.parent:setCursor(true, obx + cursorX, oby+math.max(math.ceil(h/2-1, 1)), self.fgColor)
- end
- internalValueChange = false
- self:updateDraw()
- return true
- end
- return false
- end,
-
- mouseHandler = function(self, button, x, y)
- if(base.mouseHandler(self, button, x, y))then
- local ax, ay = self:getAnchorPosition()
- local obx, oby = self:getAbsolutePosition(ax, ay)
- local w, h = self:getSize()
- textX = x - obx + wIndex
- local text = base.getValue()
- if (textX > text:len()) then
- textX = text:len() + 1
- end
- if (textX < wIndex) then
- wIndex = textX - 1
- if (wIndex < 1) then
- wIndex = 1
- end
- end
- self.parent:setCursor(true, obx + textX - wIndex, oby+math.max(math.ceil(h/2-1, 1)), self.fgColor)
- return true
- end
- end,
-
- dragHandler = function(self, btn, x, y, xOffset, yOffset)
- if(self:isFocused())then
- if(self:isCoordsInObject(x, y))then
- if(base.dragHandler(self, btn, x, y, xOffset, yOffset))then
- return true
- end
- end
- self.parent:removeFocusedObject()
- end
- end,
-
- eventHandler = function(self, event, paste, p2, p3, p4)
- if(base.eventHandler(self, event, paste, p2, p3, p4))then
- if(event=="paste")then
- if(self:isFocused())then
- local text = base.getValue()
- local w, h = self:getSize()
- internalValueChange = true
- if (inputType == "number") then
- local cache = text
- if (paste == ".") or (tonumber(paste) ~= nil) then
- self:setValue(text:sub(1, textX - 1) .. paste .. text:sub(textX, text:len()))
- textX = textX + paste:len()
- end
- if (tonumber(base.getValue()) == nil) then
- self:setValue(cache)
- end
- else
- self:setValue(text:sub(1, textX - 1) .. paste .. text:sub(textX, text:len()))
- textX = textX + paste:len()
- end
- if (textX >= w + wIndex) then
- wIndex = (textX+1)-w
- end
-
- local obx, oby = self:getAnchorPosition()
- local val = tostring(base.getValue())
- local cursorX = (textX <= val:len() and textX - 1 or val:len()) - (wIndex - 1)
-
- local x = self:getX()
- if (cursorX > x + w - 1) then
- cursorX = x + w - 1
- end
- if (self.parent ~= nil) then
- self.parent:setCursor(true, obx + cursorX, oby+math.max(math.ceil(h/2-1, 1)), self.fgColor)
- end
- self:updateDraw()
- internalValueChange = false
- end
- end
- end
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- local verticalAlign = utils.getTextVerticalAlign(h, "center")
-
- if(self.bgColor~=false)then self.parent:drawBackgroundBox(obx, oby, w, h, self.bgColor) end
- for n = 1, h do
- if (n == verticalAlign) then
- local val = tostring(base.getValue())
- local bCol = self.bgColor
- local fCol = self.fgColor
- local text
- if (val:len() <= 0) then
- text = showingText
- bCol = defaultBGCol or bCol
- fCol = defaultFGCol or fCol
- end
-
- text = showingText
- if (val ~= "") then
- text = val
- end
- text = text:sub(wIndex, w + wIndex - 1)
- local space = w - text:len()
- if (space < 0) then
- space = 0
- end
- if (inputType == "password") and (val ~= "") then
- text = string.rep("*", text:len())
- end
- text = text .. string.rep(self.bgSymbol, space)
- self.parent:writeText(obx, oby + (n - 1), text, bCol, fCol)
- end
- end
- if(self:isFocused())then
- self.parent:setCursor(true, obx + textX - wIndex, oby+math.max(math.ceil(self:getHeight()/2-1, 1)), self.fgColor)
- end
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("InputBG")
- self.fgColor = self.parent:getTheme("InputText")
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_click", self)
- self.parent:addEvent("key", self)
- self.parent:addEvent("char", self)
- self.parent:addEvent("other_event", self)
- self.parent:addEvent("mouse_drag", self)
- end
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Label.lua b/src/libs/Basalt/objects/Label.lua
deleted file mode 100644
index 71ff284..0000000
--- a/src/libs/Basalt/objects/Label.lua
+++ /dev/null
@@ -1,162 +0,0 @@
-local Object = require("Object")
-local utils = require("utils")
-local xmlValue = utils.getValueFromXML
-local createText = utils.createText
-local tHex = require("tHex")
-local bdf = require("miniBDF")
-
-return function(name)
- -- Label
- local base = Object(name)
- local objectType = "Label"
-
- base:setZIndex(3)
-
- local autoSize = true
- base:setValue("Label")
- base.width = 5
-
- local textHorizontalAlign = "left"
- local textVerticalAlign = "top"
- local fontsize = 0
- local font = ""
-
- local fgColChanged,bgColChanged = false,false
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setText = function(self, text)
- text = tostring(text)
- base:setValue(text)
- if (autoSize) then
- self.width = text:len()
- end
- self:updateDraw()
- return self
- end;
-
- setBackground = function(self, col)
- base.setBackground(self, col)
- bgColChanged = true
- self:updateDraw()
- return self
- end,
-
- setForeground = function(self, col)
- base.setForeground(self, col)
- fgColChanged = true
- self:updateDraw()
- return self
- end,
-
- setTextAlign = function(self, hor, vert)
- textHorizontalAlign = hor or textHorizontalAlign
- textVerticalAlign = vert or textVerticalAlign
- self:updateDraw()
- return self
- end;
-
- setFontSize = function(self, size)
- if(size>0)and(size<=4)then
- fontsize = size-1 or 0
- end
- self:updateDraw()
- return self
- end;
-
- getFontSize = function(self)
- return fontsize+1
- end;
-
- setFont = function(self, name)
- if fontBDF[name] then
- font = fontBDF[name]
- end
- self:updateDraw()
- return self
- end;
-
- getFont = function(self)
- return font
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("text", data)~=nil)then self:setText(xmlValue("text", data)) end
- if(xmlValue("verticalAlign", data)~=nil)then textVerticalAlign = xmlValue("verticalAlign", data) end
- if(xmlValue("horizontalAlign", data)~=nil)then textHorizontalAlign = xmlValue("horizontalAlign", data) end
- if(xmlValue("size", data)~=nil)then self:setFontSize(xmlValue("size", data)) end
- if(xmlValue("font", data)~=nil)then self:setFont(xmlValue("font", data)) end
- return self
- end,
-
- setSize = function(self, width, height, rel)
- base.setSize(self, width, height, rel)
- autoSize = false
- self:updateDraw()
- return self
- end;
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- local verticalAlign = utils.getTextVerticalAlign(h, textVerticalAlign)
- if(fontsize==0)then
- if not(autoSize)then
- local text = createText(self:getValue(), self:getWidth())
- for k,v in pairs(text)do
- self.parent:writeText(obx, oby+k-1, v, self.bgColor, self.fgColor)
- end
- else
- self.parent:writeText(obx, oby, self:getValue(), self.bgColor, self.fgColor)
- end
- else
- local blit = {[1]='0',[2]='1',[4]='2',[8]='3',[16]='4',[32]='5',[64]='6',[128]='7',[256]='8',[512]='9',[1024]='a',[2048]='b',[4096]='c',[8192]='d',[16384]='e',[32768]='f' }
- local tData
- if font.drawString then
- tData = font:drawString(self:getValue())
- tData = bdf.compress(tData, self.bgColor or colors.lightGray, self.fgColor)
- else
- local txt = self:getValue()
- tData = {
- ch={txt},
- bg={blit[self.bgColor]:rep(#txt)},
- fg={blit[self.fgColor]:rep(#txt)}
- }
- end
- if(autoSize)then
- self:setSize(#tData.ch[1], #tData.ch-1)
- end
- local oX, oY = self.parent:getSize()
- local cX, cY = #tData.ch[1], #tData.ch
- obx = obx or math.floor((oX - cX) / 2) + 1
- oby = oby or math.floor((oY - cY) / 2) + 1
-
- for i = 1, cY do
- self.parent:setFG(obx, oby + i - 2, tData.fg[i])
- self.parent:setBG(obx, oby + i - 2, tData.bg[i])
- self.parent:setText(obx, oby + i - 2, tData.ch[i])
- end
- end
- end
- end
- end,
- init = function(self)
- if(base.init(self))then
- self.bgColor = self.parent:getTheme("LabelBG")
- self.fgColor = self.parent:getTheme("LabelText")
- if(self.parent.bgColor==colors.black)and(self.fgColor==colors.black)then
- self.fgColor = colors.lightGray
- end
- end
- end
-
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/List.lua b/src/libs/Basalt/objects/List.lua
deleted file mode 100644
index b89683b..0000000
--- a/src/libs/Basalt/objects/List.lua
+++ /dev/null
@@ -1,213 +0,0 @@
-local Object = require("Object")
-local utils = require("utils")
-local xmlValue = utils.getValueFromXML
-
-return function(name)
- local base = Object(name)
- local objectType = "List"
- base.width = 16
- base.height = 6
- base:setZIndex(5)
-
- local list = {}
- local itemSelectedBG
- local itemSelectedFG
- local selectionColorActive = true
- local align = "left"
- local yOffset = 0
- local scrollable = true
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- addItem = function(self, text, bgCol, fgCol, ...)
- table.insert(list, { text = text, bgCol = bgCol or self.bgColor, fgCol = fgCol or self.fgColor, args = { ... } })
- if (#list == 1) then
- self:setValue(list[1])
- end
- self:updateDraw()
- return self
- end;
-
- setOffset = function(self, yOff)
- yOffset = yOff
- self:updateDraw()
- return self
- end;
-
- getOffset = function(self)
- return yOffset
- end;
-
- removeItem = function(self, index)
- table.remove(list, index)
- self:updateDraw()
- return self
- end;
-
- getItem = function(self, index)
- return list[index]
- end;
-
- getAll = function(self)
- return list
- end;
-
- getItemIndex = function(self)
- local selected = self:getValue()
- for key, value in pairs(list) do
- if (value == selected) then
- return key
- end
- end
- end;
-
- clear = function(self)
- list = {}
- self:setValue({})
- self:updateDraw()
- return self
- end;
-
- getItemCount = function(self)
- return #list
- end;
-
- editItem = function(self, index, text, bgCol, fgCol, ...)
- table.remove(list, index)
- table.insert(list, index, { text = text, bgCol = bgCol or self.bgColor, fgCol = fgCol or self.fgColor, args = { ... } })
- self:updateDraw()
- return self
- end;
-
- selectItem = function(self, index)
- self:setValue(list[index] or {})
- self:updateDraw()
- return self
- end;
-
- setSelectedItem = function(self, bgCol, fgCol, active)
- itemSelectedBG = bgCol or self.bgColor
- itemSelectedFG = fgCol or self.fgColor
- selectionColorActive = active~=nil and active or true
- self:updateDraw()
- return self
- end;
-
- setScrollable = function(self, scroll)
- scrollable = scroll
- if(scroll==nil)then scrollable = true end
- self:updateDraw()
- return self
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("selectionBG", data)~=nil)then itemSelectedBG = colors[xmlValue("selectionBG", data)] end
- if(xmlValue("selectionFG", data)~=nil)then itemSelectedFG = colors[xmlValue("selectionFG", data)] end
- if(xmlValue("scrollable", data)~=nil)then if(xmlValue("scrollable", data))then self:setScrollable(true) else self:setScrollable(false) end end
- if(xmlValue("offset", data)~=nil)then yOffset = xmlValue("offset", data) end
- if(data["item"]~=nil)then
- local tab = data["item"]
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- self:addItem(xmlValue("text", v), colors[xmlValue("bg", v)], colors[xmlValue("fg", v)])
- end
- end
- return self
- end,
-
- scrollHandler = function(self, dir, x, y)
- if(base.scrollHandler(self, dir, x, y))then
- if(scrollable)then
- local w,h = self:getSize()
- yOffset = yOffset + dir
- if (yOffset < 0) then
- yOffset = 0
- end
- if (dir >= 1) then
- if (#list > h) then
- if (yOffset > #list - h) then
- yOffset = #list - h
- end
- if (yOffset >= #list) then
- yOffset = #list - 1
- end
- else
- yOffset = yOffset - 1
- end
- end
- self:updateDraw()
- end
- return true
- end
- return false
- end,
-
- mouseHandler = function(self, button, x, y)
- if(base.mouseHandler(self, button, x, y))then
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- local w,h = self:getSize()
- if (#list > 0) then
- for n = 1, h do
- if (list[n + yOffset] ~= nil) then
- if (obx <= x) and (obx + w > x) and (oby + n - 1 == y) then
- self:setValue(list[n + yOffset])
- self:updateDraw()
- end
- end
- end
- end
- return true
- end
- return false
- end,
-
- dragHandler = function(self, button, x, y)
- return self:mouseHandler(button, x, y)
- end,
-
- touchHandler = function(self, x, y)
- return self:mouseHandler(1, x, y)
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- if(self.bgColor~=false)then
- self.parent:drawBackgroundBox(obx, oby, w, h, self.bgColor)
- end
- for n = 1, h do
- if (list[n + yOffset] ~= nil) then
- if (list[n + yOffset] == self:getValue()) then
- if (selectionColorActive) then
- self.parent:writeText(obx, oby + n - 1, utils.getTextHorizontalAlign(list[n + yOffset].text, w, align), itemSelectedBG, itemSelectedFG)
- else
- self.parent:writeText(obx, oby + n - 1, utils.getTextHorizontalAlign(list[n + yOffset].text, w, align), list[n + yOffset].bgCol, list[n + yOffset].fgCol)
- end
- else
- self.parent:writeText(obx, oby + n - 1, utils.getTextHorizontalAlign(list[n + yOffset].text, w, align), list[n + yOffset].bgCol, list[n + yOffset].fgCol)
- end
- end
- end
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("ListBG")
- self.fgColor = self.parent:getTheme("ListText")
- itemSelectedBG = self.parent:getTheme("SelectionBG")
- itemSelectedFG = self.parent:getTheme("SelectionText")
- self.parent:addEvent("mouse_click", self)
- self.parent:addEvent("mouse_drag", self)
- self.parent:addEvent("mouse_scroll", self)
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Menubar.lua b/src/libs/Basalt/objects/Menubar.lua
deleted file mode 100644
index 0e28f5a..0000000
--- a/src/libs/Basalt/objects/Menubar.lua
+++ /dev/null
@@ -1,241 +0,0 @@
-local Object = require("Object")
-local utils = require("utils")
-local xmlValue = utils.getValueFromXML
-local tHex = require("tHex")
-
-return function(name)
- local base = Object(name)
- local objectType = "Menubar"
- local object = {}
-
- base.width = 30
- base.height = 1
- base:setZIndex(5)
-
- local list = {}
- local itemSelectedBG
- local itemSelectedFG
- local selectionColorActive = true
- local align = "left"
- local itemOffset = 0
- local space = 1
- local scrollable = false
-
- local function maxScroll()
- local mScroll = 0
- local xPos = 0
- local w = object:getWidth()
- for n = 1, #list do
- if (xPos + list[n].text:len() + space * 2 > w) then
- if(xPos < w)then
- mScroll = mScroll + (list[n].text:len() + space * 2-(w - xPos))
- else
- mScroll = mScroll + list[n].text:len() + space * 2
- end
- end
- xPos = xPos + list[n].text:len() + space * 2
-
- end
- return mScroll
- end
-
- object = {
- getType = function(self)
- return objectType
- end;
-
- addItem = function(self, text, bgCol, fgCol, ...)
- table.insert(list, { text = tostring(text), bgCol = bgCol or self.bgColor, fgCol = fgCol or self.fgColor, args = { ... } })
- if (#list == 1) then
- self:setValue(list[1])
- end
- self:updateDraw()
- return self
- end;
-
- getAll = function(self)
- return list
- end;
-
- getItemIndex = function(self)
- local selected = self:getValue()
- for key, value in pairs(list) do
- if (value == selected) then
- return key
- end
- end
- end;
-
- clear = function(self)
- list = {}
- self:setValue({})
- self:updateDraw()
- return self
- end;
-
- setSpace = function(self, _space)
- space = _space or space
- self:updateDraw()
- return self
- end;
-
- setOffset = function(self, offset)
- itemOffset = offset or 0
- if (itemOffset < 0) then
- itemOffset = 0
- end
-
- local mScroll = maxScroll()
- if (itemOffset > mScroll) then
- itemOffset = mScroll
- end
- self:updateDraw()
- return self
- end;
-
- getOffset = function(self)
- return itemOffset
- end;
-
- setScrollable = function(self, scroll)
- scrollable = scroll
- if(scroll==nil)then scrollable = true end
- return self
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("selectionBG", data)~=nil)then itemSelectedBG = colors[xmlValue("selectionBG", data)] end
- if(xmlValue("selectionFG", data)~=nil)then itemSelectedFG = colors[xmlValue("selectionFG", data)] end
- if(xmlValue("scrollable", data)~=nil)then if(xmlValue("scrollable", data))then self:setScrollable(true) else self:setScrollable(false) end end
- if(xmlValue("offset", data)~=nil)then self:setOffset(xmlValue("offset", data)) end
- if(xmlValue("space", data)~=nil)then space = xmlValue("space", data) end
- if(data["item"]~=nil)then
- local tab = data["item"]
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- self:addItem(xmlValue("text", v), colors[xmlValue("bg", v)], colors[xmlValue("fg", v)])
- end
- end
- return self
- end,
-
- removeItem = function(self, index)
- table.remove(list, index)
- self:updateDraw()
- return self
- end;
-
- getItem = function(self, index)
- return list[index]
- end;
-
- getItemCount = function(self)
- return #list
- end;
-
- editItem = function(self, index, text, bgCol, fgCol, ...)
- table.remove(list, index)
- table.insert(list, index, { text = text, bgCol = bgCol or self.bgColor, fgCol = fgCol or self.fgColor, args = { ... } })
- self:updateDraw()
- return self
- end;
-
- selectItem = function(self, index)
- self:setValue(list[index] or {})
- self:updateDraw()
- return self
- end;
-
- setSelectedItem = function(self, bgCol, fgCol, active)
- itemSelectedBG = bgCol or self.bgColor
- itemSelectedFG = fgCol or self.fgColor
- selectionColorActive = active
- self:updateDraw()
- return self
- end;
-
- mouseHandler = function(self, button, x, y)
- if(base.mouseHandler(self, button, x, y))then
- local objX, objY = self:getAbsolutePosition(self:getAnchorPosition())
- local w,h = self:getSize()
- local xPos = 0
- for n = 1, #list do
- if (list[n] ~= nil) then
- if (objX + xPos <= x + itemOffset) and (objX + xPos + list[n].text:len() + (space*2) > x + itemOffset) and (objY == y) then
- self:setValue(list[n])
- self:getEventSystem():sendEvent(event, self, event, 0, x, y, list[n])
- end
- xPos = xPos + list[n].text:len() + space * 2
- end
- end
- self:updateDraw()
- return true
- end
- return false
- end,
-
- scrollHandler = function(self, dir, x, y)
- if(base.scrollHandler(self, dir, x, y))then
- if(scrollable)then
- itemOffset = itemOffset + dir
- if (itemOffset < 0) then
- itemOffset = 0
- end
-
- local mScroll = maxScroll()
-
- if (itemOffset > mScroll) then
- itemOffset = mScroll
- end
- self:updateDraw()
- end
- return true
- end
- return false
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- if(self.bgColor~=false)then
- self.parent:drawBackgroundBox(obx, oby, w, h, self.bgColor)
- end
- local text = ""
- local textBGCol = ""
- local textFGCol = ""
- for _, v in pairs(list) do
- local newItem = (" "):rep(space) .. v.text .. (" "):rep(space)
- text = text .. newItem
- if(v == self:getValue())then
- textBGCol = textBGCol .. tHex[itemSelectedBG or v.bgCol or self.bgColor]:rep(newItem:len())
- textFGCol = textFGCol .. tHex[itemSelectedFG or v.FgCol or self.fgColor]:rep(newItem:len())
- else
- textBGCol = textBGCol .. tHex[v.bgCol or self.bgColor]:rep(newItem:len())
- textFGCol = textFGCol .. tHex[v.FgCol or self.fgColor]:rep(newItem:len())
- end
- end
-
- self.parent:setText(obx, oby, text:sub(itemOffset+1, w+itemOffset))
- self.parent:setBG(obx, oby, textBGCol:sub(itemOffset+1, w+itemOffset))
- self.parent:setFG(obx, oby, textFGCol:sub(itemOffset+1, w+itemOffset))
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("MenubarBG")
- self.fgColor = self.parent:getTheme("MenubarText")
- itemSelectedBG = self.parent:getTheme("SelectionBG")
- itemSelectedFG = self.parent:getTheme("SelectionText")
-
- self.parent:addEvent("mouse_click", self)
- self.parent:addEvent("mouse_scroll", self)
-
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Nfp.lua b/src/libs/Basalt/objects/Nfp.lua
deleted file mode 100644
index f8b62a2..0000000
--- a/src/libs/Basalt/objects/Nfp.lua
+++ /dev/null
@@ -1,209 +0,0 @@
-local Object = require("Object")
-local xmlValue = require("utils").getValueFromXML
-
-return function(name)
- -- Nfp
- local base = Object(name)
- local objectType = "Nfp"
- base:setZIndex(2)
- local image
- local shrinkedImage
- local imageGotShrinked = false
-
- local function shrink()
- -- shrinkSystem is copy pasted (and slightly changed) from blittle by Bomb Bloke: http://www.computercraft.info/forums2/index.php?/topic/25354-cc-176-blittle-api/
- local relations = { [0] = { 8, 4, 3, 6, 5 }, { 4, 14, 8, 7 }, { 6, 10, 8, 7 }, { 9, 11, 8, 0 }, { 1, 14, 8, 0 }, { 13, 12, 8, 0 }, { 2, 10, 8, 0 }, { 15, 8, 10, 11, 12, 14 },
- { 0, 7, 1, 9, 2, 13 }, { 3, 11, 8, 7 }, { 2, 6, 7, 15 }, { 9, 3, 7, 15 }, { 13, 5, 7, 15 }, { 5, 12, 8, 7 }, { 1, 4, 7, 15 }, { 7, 10, 11, 12, 14 } }
-
- local colourNum, exponents, colourChar = {}, {}, {}
- for i = 0, 15 do
- exponents[2 ^ i] = i
- end
- do
- local hex = "0123456789abcdef"
- for i = 1, 16 do
- colourNum[hex:sub(i, i)] = i - 1
- colourNum[i - 1] = hex:sub(i, i)
- colourChar[hex:sub(i, i)] = 2 ^ (i - 1)
- colourChar[2 ^ (i - 1)] = hex:sub(i, i)
-
- local thisRel = relations[i - 1]
- for i = 1, #thisRel do
- thisRel[i] = 2 ^ thisRel[i]
- end
- end
- end
-
- local function getBestColourMatch(usage)
- local lastCol = relations[exponents[usage[#usage][1]]]
-
- for j = 1, #lastCol do
- local thisRelation = lastCol[j]
- for i = 1, #usage - 1 do
- if usage[i][1] == thisRelation then
- return i
- end
- end
- end
-
- return 1
- end
-
- local function colsToChar(pattern, totals)
- if not totals then
- local newPattern = {}
- totals = {}
- for i = 1, 6 do
- local thisVal = pattern[i]
- local thisTot = totals[thisVal]
- totals[thisVal], newPattern[i] = thisTot and (thisTot + 1) or 1, thisVal
- end
- pattern = newPattern
- end
-
- local usage = {}
- for key, value in pairs(totals) do
- usage[#usage + 1] = { key, value }
- end
-
- if #usage > 1 then
- -- Reduce the chunk to two colours:
- while #usage > 2 do
- table.sort(usage, function(a, b)
- return a[2] > b[2]
- end)
- local matchToInd, usageLen = getBestColourMatch(usage), #usage
- local matchFrom, matchTo = usage[usageLen][1], usage[matchToInd][1]
- for i = 1, 6 do
- if pattern[i] == matchFrom then
- pattern[i] = matchTo
- usage[matchToInd][2] = usage[matchToInd][2] + 1
- end
- end
- usage[usageLen] = nil
- end
-
- -- Convert to character. Adapted from oli414's function:
- -- http://www.computercraft.info/forums2/index.php?/topic/25340-cc-176-easy-drawing-characters/
- local data = 128
- for i = 1, #pattern - 1 do
- if pattern[i] ~= pattern[6] then
- data = data + 2 ^ (i - 1)
- end
- end
- return string.char(data), colourChar[usage[1][1] == pattern[6] and usage[2][1] or usage[1][1]], colourChar[pattern[6]]
- else
- -- Solid colour character:
- return "\128", colourChar[pattern[1]], colourChar[pattern[1]]
- end
- end
-
- local results, width, height, bgCol = { {}, {}, {} }, 0, #image + #image % 3, base.bgColor or colors.black
- for i = 1, #image do
- if #image[i] > width then
- width = #image[i]
- end
- end
-
- for y = 0, height - 1, 3 do
- local cRow, tRow, bRow, counter = {}, {}, {}, 1
-
- for x = 0, width - 1, 2 do
- -- Grab a 2x3 chunk:
- local pattern, totals = {}, {}
-
- for yy = 1, 3 do
- for xx = 1, 2 do
- pattern[#pattern + 1] = (image[y + yy] and image[y + yy][x + xx]) and (image[y + yy][x + xx] == 0 and bgCol or image[y + yy][x + xx]) or bgCol
- totals[pattern[#pattern]] = totals[pattern[#pattern]] and (totals[pattern[#pattern]] + 1) or 1
- end
- end
-
- cRow[counter], tRow[counter], bRow[counter] = colsToChar(pattern, totals)
- counter = counter + 1
- end
-
- results[1][#results[1] + 1], results[2][#results[2] + 1], results[3][#results[3] + 1] = table.concat(cRow), table.concat(tRow), table.concat(bRow)
- end
-
- results.width, results.height = #results[1][1], #results[1]
-
- shrinkedImage = results
- end
-
- local object = {
- init = function(self)
- self.bgColor = self.parent:getTheme("NfpBG")
- end,
- getType = function(self)
- return objectType
- end;
-
- loadImage = function(self, path)
- image = paintutils.loadImage(path)
- imageGotShrinked = false
- self:updateDraw()
- return self
- end;
-
- unloadImage = function(self)
- image = nil
- self:updateDraw()
- return self
- end;
-
- shrink = function(self)
- shrink()
- imageGotShrinked = true
- self:updateDraw()
- return self
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("shrink", data)~=nil)then if(xmlValue("shrink", data))then self:shrink() end end
- if(xmlValue("path", data)~=nil)then self:loadImage(xmlValue("path", data)) end
- return self
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- if (image ~= nil) then
- local obx, oby = self:getAnchorPosition()
- if (imageGotShrinked) then
- -- this is copy pasted (and slightly changed) from blittle by Bomb Bloke: http://www.computercraft.info/forums2/index.php?/topic/25354-cc-176-blittle-api/
- local t, tC, bC = shrinkedImage[1], shrinkedImage[2], shrinkedImage[3]
- self:setSize(#t[1],#t)
- for i = 1, shrinkedImage.height do
- local tI = t[i]
- if type(tI) == "string" then
- self.parent:setText(obx, oby + i - 1, tI)
- self.parent:setFG(obx, oby + i - 1, tC[i])
- self.parent:setBG(obx, oby + i - 1, bC[i])
- elseif type(tI) == "table" then
- self.parent:setText(obx, oby + i - 1, tI[2])
- self.parent:setFG(obx, oby + i - 1, tC[i])
- self.parent:setBG(obx, oby + i - 1, bC[i])
- end
- end
- else
- local w,h = #image[1],#image
- self:setSize(w,h)
- for yPos = 1, math.min(#image, h) do
- local line = image[yPos]
- for xPos = 1, math.min(#line, w) do
- if line[xPos] > 0 then
- self.parent:drawBackgroundBox(obx + xPos - 1, oby + yPos - 1, 1, 1, line[xPos])
- end
- end
- end
- end
- end
- end
- end
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Pane.lua b/src/libs/Basalt/objects/Pane.lua
deleted file mode 100644
index cfe33b7..0000000
--- a/src/libs/Basalt/objects/Pane.lua
+++ /dev/null
@@ -1,28 +0,0 @@
-local Object = require("Object")
-local log = require("basaltLogs")
-
-return function(name)
- -- Pane
- local base = Object(name)
- local objectType = "Pane"
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setBackground = function(self, col, sym, symC)
- base.setBackground(self, col, sym, symC)
- return self
- end,
-
- init = function(self)
- if(base.init(self))then
- self.bgColor = self.parent:getTheme("PaneBG")
- self.fgColor = self.parent:getTheme("PaneBG")
- end
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Program.lua b/src/libs/Basalt/objects/Program.lua
deleted file mode 100644
index 6a5df05..0000000
--- a/src/libs/Basalt/objects/Program.lua
+++ /dev/null
@@ -1,756 +0,0 @@
-local Object = require("Object")
-local tHex = require("tHex")
-local process = require("process")
-local xmlValue = require("utils").getValueFromXML
-local log = require("basaltLogs")
-
-local sub = string.sub
-
-return function(name, parent)
- local base = Object(name)
- local objectType = "Program"
- base:setZIndex(5)
- local object
- local cachedPath
-
- local function createBasaltWindow(x, y, width, height, self)
- local xCursor, yCursor = 1, 1
- local bgColor, fgColor = colors.black, colors.white
- local cursorBlink = false
- local visible = false
-
- local cacheT = {}
- local cacheBG = {}
- local cacheFG = {}
-
- local tPalette = {}
-
- local emptySpaceLine
- local emptyColorLines = {}
-
- for i = 0, 15 do
- local c = 2 ^ i
- tPalette[c] = { parent:getBasaltInstance().getBaseTerm().getPaletteColour(c) }
- end
-
- local function createEmptyLines()
- emptySpaceLine = (" "):rep(width)
- for n = 0, 15 do
- local nColor = 2 ^ n
- local sHex = tHex[nColor]
- emptyColorLines[nColor] = sHex:rep(width)
- end
- end
-
- local function recreateWindowArray()
- createEmptyLines()
- local emptyText = emptySpaceLine
- local emptyFG = emptyColorLines[colors.white]
- local emptyBG = emptyColorLines[colors.black]
- for n = 1, height do
- cacheT[n] = sub(cacheT[n] == nil and emptyText or cacheT[n] .. emptyText:sub(1, width - cacheT[n]:len()), 1, width)
- cacheFG[n] = sub(cacheFG[n] == nil and emptyFG or cacheFG[n] .. emptyFG:sub(1, width - cacheFG[n]:len()), 1, width)
- cacheBG[n] = sub(cacheBG[n] == nil and emptyBG or cacheBG[n] .. emptyBG:sub(1, width - cacheBG[n]:len()), 1, width)
- end
- base.updateDraw(base)
- end
- recreateWindowArray()
-
- local function updateCursor()
- if xCursor >= 1 and yCursor >= 1 and xCursor <= width and yCursor <= height then
- --parentTerminal.setCursorPos(xCursor + x - 1, yCursor + y - 1)
- else
- --parentTerminal.setCursorPos(0, 0)
- end
- --parentTerminal.setTextColor(fgColor)
- end
-
- local function internalBlit(sText, sTextColor, sBackgroundColor)
- -- copy pasti strikes again (cc: window.lua)
- local nStart = xCursor
- local nEnd = nStart + #sText - 1
- if yCursor >= 1 and yCursor <= height then
- if nStart <= width and nEnd >= 1 then
- -- Modify line
- if nStart == 1 and nEnd == width then
- cacheT[yCursor] = sText
- cacheFG[yCursor] = sTextColor
- cacheBG[yCursor] = sBackgroundColor
- else
- local sClippedText, sClippedTextColor, sClippedBackgroundColor
- if nStart < 1 then
- local nClipStart = 1 - nStart + 1
- local nClipEnd = width - nStart + 1
- sClippedText = sub(sText, nClipStart, nClipEnd)
- sClippedTextColor = sub(sTextColor, nClipStart, nClipEnd)
- sClippedBackgroundColor = sub(sBackgroundColor, nClipStart, nClipEnd)
- elseif nEnd > width then
- local nClipEnd = width - nStart + 1
- sClippedText = sub(sText, 1, nClipEnd)
- sClippedTextColor = sub(sTextColor, 1, nClipEnd)
- sClippedBackgroundColor = sub(sBackgroundColor, 1, nClipEnd)
- else
- sClippedText = sText
- sClippedTextColor = sTextColor
- sClippedBackgroundColor = sBackgroundColor
- end
-
- local sOldText = cacheT[yCursor]
- local sOldTextColor = cacheFG[yCursor]
- local sOldBackgroundColor = cacheBG[yCursor]
- local sNewText, sNewTextColor, sNewBackgroundColor
- if nStart > 1 then
- local nOldEnd = nStart - 1
- sNewText = sub(sOldText, 1, nOldEnd) .. sClippedText
- sNewTextColor = sub(sOldTextColor, 1, nOldEnd) .. sClippedTextColor
- sNewBackgroundColor = sub(sOldBackgroundColor, 1, nOldEnd) .. sClippedBackgroundColor
- else
- sNewText = sClippedText
- sNewTextColor = sClippedTextColor
- sNewBackgroundColor = sClippedBackgroundColor
- end
- if nEnd < width then
- local nOldStart = nEnd + 1
- sNewText = sNewText .. sub(sOldText, nOldStart, width)
- sNewTextColor = sNewTextColor .. sub(sOldTextColor, nOldStart, width)
- sNewBackgroundColor = sNewBackgroundColor .. sub(sOldBackgroundColor, nOldStart, width)
- end
-
- cacheT[yCursor] = sNewText
- cacheFG[yCursor] = sNewTextColor
- cacheBG[yCursor] = sNewBackgroundColor
- end
- object:updateDraw()
- end
- xCursor = nEnd + 1
- if (visible) then
- updateCursor()
- end
- end
- end
-
- local function setText(_x, _y, text)
- if (text ~= nil) then
- local gText = cacheT[_y]
- if (gText ~= nil) then
- cacheT[_y] = sub(gText:sub(1, _x - 1) .. text .. gText:sub(_x + (text:len()), width), 1, width)
- end
- end
- object:updateDraw()
- end
-
- local function setBG(_x, _y, colorStr)
- if (colorStr ~= nil) then
- local gBG = cacheBG[_y]
- if (gBG ~= nil) then
- cacheBG[_y] = sub(gBG:sub(1, _x - 1) .. colorStr .. gBG:sub(_x + (colorStr:len()), width), 1, width)
- end
- end
- object:updateDraw()
- end
-
- local function setFG(_x, _y, colorStr)
- if (colorStr ~= nil) then
- local gFG = cacheFG[_y]
- if (gFG ~= nil) then
- cacheFG[_y] = sub(gFG:sub(1, _x - 1) .. colorStr .. gFG:sub(_x + (colorStr:len()), width), 1, width)
- end
- end
- object:updateDraw()
- end
-
- local setTextColor = function(color)
- if type(color) ~= "number" then
- error("bad argument #1 (expected number, got " .. type(color) .. ")", 2)
- elseif tHex[color] == nil then
- error("Invalid color (got " .. color .. ")", 2)
- end
- fgColor = color
- end
-
- local setBackgroundColor = function(color)
- if type(color) ~= "number" then
- error("bad argument #1 (expected number, got " .. type(color) .. ")", 2)
- elseif tHex[color] == nil then
- error("Invalid color (got " .. color .. ")", 2)
- end
- bgColor = color
- end
-
- local setPaletteColor = function(colour, r, g, b)
- -- have to work on
- if type(colour) ~= "number" then
- error("bad argument #1 (expected number, got " .. type(colour) .. ")", 2)
- end
-
- if tHex[colour] == nil then
- error("Invalid color (got " .. colour .. ")", 2)
- end
-
- local tCol
- if type(r) == "number" and g == nil and b == nil then
- tCol = { colours.rgb8(r) }
- tPalette[colour] = tCol
- else
- if type(r) ~= "number" then
- error("bad argument #2 (expected number, got " .. type(r) .. ")", 2)
- end
- if type(g) ~= "number" then
- error("bad argument #3 (expected number, got " .. type(g) .. ")", 2)
- end
- if type(b) ~= "number" then
- error("bad argument #4 (expected number, got " .. type(b) .. ")", 2)
- end
-
- tCol = tPalette[colour]
- tCol[1] = r
- tCol[2] = g
- tCol[3] = b
- end
- end
-
- local getPaletteColor = function(colour)
- if type(colour) ~= "number" then
- error("bad argument #1 (expected number, got " .. type(colour) .. ")", 2)
- end
- if tHex[colour] == nil then
- error("Invalid color (got " .. colour .. ")", 2)
- end
- local tCol = tPalette[colour]
- return tCol[1], tCol[2], tCol[3]
- end
-
- local basaltwindow = {
- setCursorPos = function(_x, _y)
- if type(_x) ~= "number" then
- error("bad argument #1 (expected number, got " .. type(_x) .. ")", 2)
- end
- if type(_y) ~= "number" then
- error("bad argument #2 (expected number, got " .. type(_y) .. ")", 2)
- end
- xCursor = math.floor(_x)
- yCursor = math.floor(_y)
- if (visible) then
- updateCursor()
- end
- end;
-
- getCursorPos = function()
- return xCursor, yCursor
- end;
-
- setCursorBlink = function(blink)
- if type(blink) ~= "boolean" then
- error("bad argument #1 (expected boolean, got " .. type(blink) .. ")", 2)
- end
- cursorBlink = blink
- end;
-
- getCursorBlink = function()
- return cursorBlink
- end;
-
-
- getPaletteColor = getPaletteColor,
- getPaletteColour = getPaletteColor,
-
- setBackgroundColor = setBackgroundColor,
- setBackgroundColour = setBackgroundColor,
-
- setTextColor = setTextColor,
- setTextColour = setTextColor,
-
- setPaletteColor = setPaletteColor,
- setPaletteColour = setPaletteColor,
-
- getBackgroundColor = function()
- return bgColor
- end;
- getBackgroundColour = function()
- return bgColor
- end;
-
- getSize = function()
- return width, height
- end;
-
- getTextColor = function()
- return fgColor
- end;
- getTextColour = function()
- return fgColor
- end;
-
- basalt_resize = function(_width, _height)
- width, height = _width, _height
- recreateWindowArray()
- end;
-
- basalt_reposition = function(_x, _y)
- x, y = _x, _y
- end;
-
- basalt_setVisible = function(vis)
- visible = vis
- end;
-
- drawBackgroundBox = function(_x, _y, _width, _height, bgCol)
- for n = 1, _height do
- setBG(_x, _y + (n - 1), tHex[bgCol]:rep(_width))
- end
- end;
- drawForegroundBox = function(_x, _y, _width, _height, fgCol)
- for n = 1, _height do
- setFG(_x, _y + (n - 1), tHex[fgCol]:rep(_width))
- end
- end;
- drawTextBox = function(_x, _y, _width, _height, symbol)
- for n = 1, _height do
- setText(_x, _y + (n - 1), symbol:rep(_width))
- end
- end;
-
- writeText = function(_x, _y, text, bgCol, fgCol)
- bgCol = bgCol or bgColor
- fgCol = fgCol or fgColor
- setText(x, _y, text)
- setBG(_x, _y, tHex[bgCol]:rep(text:len()))
- setFG(_x, _y, tHex[fgCol]:rep(text:len()))
- end;
-
- basalt_update = function()
- if (parent ~= nil) then
- for n = 1, height do
- parent:setText(x, y + (n - 1), cacheT[n])
- parent:setBG(x, y + (n - 1), cacheBG[n])
- parent:setFG(x, y + (n - 1), cacheFG[n])
- end
- end
- end;
-
- scroll = function(offset)
- if type(offset) ~= "number" then
- error("bad argument #1 (expected number, got " .. type(offset) .. ")", 2)
- end
- if offset ~= 0 then
- local sEmptyText = emptySpaceLine
- local sEmptyTextColor = emptyColorLines[fgColor]
- local sEmptyBackgroundColor = emptyColorLines[bgColor]
- for newY = 1, height do
- local y = newY + offset
- if y >= 1 and y <= height then
- cacheT[newY] = cacheT[y]
- cacheBG[newY] = cacheBG[y]
- cacheFG[newY] = cacheFG[y]
- else
- cacheT[newY] = sEmptyText
- cacheFG[newY] = sEmptyTextColor
- cacheBG[newY] = sEmptyBackgroundColor
- end
- end
- end
- if (visible) then
- updateCursor()
- end
- end;
-
-
- isColor = function()
- return parent:getBasaltInstance().getBaseTerm().isColor()
- end;
-
- isColour = function()
- return parent:getBasaltInstance().getBaseTerm().isColor()
- end;
-
- write = function(text)
- text = tostring(text)
- if (visible) then
- internalBlit(text, tHex[fgColor]:rep(text:len()), tHex[bgColor]:rep(text:len()))
- end
- end;
-
- clearLine = function()
- if (visible) then
- setText(1, yCursor, (" "):rep(width))
- setBG(1, yCursor, tHex[bgColor]:rep(width))
- setFG(1, yCursor, tHex[fgColor]:rep(width))
- end
- if (visible) then
- updateCursor()
- end
- end;
-
- clear = function()
- for n = 1, height do
- setText(1, n, (" "):rep(width))
- setBG(1, n, tHex[bgColor]:rep(width))
- setFG(1, n, tHex[fgColor]:rep(width))
- end
- if (visible) then
- updateCursor()
- end
- end;
-
- blit = function(text, fgcol, bgcol)
- if type(text) ~= "string" then
- error("bad argument #1 (expected string, got " .. type(text) .. ")", 2)
- end
- if type(fgcol) ~= "string" then
- error("bad argument #2 (expected string, got " .. type(fgcol) .. ")", 2)
- end
- if type(bgcol) ~= "string" then
- error("bad argument #3 (expected string, got " .. type(bgcol) .. ")", 2)
- end
- if #fgcol ~= #text or #bgcol ~= #text then
- error("Arguments must be the same length", 2)
- end
- if (visible) then
- internalBlit(text, fgcol, bgcol)
- end
- end
-
-
- }
-
- return basaltwindow
- end
-
- base.width = 30
- base.height = 12
- local pWindow = createBasaltWindow(1, 1, base.width, base.height)
- local curProcess
- local paused = false
- local queuedEvent = {}
-
- local function updateCursor(self)
- local xCur, yCur = pWindow.getCursorPos()
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- if (obx + xCur - 1 >= 1 and obx + xCur - 1 <= obx + w - 1 and yCur + oby - 1 >= 1 and yCur + oby - 1 <= oby + h - 1) then
- self.parent:setCursor(pWindow.getCursorBlink(), obx + xCur - 1, yCur + oby - 1, pWindow.getTextColor())
- end
- end
-
- local function mouseEvent(self, event, p1, x, y)
- if (curProcess == nil) then
- return false
- end
- if not (curProcess:isDead()) then
- if not (paused) then
- local absX, absY = self:getAbsolutePosition(self:getAnchorPosition(nil, nil, true))
- curProcess:resume(event, p1, x-absX+1, y-absY+1)
- updateCursor(self)
- end
- end
- end
-
- local function keyEvent(self, event, key, isHolding)
- if (curProcess == nil) then
- return false
- end
- if not (curProcess:isDead()) then
- if not (paused) then
- if (self.draw) then
- curProcess:resume(event, key, isHolding)
- updateCursor(self)
- end
- end
- end
- end
-
- object = {
- getType = function(self)
- return objectType
- end;
-
- show = function(self)
- base.show(self)
- pWindow.setBackgroundColor(self.bgColor)
- pWindow.setTextColor(self.fgColor)
- pWindow.basalt_setVisible(true)
- return self
- end;
-
- hide = function(self)
- base.hide(self)
- pWindow.basalt_setVisible(false)
- return self
- end;
-
- setPosition = function(self, x, y, rel)
- base.setPosition(self, x, y, rel)
- pWindow.basalt_reposition(self:getAnchorPosition())
- return self
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("path", data)~=nil)then cachedPath = xmlValue("path", data) end
- if(xmlValue("execute", data)~=nil)then if(xmlValue("execute", data))then if(cachedPath~=nil)then self:execute(cachedPath) end end end
- end,
-
- getBasaltWindow = function()
- return pWindow
- end;
-
- getBasaltProcess = function()
- return curProcess
- end;
-
- setSize = function(self, width, height, rel)
- base.setSize(self, width, height, rel)
- pWindow.basalt_resize(self:getWidth(), self:getHeight())
- return self
- end;
-
- getStatus = function(self)
- if (curProcess ~= nil) then
- return curProcess:getStatus()
- end
- return "inactive"
- end;
-
- execute = function(self, path, ...)
- cachedPath = path or cachedPath
- curProcess = process:new(cachedPath, pWindow, ...)
- pWindow.setBackgroundColor(colors.black)
- pWindow.setTextColor(colors.white)
- pWindow.clear()
- pWindow.setCursorPos(1, 1)
- pWindow.setBackgroundColor(self.bgColor)
- pWindow.setTextColor(self.fgColor)
- pWindow.basalt_setVisible(true)
- curProcess:resume()
- paused = false
- if(self.parent~=nil)then
- self.parent:addEvent("mouse_click", self)
- self.parent:addEvent("mouse_up", self)
- self.parent:addEvent("mouse_drag", self)
- self.parent:addEvent("mouse_scroll", self)
- self.parent:addEvent("key", self)
- self.parent:addEvent("key_up", self)
- self.parent:addEvent("char", self)
- self.parent:addEvent("other_event", self)
- end
- return self
- end;
-
- stop = function(self)
- if (curProcess ~= nil) then
- if not (curProcess:isDead()) then
- curProcess:resume("terminate")
- if (curProcess:isDead()) then
- if (self.parent ~= nil) then
- self.parent:setCursor(false)
- end
- end
- end
- end
- self.parent:removeEvents(self)
- return self
- end;
-
- pause = function(self, p)
- paused = p or (not paused)
- if (curProcess ~= nil) then
- if not (curProcess:isDead()) then
- if not (paused) then
- self:injectEvents(queuedEvent)
- queuedEvent = {}
- end
- end
- end
- return self
- end;
-
- isPaused = function(self)
- return paused
- end;
-
- injectEvent = function(self, event, p1, p2, p3, p4, ign)
- if (curProcess ~= nil) then
- if not (curProcess:isDead()) then
- if (paused == false) or (ign) then
- curProcess:resume(event, p1, p2, p3, p4)
- else
- table.insert(queuedEvent, { event = event, args = { p1, p2, p3, p4 } })
- end
- end
- end
- return self
- end;
-
- getQueuedEvents = function(self)
- return queuedEvent
- end;
-
- updateQueuedEvents = function(self, events)
- queuedEvent = events or queuedEvent
- return self
- end;
-
- injectEvents = function(self, events)
- if (curProcess ~= nil) then
- if not (curProcess:isDead()) then
- for _, value in pairs(events) do
- curProcess:resume(value.event, table.unpack(value.args))
- end
- end
- end
- return self
- end;
-
- mouseHandler = function(self, button, x, y)
- if (base.mouseHandler(self, button, x, y)) then
- mouseEvent(self, "mouse_click", button, x, y)
- return true
- end
- return false
- end,
-
- mouseUpHandler = function(self, button, x, y)
- if (base.mouseUpHandler(self, button, x, y)) then
- mouseEvent(self, "mouse_up", button, x, y)
- return true
- end
- return false
- end,
-
- scrollHandler = function(self, dir, x, y)
- if (base.scrollHandler(self, dir, x, y)) then
- mouseEvent(self, "mouse_scroll", dir, x, y)
- return true
- end
- return false
- end,
-
- dragHandler = function(self, button, x, y)
- if (base.dragHandler(self, button, x, y)) then
- mouseEvent(self, "mouse_drag", button, x, y)
- return true
- end
- return false
- end,
-
- keyHandler = function(self, key, isHolding)
- if(base.keyHandler(self, key, isHolding))then
- keyEvent(self, "key", key, isHolding)
- return true
- end
- return false
- end,
-
- keyUpHandler = function(self, key)
- if(base.keyUpHandler(self, key))then
- keyEvent(self, "key_up", key)
- return true
- end
- return false
- end,
-
- charHandler = function(self, char)
- if(base.charHandler(self, char))then
- keyEvent(self, "char", char)
- return true
- end
- return false
- end,
-
- getFocusHandler = function(self)
- base.getFocusHandler(self)
- if (curProcess ~= nil) then
- if not (curProcess:isDead()) then
- if not (paused) then
- if (self.parent ~= nil) then
- local xCur, yCur = pWindow.getCursorPos()
- local obx, oby = self:getAnchorPosition()
- if (self.parent ~= nil) then
- local w,h = self:getSize()
- if (obx + xCur - 1 >= 1 and obx + xCur - 1 <= obx + w - 1 and yCur + oby - 1 >= 1 and yCur + oby - 1 <= oby + h - 1) then
- self.parent:setCursor(pWindow.getCursorBlink(), obx + xCur - 1, yCur + oby - 1, pWindow.getTextColor())
- end
- end
- end
- end
- end
- end
- end,
-
- loseFocusHandler = function(self)
- base.loseFocusHandler(self)
- if (curProcess ~= nil) then
- if not (curProcess:isDead()) then
- if (self.parent ~= nil) then
- self.parent:setCursor(false)
- end
- end
- end
- end,
-
- eventHandler = function(self, event, p1, p2, p3, p4)
- if(base.eventHandler(self, event, p1, p2, p3, p4))then
- if (curProcess == nil) then
- return
- end
- if(event=="dynamicValueEvent")then
- local w, h = pWindow.getSize()
- local pW, pH = self:getSize()
- if(w~=pW)or(h~=pH)then
- pWindow.basalt_resize(pW, pH)
- if not (curProcess:isDead()) then
- curProcess:resume("term_resize")
- end
- end
- pWindow.basalt_reposition(self:getAnchorPosition())
-
- end
- if not (curProcess:isDead()) then
- if not (paused) then
- if(event ~= "terminate") then
- curProcess:resume(event, p1, p2, p3, p4)
- end
- if (self:isFocused()) then
- local obx, oby = self:getAnchorPosition()
- local xCur, yCur = pWindow.getCursorPos()
- if (self.parent ~= nil) then
- local w,h = self:getSize()
- if (obx + xCur - 1 >= 1 and obx + xCur - 1 <= obx + w - 1 and yCur + oby - 1 >= 1 and yCur + oby - 1 <= oby + h - 1) then
- self.parent:setCursor(pWindow.getCursorBlink(), obx + xCur - 1, yCur + oby - 1, pWindow.getTextColor())
- end
- end
-
- if (event == "terminate") then
- log(self:isFocused())
- curProcess:resume(event)
- self.parent:setCursor(false)
- return true
- end
- end
- else
- table.insert(queuedEvent, { event = event, args = { p1, p2, p3, p4 } })
- end
- end
- return false
- end
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- pWindow.basalt_reposition(obx, oby)
- pWindow.basalt_update()
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("ProgramBG")
- end,
-
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Progressbar.lua b/src/libs/Basalt/objects/Progressbar.lua
deleted file mode 100644
index ab5974c..0000000
--- a/src/libs/Basalt/objects/Progressbar.lua
+++ /dev/null
@@ -1,120 +0,0 @@
-local Object = require("Object")
-local xmlValue = require("utils").getValueFromXML
-
-return function(name)
- -- Checkbox
- local base = Object(name)
- local objectType = "Progressbar"
-
- local progress = 0
-
- base:setZIndex(5)
- base:setValue(false)
- base.width = 25
- base.height = 1
-
- local activeBarColor
- local activeBarSymbol = ""
- local activeBarSymbolCol = colors.white
- local bgBarSymbol = ""
- local direction = 0
-
- local object = {
- init = function(self)
- self.bgColor = self.parent:getTheme("ProgressbarBG")
- self.fgColor = self.parent:getTheme("ProgressbarText")
- activeBarColor = self.parent:getTheme("ProgressbarActiveBG")
- end,
- getType = function(self)
- return objectType
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("direction", data)~=nil)then direction = xmlValue("direction", data) end
- if(xmlValue("progressColor", data)~=nil)then activeBarColor = colors[xmlValue("progressColor", data)] end
- if(xmlValue("progressSymbol", data)~=nil)then activeBarSymbol = xmlValue("progressSymbol", data) end
- if(xmlValue("backgroundSymbol", data)~=nil)then bgBarSymbol = xmlValue("backgroundSymbol", data) end
- if(xmlValue("progressSymbolColor", data)~=nil)then activeBarSymbolCol = colors[xmlValue("progressSymbolColor", data)] end
- if(xmlValue("onDone", data)~=nil)then self:generateXMLEventFunction(self.onProgressDone, xmlValue("onDone", data)) end
- return self
- end,
-
- setDirection = function(self, dir)
- direction = dir
- self:updateDraw()
- return self
- end;
-
- setProgressBar = function(self, color, symbol, symbolcolor)
- activeBarColor = color or activeBarColor
- activeBarSymbol = symbol or activeBarSymbol
- activeBarSymbolCol = symbolcolor or activeBarSymbolCol
- self:updateDraw()
- return self
- end;
-
- setBackgroundSymbol = function(self, symbol)
- bgBarSymbol = symbol:sub(1, 1)
- self:updateDraw()
- return self
- end;
-
- setProgress = function(self, value)
- if (value >= 0) and (value <= 100) and (progress ~= value) then
- progress = value
- self:setValue(progress)
- if (progress == 100) then
- self:progressDoneHandler()
- end
- end
- self:updateDraw()
- return self
- end;
-
- getProgress = function(self)
- return progress
- end;
-
- onProgressDone = function(self, f)
- self:registerEvent("progress_done", f)
- return self
- end;
-
- progressDoneHandler = function(self)
- self:sendEvent("progress_done", self)
- end;
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- if(self.bgColor~=false)then self.parent:drawBackgroundBox(obx, oby, w, h, self.bgColor) end
- if(bgBarSymbol~="")then self.parent:drawTextBox(obx, oby, w, h, bgBarSymbol) end
- if(self.fgColor~=false)then self.parent:drawForegroundBox(obx, oby, w, h, self.fgColor) end
- if (direction == 1) then
- self.parent:drawBackgroundBox(obx, oby, w, h / 100 * progress, activeBarColor)
- self.parent:drawForegroundBox(obx, oby, w, h / 100 * progress, activeBarSymbolCol)
- self.parent:drawTextBox(obx, oby, w, h / 100 * progress, activeBarSymbol)
- elseif (direction == 2) then
- self.parent:drawBackgroundBox(obx, oby + math.ceil(h - h / 100 * progress), w, h / 100 * progress, activeBarColor)
- self.parent:drawForegroundBox(obx, oby + math.ceil(h - h / 100 * progress), w, h / 100 * progress, activeBarSymbolCol)
- self.parent:drawTextBox(obx, oby + math.ceil(h - h / 100 * progress), w, h / 100 * progress, activeBarSymbol)
- elseif (direction == 3) then
- self.parent:drawBackgroundBox(obx + math.ceil(w - w / 100 * progress), oby, w / 100 * progress, h, activeBarColor)
- self.parent:drawForegroundBox(obx + math.ceil(w - w / 100 * progress), oby, w / 100 * progress, h, activeBarSymbolCol)
- self.parent:drawTextBox(obx + math.ceil(w - w / 100 * progress), oby, w / 100 * progress, h, activeBarSymbol)
- else
- self.parent:drawBackgroundBox(obx, oby, w / 100 * progress, h, activeBarColor)
- self.parent:drawForegroundBox(obx, oby, w / 100 * progress, h, activeBarSymbolCol)
- self.parent:drawTextBox(obx, oby, w / 100 * progress, h, activeBarSymbol)
- end
- end
- end
- end,
-
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Radio.lua b/src/libs/Basalt/objects/Radio.lua
deleted file mode 100644
index 82854b1..0000000
--- a/src/libs/Basalt/objects/Radio.lua
+++ /dev/null
@@ -1,167 +0,0 @@
-local Object = require("Object")
-local utils = require("utils")
-local xmlValue = utils.getValueFromXML
-
-return function(name)
- local base = Object(name)
- local objectType = "Radio"
- base.width = 8
- base:setZIndex(5)
-
- local list = {}
- local itemSelectedBG
- local itemSelectedFG
- local boxSelectedBG
- local boxSelectedFG
- local boxNotSelectedBG
- local boxNotSelectedFG
- local selectionColorActive = true
- local symbol = "\7"
- local align = "left"
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("selectionBG", data)~=nil)then itemSelectedBG = colors[xmlValue("selectionBG", data)] end
- if(xmlValue("selectionFG", data)~=nil)then itemSelectedFG = colors[xmlValue("selectionFG", data)] end
- if(xmlValue("boxBG", data)~=nil)then boxSelectedBG = colors[xmlValue("boxBG", data)] end
- if(xmlValue("inactiveBoxBG", data)~=nil)then boxNotSelectedBG = colors[xmlValue("inactiveBoxBG", data)] end
- if(xmlValue("inactiveBoxFG", data)~=nil)then boxNotSelectedFG = colors[xmlValue("inactiveBoxFG", data)] end
- if(xmlValue("boxFG", data)~=nil)then boxSelectedFG = colors[xmlValue("boxFG", data)] end
- if(xmlValue("symbol", data)~=nil)then symbol = xmlValue("symbol", data) end
- if(data["item"]~=nil)then
- local tab = data["item"]
- if(tab.properties~=nil)then tab = {tab} end
- for k,v in pairs(tab)do
- self:addItem(xmlValue("text", v), xmlValue("x", v), xmlValue("y", v), colors[xmlValue("bg", v)], colors[xmlValue("fg", v)])
- end
- end
- return self
- end,
-
- addItem = function(self, text, x, y, bgCol, fgCol, ...)
- table.insert(list, { x = x or 1, y = y or 1, text = text, bgCol = bgCol or self.bgColor, fgCol = fgCol or self.fgColor, args = { ... } })
- if (#list == 1) then
- self:setValue(list[1])
- end
- self:updateDraw()
- return self
- end;
-
- getAll = function(self)
- return list
- end;
-
- removeItem = function(self, index)
- table.remove(list, index)
- self:updateDraw()
- return self
- end;
-
- getItem = function(self, index)
- return list[index]
- end;
-
- getItemIndex = function(self)
- local selected = self:getValue()
- for key, value in pairs(list) do
- if (value == selected) then
- return key
- end
- end
- end;
-
- clear = function(self)
- list = {}
- self:setValue({})
- self:updateDraw()
- return self
- end;
-
- getItemCount = function(self)
- return #list
- end;
-
- editItem = function(self, index, text, x, y, bgCol, fgCol, ...)
- table.remove(list, index)
- table.insert(list, index, { x = x or 1, y = y or 1, text = text, bgCol = bgCol or self.bgColor, fgCol = fgCol or self.fgColor, args = { ... } })
- self:updateDraw()
- return self
- end;
-
- selectItem = function(self, index)
- self:setValue(list[index] or {})
- self:updateDraw()
- return self
- end;
-
- setActiveSymbol = function(self, sym)
- symbol = sym:sub(1,1)
- self:updateDraw()
- return self
- end,
-
- setSelectedItem = function(self, bgCol, fgCol, boxBG, boxFG, active)
- itemSelectedBG = bgCol or itemSelectedBG
- itemSelectedFG = fgCol or itemSelectedFG
- boxSelectedBG = boxBG or boxSelectedBG
- boxSelectedFG = boxFG or boxSelectedFG
- selectionColorActive = active~=nil and active or true
- self:updateDraw()
- return self
- end;
-
- mouseHandler = function(self, button, x, y)
- if (#list > 0) then
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- for _, value in pairs(list) do
- if (obx + value.x - 1 <= x) and (obx + value.x - 1 + value.text:len() + 1 >= x) and (oby + value.y - 1 == y) then
- self:setValue(value)
- local val = self:getEventSystem():sendEvent("mouse_click", self, "mouse_click", button, x, y)
- if(val==false)then return val end
- if(self.parent~=nil)then
- self.parent:setFocusedObject(self)
- end
- self:updateDraw()
- return true
- end
- end
- end
- return false
- end;
-
- draw = function(self)
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- for _, value in pairs(list) do
- if (value == self:getValue()) then
- if (align == "left") then
- self.parent:writeText(value.x + obx - 1, value.y + oby - 1, symbol, boxSelectedBG, boxSelectedFG)
- self.parent:writeText(value.x + 2 + obx - 1, value.y + oby - 1, value.text, itemSelectedBG, itemSelectedFG)
- end
- else
- self.parent:drawBackgroundBox(value.x + obx - 1, value.y + oby - 1, 1, 1, boxNotSelectedBG or self.bgColor)
- self.parent:writeText(value.x + 2 + obx - 1, value.y + oby - 1, value.text, value.bgCol, value.fgCol)
- end
- end
- return true
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("MenubarBG")
- self.fgColor = self.parent:getTheme("MenubarFG")
- itemSelectedBG = self.parent:getTheme("SelectionBG")
- itemSelectedFG = self.parent:getTheme("SelectionText")
- boxSelectedBG = self.parent:getTheme("MenubarBG")
- boxSelectedFG = self.parent:getTheme("MenubarText")
- self.parent:addEvent("mouse_click", self)
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Scrollbar.lua b/src/libs/Basalt/objects/Scrollbar.lua
deleted file mode 100644
index dbe46ed..0000000
--- a/src/libs/Basalt/objects/Scrollbar.lua
+++ /dev/null
@@ -1,186 +0,0 @@
-local Object = require("Object")
-local xmlValue = require("utils").getValueFromXML
-
-return function(name)
- local base = Object(name)
- local objectType = "Scrollbar"
-
- base.width = 1
- base.height = 8
- base:setValue(1)
- base:setZIndex(2)
-
- local barType = "vertical"
- local symbol = " "
- local symbolColor
- local bgSymbol = "\127"
- local maxValue = base.height
- local index = 1
- local symbolSize = 1
-
- local function mouseEvent(self, button, x, y)
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- local w,h = self:getSize()
- if (barType == "horizontal") then
- for _index = 0, w do
- if (obx + _index == x) and (oby <= y) and (oby + h > y) then
- index = math.min(_index + 1, w - (symbolSize - 1))
- self:setValue(maxValue / w * (index))
- self:updateDraw()
- end
- end
- end
- if (barType == "vertical") then
- for _index = 0, h do
- if (oby + _index == y) and (obx <= x) and (obx + w > x) then
- index = math.min(_index + 1, h - (symbolSize - 1))
- self:setValue(maxValue / h * (index))
- self:updateDraw()
- end
- end
- end
- end
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setSymbol = function(self, _symbol)
- symbol = _symbol:sub(1, 1)
- self:updateDraw()
- return self
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("maxValue", data)~=nil)then maxValue = xmlValue("maxValue", data) end
- if(xmlValue("backgroundSymbol", data)~=nil)then bgSymbol = xmlValue("backgroundSymbol", data):sub(1,1) end
- if(xmlValue("symbol", data)~=nil)then symbol = xmlValue("symbol", data):sub(1,1) end
- if(xmlValue("barType", data)~=nil)then barType = xmlValue("barType", data):lower() end
- if(xmlValue("symbolSize", data)~=nil)then self:setSymbolSize(xmlValue("symbolSize", data)) end
- if(xmlValue("symbolColor", data)~=nil)then symbolColor = colors[xmlValue("symbolColor", data)] end
- if(xmlValue("index", data)~=nil)then self:setIndex(xmlValue("index", data)) end
- end,
-
- setIndex = function(self, _index)
- index = _index
- if (index < 1) then
- index = 1
- end
- local w,h = self:getSize()
- index = math.min(index, (barType == "vertical" and h or w) - (symbolSize - 1))
- self:setValue(maxValue / (barType == "vertical" and h or w) * index)
- self:updateDraw()
- return self
- end,
-
- getIndex = function(self)
- return index
- end,
-
- setSymbolSize = function(self, size)
- symbolSize = tonumber(size) or 1
- local w,h = self:getSize()
- if (barType == "vertical") then
- self:setValue(index - 1 * (maxValue / (h - (symbolSize - 1))) - (maxValue / (h - (symbolSize - 1))))
- elseif (barType == "horizontal") then
- self:setValue(index - 1 * (maxValue / (w - (symbolSize - 1))) - (maxValue / (w - (symbolSize - 1))))
- end
- self:updateDraw()
- return self
- end;
-
- setMaxValue = function(self, val)
- maxValue = val
- self:updateDraw()
- return self
- end;
-
- setBackgroundSymbol = function(self, _bgSymbol)
- bgSymbol = string.sub(_bgSymbol, 1, 1)
- self:updateDraw()
- return self
- end;
-
- setSymbolColor = function(self, col)
- symbolColor = col
- self:updateDraw()
- return self
- end;
-
- setBarType = function(self, _typ)
- barType = _typ:lower()
- self:updateDraw()
- return self
- end;
-
- mouseHandler = function(self, button, x, y)
- if (base.mouseHandler(self, button, x, y)) then
- mouseEvent(self, button, x, y)
- return true
- end
- return false
- end,
-
- dragHandler = function(self, button, x, y)
- if (base.dragHandler(self, button, x, y)) then
- mouseEvent(self, button, x, y)
- return true
- end
- return false
- end,
-
- scrollHandler = function(self, dir, x, y)
- if(base.scrollHandler(self, dir, x, y))then
- local w,h = self:getSize()
- index = index + dir
- if (index < 1) then
- index = 1
- end
- index = math.min(index, (barType == "vertical" and h or w) - (symbolSize - 1))
- self:setValue(maxValue / (barType == "vertical" and h or w) * index)
- self:updateDraw()
- end
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- if (barType == "horizontal") then
- self.parent:writeText(obx, oby, bgSymbol:rep(index - 1), self.bgColor, self.fgColor)
- self.parent:writeText(obx + index - 1, oby, symbol:rep(symbolSize), symbolColor, symbolColor)
- self.parent:writeText(obx + index + symbolSize - 1, oby, bgSymbol:rep(w - (index + symbolSize - 1)), self.bgColor, self.fgColor)
- end
-
- if (barType == "vertical") then
- for n = 0, h - 1 do
- if (index == n + 1) then
- for curIndexOffset = 0, math.min(symbolSize - 1, h) do
- self.parent:writeText(obx, oby + n + curIndexOffset, symbol, symbolColor, symbolColor)
- end
- else
- if (n + 1 < index) or (n + 1 > index - 1 + symbolSize) then
- self.parent:writeText(obx, oby + n, bgSymbol, self.bgColor, self.fgColor)
- end
- end
- end
- end
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("ScrollbarBG")
- self.fgColor = self.parent:getTheme("ScrollbarText")
- symbolColor = self.parent:getTheme("ScrollbarSymbolColor")
- self.parent:addEvent("mouse_click", self)
- self.parent:addEvent("mouse_drag", self)
- self.parent:addEvent("mouse_scroll", self)
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Slider.lua b/src/libs/Basalt/objects/Slider.lua
deleted file mode 100644
index 4a71c6a..0000000
--- a/src/libs/Basalt/objects/Slider.lua
+++ /dev/null
@@ -1,186 +0,0 @@
-local Object = require("Object")
-local log = require("basaltLogs")
-local xmlValue = require("utils").getValueFromXML
-
-return function(name)
- local base = Object(name)
- local objectType = "Slider"
-
- base.width = 8
- base.height = 1
- base:setValue(1)
-
- local barType = "horizontal"
- local symbol = " "
- local symbolColor
- local bgSymbol = "\140"
- local maxValue = base.width
- local index = 1
- local symbolSize = 1
-
- local function mouseEvent(self, button, x, y)
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- local w,h = self:getSize()
- if (barType == "horizontal") then
- for _index = 0, w do
- if (obx + _index == x) and (oby <= y) and (oby + h > y) then
- index = math.min(_index + 1, w - (symbolSize - 1))
- self:setValue(maxValue / w * (index))
- self:updateDraw()
- end
- end
- end
- if (barType == "vertical") then
- for _index = 0, h do
- if (oby + _index == y) and (obx <= x) and (obx + w > x) then
- index = math.min(_index + 1, h - (symbolSize - 1))
- self:setValue(maxValue / h * (index))
- self:updateDraw()
- end
- end
- end
- end
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setSymbol = function(self, _symbol)
- symbol = _symbol:sub(1, 1)
- self:updateDraw()
- return self
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("maxValue", data)~=nil)then maxValue = xmlValue("maxValue", data) end
- if(xmlValue("backgroundSymbol", data)~=nil)then bgSymbol = xmlValue("backgroundSymbol", data):sub(1,1) end
- if(xmlValue("barType", data)~=nil)then barType = xmlValue("barType", data):lower() end
- if(xmlValue("symbol", data)~=nil)then symbol = xmlValue("symbol", data):sub(1,1) end
- if(xmlValue("symbolSize", data)~=nil)then self:setSymbolSize(xmlValue("symbolSize", data)) end
- if(xmlValue("symbolColor", data)~=nil)then symbolColor = colors[xmlValue("symbolColor", data)] end
- if(xmlValue("index", data)~=nil)then self:setIndex(xmlValue("index", data)) end
- end,
-
- setIndex = function(self, _index)
- index = _index
- if (index < 1) then
- index = 1
- end
- local w,h = self:getSize()
- index = math.min(index, (barType == "vertical" and h or w) - (symbolSize - 1))
- self:setValue(maxValue / (barType == "vertical" and h or w) * index)
- self:updateDraw()
- return self
- end,
-
- getIndex = function(self)
- return index
- end,
-
- setSymbolSize = function(self, size)
- symbolSize = tonumber(size) or 1
- if (barType == "vertical") then
- self:setValue(index - 1 * (maxValue / (h - (symbolSize - 1))) - (maxValue / (h - (symbolSize - 1))))
- elseif (barType == "horizontal") then
- self:setValue(index - 1 * (maxValue / (w - (symbolSize - 1))) - (maxValue / (w - (symbolSize - 1))))
- end
- self:updateDraw()
- return self
- end;
-
- setMaxValue = function(self, val)
- maxValue = val
- return self
- end;
-
- setBackgroundSymbol = function(self, _bgSymbol)
- bgSymbol = string.sub(_bgSymbol, 1, 1)
- self:updateDraw()
- return self
- end;
-
- setSymbolColor = function(self, col)
- symbolColor = col
- self:updateDraw()
- return self
- end;
-
- setBarType = function(self, _typ)
- barType = _typ:lower()
- self:updateDraw()
- return self
- end;
-
- mouseHandler = function(self, button, x, y)
- if (base.mouseHandler(self, button, x, y)) then
- mouseEvent(self, button, x, y)
- return true
- end
- return false
- end,
-
- dragHandler = function(self, button, x, y)
- if (base.dragHandler(self, button, x, y)) then
- mouseEvent(self, button, x, y)
- return true
- end
- return false
- end,
-
- scrollHandler = function(self, dir, x, y)
- if(base.scrollHandler(self, dir, x, y))then
- local w,h = self:getSize()
- index = index + dir
- if (index < 1) then
- index = 1
- end
- index = math.min(index, (barType == "vertical" and h or w) - (symbolSize - 1))
- self:setValue(maxValue / (barType == "vertical" and h or w) * index)
- self:updateDraw()
- return true
- end
- return false
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- if (barType == "horizontal") then
- self.parent:writeText(obx, oby, bgSymbol:rep(index - 1), self.bgColor, self.fgColor)
- self.parent:writeText(obx + index - 1, oby, symbol:rep(symbolSize), symbolColor, symbolColor)
- self.parent:writeText(obx + index + symbolSize - 1, oby, bgSymbol:rep(w - (index + symbolSize - 1)), self.bgColor, self.fgColor)
- end
-
- if (barType == "vertical") then
- for n = 0, h - 1 do
- if (index == n + 1) then
- for curIndexOffset = 0, math.min(symbolSize - 1, h) do
- self.parent:writeText(obx, oby + n + curIndexOffset, symbol, symbolColor, symbolColor)
- end
- else
- if (n + 1 < index) or (n + 1 > index - 1 + symbolSize) then
- self.parent:writeText(obx, oby + n, bgSymbol, self.bgColor, self.fgColor)
- end
- end
- end
- end
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("SliderBG")
- self.fgColor = self.parent:getTheme("SliderText")
- symbolColor = self.parent:getTheme("SliderSymbolColor")
- self.parent:addEvent("mouse_click", self)
- self.parent:addEvent("mouse_drag", self)
- self.parent:addEvent("mouse_scroll", self)
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Switch.lua b/src/libs/Basalt/objects/Switch.lua
deleted file mode 100644
index 8eb4603..0000000
--- a/src/libs/Basalt/objects/Switch.lua
+++ /dev/null
@@ -1,87 +0,0 @@
-local Object = require("Object")
-local xmlValue = require("utils").getValueFromXML
-
-return function(name)
- local base = Object(name)
- local objectType = "Switch"
-
- base.width = 2
- base.height = 1
- base.bgColor = colors.lightGray
- base.fgColor = colors.gray
- base:setValue(false)
- base:setZIndex(5)
-
- local bgSymbol = colors.black
- local inactiveBG = colors.red
- local activeBG = colors.green
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setSymbolColor = function(self, symbolColor)
- bgSymbol = symbolColor
- self:updateDraw()
- return self
- end;
-
- setActiveBackground = function(self, bgcol)
- activeBG = bgcol
- self:updateDraw()
- return self
- end;
-
- setInactiveBackground = function(self, bgcol)
- inactiveBG = bgcol
- self:updateDraw()
- return self
- end;
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(xmlValue("inactiveBG", data)~=nil)then inactiveBG = colors[xmlValue("inactiveBG", data)] end
- if(xmlValue("activeBG", data)~=nil)then activeBG = colors[xmlValue("activeBG", data)] end
- if(xmlValue("symbolColor", data)~=nil)then bgSymbol = colors[xmlValue("symbolColor", data)] end
-
- end,
-
- mouseHandler = function(self, button, x, y)
- if (base.mouseHandler(self, button, x, y)) then
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- self:setValue(not self:getValue())
- self:updateDraw()
- return true
- end
- end;
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- self.parent:drawBackgroundBox(obx, oby, w, h, self.bgColor)
- if(self:getValue())then
- self.parent:drawBackgroundBox(obx, oby, 1, h, activeBG)
- self.parent:drawBackgroundBox(obx+1, oby, 1, h, bgSymbol)
- else
- self.parent:drawBackgroundBox(obx, oby, 1, h, bgSymbol)
- self.parent:drawBackgroundBox(obx+1, oby, 1, h, inactiveBG)
- end
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("SwitchBG")
- self.fgColor = self.parent:getTheme("SwitchText")
- bgSymbol = self.parent:getTheme("SwitchBGSymbol")
- inactiveBG = self.parent:getTheme("SwitchInactive")
- activeBG = self.parent:getTheme("SwitchActive")
- self.parent:addEvent("mouse_click", self)
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Textfield.lua b/src/libs/Basalt/objects/Textfield.lua
deleted file mode 100644
index 2516e01..0000000
--- a/src/libs/Basalt/objects/Textfield.lua
+++ /dev/null
@@ -1,620 +0,0 @@
-local Object = require("Object")
-local tHex = require("tHex")
-local log = require("basaltLogs")
-local xmlValue = require("utils").getValueFromXML
-
-local rep = string.rep
-
-return function(name)
- local base = Object(name)
- local objectType = "Textfield"
- local hIndex, wIndex, textX, textY = 1, 1, 1, 1
-
- local lines = { "" }
- local bgLines = { "" }
- local fgLines = { "" }
- local keyWords = { }
- local rules = { }
-
- base.width = 30
- base.height = 12
- base:setZIndex(5)
-
- local function stringGetPositions(str, word)
- local pos = {}
- if(str:len()>0)then
- for w in string.gmatch(str, word)do
- local s, e = string.find(str, w)
- if(s~=nil)and(e~=nil)then
- table.insert(pos,s)
- table.insert(pos,e)
- local startL = string.sub(str, 1, (s-1))
- local endL = string.sub(str, e+1, str:len())
- str = startL..(":"):rep(w:len())..endL
- end
- end
- end
- return pos
- end
-
- local function updateColors(self, l)
- l = l or textY
- local fgLine = tHex[self.fgColor]:rep(fgLines[l]:len())
- local bgLine = tHex[self.bgColor]:rep(bgLines[l]:len())
- for k,v in pairs(rules)do
- local pos = stringGetPositions(lines[l], v[1])
- if(#pos>0)then
- for x=1,#pos/2 do
- local xP = x*2 - 1
- if(v[2]~=nil)then
- fgLine = fgLine:sub(1, pos[xP]-1)..tHex[v[2]]:rep(pos[xP+1]-(pos[xP]-1))..fgLine:sub(pos[xP+1]+1, fgLine:len())
- end
- if(v[3]~=nil)then
- bgLine = bgLine:sub(1, pos[xP]-1)..tHex[v[3]]:rep(pos[xP+1]-(pos[xP]-1))..bgLine:sub(pos[xP+1]+1, bgLine:len())
- end
- end
- end
- end
- for k,v in pairs(keyWords)do
- for _,b in pairs(v)do
- local pos = stringGetPositions(lines[l], b)
- if(#pos>0)then
- for x=1,#pos/2 do
- local xP = x*2 - 1
- fgLine = fgLine:sub(1, pos[xP]-1)..tHex[k]:rep(pos[xP+1]-(pos[xP]-1))..fgLine:sub(pos[xP+1]+1, fgLine:len())
- end
- end
- end
- end
- fgLines[l] = fgLine
- bgLines[l] = bgLine
- self:updateDraw()
- end
-
- local function updateAllColors(self)
- for n=1,#lines do
- updateColors(self, n)
- end
- end
-
- local object = {
- getType = function(self)
- return objectType
- end;
-
- setBackground = function(self, bg)
- base.setBackground(self, bg)
- updateAllColors(self)
- return self
- end,
-
- setForeground = function(self, fg)
- base.setForeground(self, fg)
- updateAllColors(self)
- return self
- end,
-
- setValuesByXMLData = function(self, data)
- base.setValuesByXMLData(self, data)
- if(data["lines"]~=nil)then
- local l = data["lines"]["line"]
- if(l.properties~=nil)then l = {l} end
- for k,v in pairs(l)do
- self:addLine(v:value())
- end
- end
- if(data["keywords"]~=nil)then
- for k,v in pairs(data["keywords"])do
- if(colors[k]~=nil)then
- local entry = v
- if(entry.properties~=nil)then entry = {entry} end
- local tab = {}
- for a,b in pairs(entry)do
- local keywordList = b["keyword"]
- if(b["keyword"].properties~=nil)then keywordList = {b["keyword"]} end
- for c,d in pairs(keywordList)do
- table.insert(tab, d:value())
- end
- end
- self:addKeywords(colors[k], tab)
- end
- end
- end
- if(data["rules"]~=nil)then
- if(data["rules"]["rule"]~=nil)then
- local tab = data["rules"]["rule"]
- if(data["rules"]["rule"].properties~=nil)then tab = {data["rules"]["rule"]} end
- for k,v in pairs(tab)do
-
- if(xmlValue("pattern", v)~=nil)then
- self:addRule(xmlValue("pattern", v), colors[xmlValue("fg", v)], colors[xmlValue("bg", v)])
- end
- end
- end
- end
- end,
-
- getLines = function(self)
- return lines
- end;
-
- getLine = function(self, index)
- return lines[index]
- end;
-
- editLine = function(self, index, text)
- lines[index] = text or lines[index]
- self:updateDraw()
- return self
- end;
-
- clear = function(self)
- lines = {""}
- bgLines = {""}
- fgLines = {""}
- hIndex, wIndex, textX, textY = 1, 1, 1, 1
- self:updateDraw()
- return self
- end,
-
- addLine = function(self, text, index)
- if(text~=nil)then
- if(#lines==1)and(lines[1]=="")then
- lines[1] = text
- bgLines[1] = tHex[self.bgColor]:rep(text:len())
- fgLines[1] = tHex[self.fgColor]:rep(text:len())
- return self
- end
- if (index ~= nil) then
- table.insert(lines, index, text)
- table.insert(bgLines, index, tHex[self.bgColor]:rep(text:len()))
- table.insert(fgLines, tHex[self.fgColor]:rep(text:len()))
- else
- table.insert(lines, text)
- table.insert(bgLines, tHex[self.bgColor]:rep(text:len()))
- table.insert(fgLines, tHex[self.fgColor]:rep(text:len()))
- end
- end
- self:updateDraw()
- return self
- end;
-
- addKeywords = function(self, color, tab)
- if(keyWords[color]==nil)then
- keyWords[color] = {}
- end
- for k,v in pairs(tab)do
- table.insert(keyWords[color], v)
- end
- self:updateDraw()
- return self
- end;
-
- addRule = function(self, rule, fg, bg)
- table.insert(rules, {rule, fg, bg})
- self:updateDraw()
- return self
- end;
-
- editRule = function(self, rule, fg, bg)
- for k,v in pairs(rules)do
- if(v[1]==rule)then
- rules[k][2] = fg
- rules[k][3] = bg
- end
- end
- self:updateDraw()
- return self
- end;
-
- removeRule = function(self, rule)
- for k,v in pairs(rules)do
- if(v[1]==rule)then
- table.remove(rules, k)
- end
- end
- self:updateDraw()
- return self
- end;
-
- setKeywords = function(self, color, tab)
- keyWords[color] = tab
- self:updateDraw()
- return self
- end;
-
- removeLine = function(self, index)
- table.remove(lines, index or #lines)
- if (#lines <= 0) then
- table.insert(lines, "")
- end
- self:updateDraw()
- return self
- end;
-
- getTextCursor = function(self)
- return textX, textY
- end;
-
- getFocusHandler = function(self)
- base.getFocusHandler(self)
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- if (self.parent ~= nil) then
- self.parent:setCursor(true, obx + textX - wIndex, oby + textY - hIndex, self.fgColor)
- end
- end
- end;
-
- loseFocusHandler = function(self)
- base.loseFocusHandler(self)
- if (self.parent ~= nil) then
- self.parent:setCursor(false)
- end
- end;
-
- keyHandler = function(self, key)
- if (base.keyHandler(self, event, key)) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- if (key == keys.backspace) then
- -- on backspace
- if (lines[textY] == "") then
- if (textY > 1) then
- table.remove(lines, textY)
- table.remove(fgLines, textY)
- table.remove(bgLines, textY)
- textX = lines[textY - 1]:len() + 1
- wIndex = textX - w + 1
- if (wIndex < 1) then
- wIndex = 1
- end
- textY = textY - 1
- end
- elseif (textX <= 1) then
- if (textY > 1) then
- textX = lines[textY - 1]:len() + 1
- wIndex = textX - w + 1
- if (wIndex < 1) then
- wIndex = 1
- end
- lines[textY - 1] = lines[textY - 1] .. lines[textY]
- fgLines[textY - 1] = fgLines[textY - 1] .. fgLines[textY]
- bgLines[textY - 1] = bgLines[textY - 1] .. bgLines[textY]
- table.remove(lines, textY)
- table.remove(fgLines, textY)
- table.remove(bgLines, textY)
- textY = textY - 1
- end
- else
- lines[textY] = lines[textY]:sub(1, textX - 2) .. lines[textY]:sub(textX, lines[textY]:len())
- fgLines[textY] = fgLines[textY]:sub(1, textX - 2) .. fgLines[textY]:sub(textX, fgLines[textY]:len())
- bgLines[textY] = bgLines[textY]:sub(1, textX - 2) .. bgLines[textY]:sub(textX, bgLines[textY]:len())
- if (textX > 1) then
- textX = textX - 1
- end
- if (wIndex > 1) then
- if (textX < wIndex) then
- wIndex = wIndex - 1
- end
- end
- end
- if (textY < hIndex) then
- hIndex = hIndex - 1
- end
- updateColors(self)
- self:setValue("")
- end
-
- if (key == keys.delete) then
- -- on delete
- if (textX > lines[textY]:len()) then
- if (lines[textY + 1] ~= nil) then
- lines[textY] = lines[textY] .. lines[textY + 1]
- table.remove(lines, textY + 1)
- table.remove(bgLines, textY + 1)
- table.remove(fgLines, textY + 1)
- end
- else
- lines[textY] = lines[textY]:sub(1, textX - 1) .. lines[textY]:sub(textX + 1, lines[textY]:len())
- fgLines[textY] = fgLines[textY]:sub(1, textX - 1) .. fgLines[textY]:sub(textX + 1, fgLines[textY]:len())
- bgLines[textY] = bgLines[textY]:sub(1, textX - 1) .. bgLines[textY]:sub(textX + 1, bgLines[textY]:len())
- end
- updateColors(self)
- end
-
- if (key == keys.enter) then
- -- on enter
- table.insert(lines, textY + 1, lines[textY]:sub(textX, lines[textY]:len()))
- table.insert(fgLines, textY + 1, fgLines[textY]:sub(textX, fgLines[textY]:len()))
- table.insert(bgLines, textY + 1, bgLines[textY]:sub(textX, bgLines[textY]:len()))
- lines[textY] = lines[textY]:sub(1, textX - 1)
- fgLines[textY] = fgLines[textY]:sub(1, textX - 1)
- bgLines[textY] = bgLines[textY]:sub(1, textX - 1)
- textY = textY + 1
- textX = 1
- wIndex = 1
- if (textY - hIndex >= h) then
- hIndex = hIndex + 1
- end
- self:setValue("")
- end
-
- if (key == keys.up) then
- -- arrow up
- if (textY > 1) then
- textY = textY - 1
- if (textX > lines[textY]:len() + 1) then
- textX = lines[textY]:len() + 1
- end
- if (wIndex > 1) then
- if (textX < wIndex) then
- wIndex = textX - w + 1
- if (wIndex < 1) then
- wIndex = 1
- end
- end
- end
- if (hIndex > 1) then
- if (textY < hIndex) then
- hIndex = hIndex - 1
- end
- end
- end
- end
- if (key == keys.down) then
- -- arrow down
- if (textY < #lines) then
- textY = textY + 1
- if (textX > lines[textY]:len() + 1) then
- textX = lines[textY]:len() + 1
- end
- if (wIndex > 1) then
- if (textX < wIndex) then
- wIndex = textX - w + 1
- if (wIndex < 1) then
- wIndex = 1
- end
- end
- end
- if (textY >= hIndex + h) then
- hIndex = hIndex + 1
- end
- end
- end
- if (key == keys.right) then
- -- arrow right
- textX = textX + 1
- if (textY < #lines) then
- if (textX > lines[textY]:len() + 1) then
- textX = 1
- textY = textY + 1
- end
- elseif (textX > lines[textY]:len()) then
- textX = lines[textY]:len() + 1
- end
- if (textX < 1) then
- textX = 1
- end
- if (textX < wIndex) or (textX >= w + wIndex) then
- wIndex = textX - w + 1
- end
- if (wIndex < 1) then
- wIndex = 1
- end
-
- end
- if (key == keys.left) then
- -- arrow left
- textX = textX - 1
- if (textX >= 1) then
- if (textX < wIndex) or (textX >= w + wIndex) then
- wIndex = textX
- end
- end
- if (textY > 1) then
- if (textX < 1) then
- textY = textY - 1
- textX = lines[textY]:len() + 1
- wIndex = textX - w + 1
- end
- end
- if (textX < 1) then
- textX = 1
- end
- if (wIndex < 1) then
- wIndex = 1
- end
- end
-
- local cursorX = (textX <= lines[textY]:len() and textX - 1 or lines[textY]:len()) - (wIndex - 1)
- if (cursorX > self.x + w - 1) then
- cursorX = self.x + w - 1
- end
- local cursorY = (textY - hIndex < h and textY - hIndex or textY - hIndex - 1)
- if (cursorX < 1) then
- cursorX = 0
- end
- self.parent:setCursor(true, obx + cursorX, oby + cursorY, self.fgColor)
- self:updateDraw()
- return true
- end
- end,
-
- charHandler = function(self, char)
- if(base.charHandler(self, char))then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- lines[textY] = lines[textY]:sub(1, textX - 1) .. char .. lines[textY]:sub(textX, lines[textY]:len())
- fgLines[textY] = fgLines[textY]:sub(1, textX - 1) .. tHex[self.fgColor] .. fgLines[textY]:sub(textX, fgLines[textY]:len())
- bgLines[textY] = bgLines[textY]:sub(1, textX - 1) .. tHex[self.bgColor] .. bgLines[textY]:sub(textX, bgLines[textY]:len())
- textX = textX + 1
- if (textX >= w + wIndex) then
- wIndex = wIndex + 1
- end
- updateColors(self)
- self:setValue("")
-
- local cursorX = (textX <= lines[textY]:len() and textX - 1 or lines[textY]:len()) - (wIndex - 1)
- if (cursorX > self.x + w - 1) then
- cursorX = self.x + w - 1
- end
- local cursorY = (textY - hIndex < h and textY - hIndex or textY - hIndex - 1)
- if (cursorX < 1) then
- cursorX = 0
- end
- self.parent:setCursor(true, obx + cursorX, oby + cursorY, self.fgColor)
- self:updateDraw()
- return true
- end
- end,
-
- dragHandler = function(self, button, x, y)
- if (base.dragHandler(self, button, x, y)) then
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- local anchx, anchy = self:getAnchorPosition()
- local w,h = self:getSize()
- if (lines[y - oby + hIndex] ~= nil) then
- if(anchx+w > anchx + x - (obx+1)+ wIndex)and(anchx < anchx + x - obx+ wIndex)then
- textX = x - obx + wIndex
- textY = y - oby + hIndex
- if (textX > lines[textY]:len()) then
- textX = lines[textY]:len() + 1
- end
- if (textX < wIndex) then
- wIndex = textX - 1
- if (wIndex < 1) then
- wIndex = 1
- end
- end
- if (self.parent ~= nil) then
- self.parent:setCursor(true, anchx + textX - wIndex, anchy + textY - hIndex, self.fgColor)
- end
- self:updateDraw()
- end
- end
- return true
- end
- end,
-
- scrollHandler = function(self, dir, x, y)
- if (base.scrollHandler(self, dir, x, y)) then
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- local anchx, anchy = self:getAnchorPosition()
- local w,h = self:getSize()
- hIndex = hIndex + dir
- if (hIndex > #lines - (h - 1)) then
- hIndex = #lines - (h - 1)
- end
-
- if (hIndex < 1) then
- hIndex = 1
- end
-
- if (self.parent ~= nil) then
- if (obx + textX - wIndex >= obx and obx + textX - wIndex < obx + w) and (oby + textY - hIndex >= oby and oby + textY - hIndex < oby + h) then
- self.parent:setCursor(true, anchx + textX - wIndex, anchy + textY - hIndex, self.fgColor)
- else
- self.parent:setCursor(false)
- end
- end
- self:updateDraw()
- return true
- end
- end,
-
- mouseHandler = function(self, button, x, y)
- if (base.mouseHandler(self, button, x, y)) then
- local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
- local anchx, anchy = self:getAnchorPosition()
- if (lines[y - oby + hIndex] ~= nil) then
- textX = x - obx + wIndex
- textY = y - oby + hIndex
- if (textX > lines[textY]:len()) then
- textX = lines[textY]:len() + 1
- end
- if (textX < wIndex) then
- wIndex = textX - 1
- if (wIndex < 1) then
- wIndex = 1
- end
- end
- end
- if (self.parent ~= nil) then
- self.parent:setCursor(true, anchx + textX - wIndex, anchy + textY - hIndex, self.fgColor)
- end
- return true
- end
- end,
-
- eventHandler = function(self, event, paste, p2, p3, p4)
- if(base.eventHandler(self, event, paste, p2, p3, p4))then
- if(event=="paste")then
- if(self:isFocused())then
- local w, h = self:getSize()
- lines[textY] = lines[textY]:sub(1, textX - 1) .. paste .. lines[textY]:sub(textX, lines[textY]:len())
- fgLines[textY] = fgLines[textY]:sub(1, textX - 1) .. tHex[self.fgColor]:rep(paste:len()) .. fgLines[textY]:sub(textX, fgLines[textY]:len())
- bgLines[textY] = bgLines[textY]:sub(1, textX - 1) .. tHex[self.bgColor]:rep(paste:len()) .. bgLines[textY]:sub(textX, bgLines[textY]:len())
- textX = textX + paste:len()
- if (textX >= w + wIndex) then
- wIndex = (textX+1)-w
- end
- local anchx, anchy = self:getAnchorPosition()
- self.parent:setCursor(true, anchx + textX - wIndex, anchy + textY - hIndex, self.fgColor)
- updateColors(self)
- self:updateDraw()
- end
- end
- end
- end,
-
- draw = function(self)
- if (base.draw(self)) then
- if (self.parent ~= nil) then
- local obx, oby = self:getAnchorPosition()
- local w,h = self:getSize()
- for n = 1, h do
- local text = ""
- local bg = ""
- local fg = ""
- if (lines[n + hIndex - 1] ~= nil) then
- text = lines[n + hIndex - 1]
- fg = fgLines[n + hIndex - 1]
- bg = bgLines[n + hIndex - 1]
- end
- text = text:sub(wIndex, w + wIndex - 1)
- bg = bg:sub(wIndex, w + wIndex - 1)
- fg = fg:sub(wIndex, w + wIndex - 1)
- local space = w - text:len()
- if (space < 0) then
- space = 0
- end
- text = text .. rep(self.bgSymbol, space)
- bg = bg .. rep(tHex[self.bgColor], space)
- fg = fg .. rep(tHex[self.fgColor], space)
- self.parent:setText(obx, oby + n - 1, text)
- self.parent:setBG(obx, oby + n - 1, bg)
- self.parent:setFG(obx, oby + n - 1, fg)
- end
- if(self:isFocused())then
- local anchx, anchy = self:getAnchorPosition()
- self.parent:setCursor(true, anchx + textX - wIndex, anchy + textY - hIndex, self.fgColor)
- end
- end
- end
- end,
-
- init = function(self)
- self.bgColor = self.parent:getTheme("TextfieldBG")
- self.fgColor = self.parent:getTheme("TextfieldText")
- self.parent:addEvent("mouse_click", self)
- self.parent:addEvent("mouse_scroll", self)
- self.parent:addEvent("mouse_drag", self)
- self.parent:addEvent("key", self)
- self.parent:addEvent("char", self)
- self.parent:addEvent("other_event", self)
- end,
- }
-
- return setmetatable(object, base)
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Thread.lua b/src/libs/Basalt/objects/Thread.lua
deleted file mode 100644
index 8dd3f6f..0000000
--- a/src/libs/Basalt/objects/Thread.lua
+++ /dev/null
@@ -1,99 +0,0 @@
-local xmlValue = require("utils").getValueFromXML
-
-return function(name)
- local object
- local objectType = "Thread"
-
- local func
- local cRoutine
- local isActive = false
-
- local generateXMLEventFunction = function(self, str)
- if(str:sub(1,1)=="#")then
- local o = self:getBaseFrame():getDeepObject(str:sub(2,str:len()))
- if(o~=nil)and(o.internalObjetCall~=nil)then
- return (function()o:internalObjetCall()end)
- end
- else
- return self:getBaseFrame():getVariable(str)
- end
- return self
- end
-
- object = {
- name = name,
- getType = function(self)
- return objectType
- end;
- getZIndex = function(self)
- return 1
- end;
- getName = function(self)
- return self.name
- end;
-
- getBaseFrame = function(self)
- if(self.parent~=nil)then
- return self.parent:getBaseFrame()
- end
- return self
- end;
-
- setValuesByXMLData = function(self, data)
- local f
- if(xmlValue("thread", data)~=nil)then f = generateXMLEventFunction(self, xmlValue("thread", data)) end
- if(xmlValue("start", data)~=nil)then if(xmlValue("start", data))and(f~=nil)then self:start(f) end end
- return self
- end,
-
- start = function(self, f)
- if (f == nil) then
- error("Function provided to thread is nil")
- end
- func = f
- cRoutine = coroutine.create(func)
- isActive = true
- local ok, result = coroutine.resume(cRoutine)
- if not (ok) then
- if (result ~= "Terminated") then
- error("Thread Error Occurred - " .. result)
- end
- end
- self.parent:addEvent("other_event", self)
- return self
- end;
-
- getStatus = function(self, f)
- if (cRoutine ~= nil) then
- return coroutine.status(cRoutine)
- end
- return nil
- end;
-
- stop = function(self, f)
- isActive = false
- self.parent:removeEvent("other_event", self)
- return self
- end;
-
- eventHandler = function(self, event, p1, p2, p3)
- if (isActive) then
- if (coroutine.status(cRoutine) ~= "dead") then
- local ok, result = coroutine.resume(cRoutine, event, p1, p2, p3)
- if not (ok) then
- if (result ~= "Terminated") then
- error("Thread Error Occurred - " .. result)
- end
- end
- else
- isActive = false
- end
- end
- end;
-
- }
-
- object.__index = object
-
- return object
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/objects/Timer.lua b/src/libs/Basalt/objects/Timer.lua
deleted file mode 100644
index 3e0c2a6..0000000
--- a/src/libs/Basalt/objects/Timer.lua
+++ /dev/null
@@ -1,116 +0,0 @@
-local basaltEvent = require("basaltEvent")
-local xmlValue = require("utils").getValueFromXML
-
-return function(name)
- local objectType = "Timer"
-
- local timer = 0
- local savedRepeats = 0
- local repeats = 0
- local timerObj
- local eventSystem = basaltEvent()
- local timerIsActive = false
-
- local generateXMLEventFunction = function(self, func, val)
- local createF = function(str)
- if(str:sub(1,1)=="#")then
- local o = self:getBaseFrame():getDeepObject(str:sub(2,str:len()))
- if(o~=nil)and(o.internalObjetCall~=nil)then
- func(self,function()o:internalObjetCall()end)
- end
- else
- func(self,self:getBaseFrame():getVariable(str))
- end
- end
- if(type(val)=="string")then
- createF(val)
- elseif(type(val)=="table")then
- for k,v in pairs(val)do
- createF(v)
- end
- end
- return self
- end
-
- local object = {
- name = name,
- getType = function(self)
- return objectType
- end;
-
- setValuesByXMLData = function(self, data)
- if(xmlValue("time", data)~=nil)then timer = xmlValue("time", data) end
- if(xmlValue("repeat", data)~=nil)then savedRepeats = xmlValue("repeat", data) end
- if(xmlValue("start", data)~=nil)then if(xmlValue("start", data))then self:start() end end
- if(xmlValue("onCall", data)~=nil)then generateXMLEventFunction(self, self.onCall, xmlValue("onCall", data)) end
- return self
- end,
-
- getBaseFrame = function(self)
- if(self.parent~=nil)then
- return self.parent:getBaseFrame()
- end
- return self
- end;
-
- getZIndex = function(self)
- return 1
- end;
-
- getName = function(self)
- return self.name
- end;
-
- setTime = function(self, _timer, _repeats)
- timer = _timer or 0
- savedRepeats = _repeats or 1
- return self
- end;
-
- start = function(self)
- if(timerIsActive)then
- os.cancelTimer(timerObj)
- end
- repeats = savedRepeats
- timerObj = os.startTimer(timer)
- timerIsActive = true
- self.parent:addEvent("other_event", self)
- return self
- end;
-
- isActive = function(self)
- return timerIsActive
- end;
-
- cancel = function(self)
- if (timerObj ~= nil) then
- os.cancelTimer(timerObj)
- end
- timerIsActive = false
- self.parent:removeEvent("other_event", self)
- return self
- end;
-
- onCall = function(self, func)
- eventSystem:registerEvent("timed_event", func)
- return self
- end;
-
- eventHandler = function(self, event, tObj)
- if event == "timer" and tObj == timerObj and timerIsActive then
- eventSystem:sendEvent("timed_event", self)
- if (repeats >= 1) then
- repeats = repeats - 1
- if (repeats >= 1) then
- timerObj = os.startTimer(timer)
- end
- elseif (repeats == -1) then
- timerObj = os.startTimer(timer)
- end
- end
- end;
- }
- object.__index = object
-
- return object
-end
\ No newline at end of file
diff --git a/src/libs/Basalt/theme.lua b/src/libs/Basalt/theme.lua
deleted file mode 100644
index 39df3d2..0000000
--- a/src/libs/Basalt/theme.lua
+++ /dev/null
@@ -1,46 +0,0 @@
-return { -- The default main theme for basalt!
- Breakline = colors.white,
- BasaltBG = colors.lightGray,
- BasaltText = colors.black,
- FrameBG = colors.gray,
- FrameText = colors.black,
- ButtonBG = colors.gray,
- ButtonText = colors.black,
- CheckboxBG = colors.gray,
- CheckboxText = colors.black,
- InputBG = colors.gray,
- InputText = colors.black,
- TextfieldBG = colors.gray,
- TextfieldText = colors.black,
- ListBG = colors.gray,
- ListText = colors.black,
- MenubarBG = colors.gray,
- MenubarText = colors.black,
- DropdownBG = colors.gray,
- DropdownText = colors.black,
- RadioBG = colors.gray,
- RadioText = colors.black,
- SelectionBG = colors.black,
- SelectionText = colors.lightGray,
- GraphicBG = colors.black,
- ImageBG = colors.black,
- PaneBG = colors.black,
- ProgramBG = colors.black,
- ProgressbarBG = colors.gray,
- ProgressbarText = colors.black,
- ProgressbarActiveBG = colors.black,
- ScrollbarBG = colors.lightGray,
- ScrollbarText = colors.gray,
- ScrollbarSymbolColor = colors.black,
- SliderBG = false,
- SliderText = colors.gray,
- SliderSymbolColor = colors.black,
- SwitchBG = colors.lightGray,
- SwitchText = colors.gray,
- SwitchBGSymbol = colors.black,
- SwitchInactive = colors.red,
- SwitchActive = colors.green,
- LabelBG = false,
- LabelText = colors.black
-
-}
\ No newline at end of file
diff --git a/src/libs/basalt.lua b/src/libs/basalt.lua
new file mode 100644
index 0000000..dd9b886
--- /dev/null
+++ b/src/libs/basalt.lua
@@ -0,0 +1,3075 @@
+local aa={}local ba=true;local ca=require
+local da=function(ab)
+for bb,cb in pairs(aa)do
+if(type(cb)=="table")then for db,_c in pairs(cb)do if(db==ab)then
+return _c()end end else if(bb==ab)then return cb()end end end;return ca(ab)end
+local _b=function(ab)if(ab~=nil)then return aa[ab]end;return aa end
+aa["module"]=function(...)return
+function(ab)local bb,cb=pcall(da,ab)return bb and cb or nil end end
+aa["theme"]=function(...)
+return
+{BasaltBG=colors.lightGray,BasaltText=colors.black,FrameBG=colors.gray,FrameText=colors.black,ButtonBG=colors.gray,ButtonText=colors.black,CheckboxBG=colors.gray,CheckboxText=colors.black,InputBG=colors.gray,InputText=colors.black,TextfieldBG=colors.gray,TextfieldText=colors.black,ListBG=colors.gray,ListText=colors.black,MenubarBG=colors.gray,MenubarText=colors.black,DropdownBG=colors.gray,DropdownText=colors.black,RadioBG=colors.gray,RadioText=colors.black,SelectionBG=colors.black,SelectionText=colors.lightGray,GraphicBG=colors.black,ImageBG=colors.black,PaneBG=colors.black,ProgramBG=colors.black,ProgressbarBG=colors.gray,ProgressbarText=colors.black,ProgressbarActiveBG=colors.black,ScrollbarBG=colors.lightGray,ScrollbarText=colors.gray,ScrollbarSymbolColor=colors.black,SliderBG=false,SliderText=colors.gray,SliderSymbolColor=colors.black,SwitchBG=colors.lightGray,SwitchText=colors.gray,SwitchBGSymbol=colors.black,SwitchInactive=colors.red,SwitchActive=colors.green,LabelBG=false,LabelText=colors.black,GraphBG=colors.gray,GraphText=colors.black}end
+aa["main"]=function(...)local ab=da("basaltEvent")()local bb=da("Frame")
+local cb=da("theme")local db=da("utils")local _c=da("basaltLogs")local ac=db.uuid
+local bc=db.createText;local cc=db.tableCount;local dc=300;local _d=50;local ad=term.current()local bd="1.6.4"local cd=fs.getDir(
+table.pack(...)[2]or"")
+local dd,__a,a_a,b_a,c_a,d_a={},{},{},{},{},{}local _aa,aaa,baa,caa;local daa={}if
+not term.isColor or not term.isColor()then
+error('Basalt requires an advanced (golden) computer to run.',0)end;local _ba={}
+for dab,_bb in
+pairs(colors)do if(type(_bb)=="number")then
+_ba[dab]={ad.getPaletteColor(_bb)}end end
+local function aba()caa=false;ad.clear()ad.setCursorPos(1,1)
+for dab,_bb in pairs(colors)do if(type(_bb)==
+"number")then
+ad.setPaletteColor(_bb,colors.packRGB(table.unpack(_ba[dab])))end end end
+local function bba(dab)ad.clear()ad.setBackgroundColor(colors.black)
+ad.setTextColor(colors.red)local _bb,abb=ad.getSize()if(daa.logging)then _c(dab,"Error")end;local bbb=bc(
+"Basalt error: "..dab,_bb)local cbb=1;for dbb,_cb in pairs(bbb)do
+ad.setCursorPos(1,cbb)ad.write(_cb)cbb=cbb+1 end;ad.setCursorPos(1,
+cbb+1)caa=false end
+local function cba(dab)
+assert(dab~="function","Schedule needs a function in order to work!")return
+function(...)local _bb=coroutine.create(dab)
+local abb,bbb=coroutine.resume(_bb,...)if(abb)then table.insert(d_a,_bb)else bba(bbb)end end end;local dba=function(dab,_bb)c_a[dab]=_bb end
+local _ca=function(dab)return c_a[dab]end;local aca=function(dab)cb=dab end
+local bca=function(dab)return cb[dab]end
+local cca={getDynamicValueEventSetting=function()return daa.dynamicValueEvents end,getMainFrame=function()return _aa end,setVariable=dba,getVariable=_ca,getTheme=bca,setMainFrame=function(dab)
+_aa=dab end,getActiveFrame=function()return aaa end,setActiveFrame=function(dab)aaa=dab end,getFocusedObject=function()return baa end,setFocusedObject=function(dab)baa=dab end,getMonitorFrame=function(dab)return
+a_a[dab]or b_a[dab][1]end,setMonitorFrame=function(dab,_bb,abb)if(_aa==_bb)then
+_aa=nil end
+if(abb)then b_a[dab]={_bb,sides}else a_a[dab]=_bb end;if(_bb==nil)then b_a[dab]=nil end end,getBaseTerm=function()return
+ad end,schedule=cba,stop=aba,newFrame=bb,getDirectory=function()return cd end}
+local function dca(dab,_bb,abb,bbb,cbb)
+if(#d_a>0)then local dbb={}
+for n=1,#d_a do
+if(d_a[n]~=nil)then
+if
+(coroutine.status(d_a[n])=="suspended")then
+local _cb,acb=coroutine.resume(d_a[n],dab,_bb,abb,bbb,cbb)if not(_cb)then bba(acb)end else table.insert(dbb,n)end end end
+for n=1,#dbb do table.remove(d_a,dbb[n]- (n-1))end end end
+local function _da()if(caa==false)then return end;if(_aa~=nil)then _aa:draw()
+_aa:updateTerm()end
+for dab,_bb in pairs(a_a)do _bb:draw()_bb:updateTerm()end
+for dab,_bb in pairs(b_a)do _bb[1]:draw()_bb[1]:updateTerm()end end;local ada,bda,cda=nil,nil,nil;local dda=nil
+local function __b(dab,_bb,abb,bbb)ada,bda,cda=_bb,abb,bbb;if(dda==nil)then
+dda=os.startTimer(dc/1000)end end
+local function a_b()dda=nil;_aa:hoverHandler(bda,cda,ada)aaa=_aa end;local b_b,c_b,d_b=nil,nil,nil;local _ab=nil;local function aab()_ab=nil;_aa:dragHandler(b_b,c_b,d_b)
+aaa=_aa end;local function bab(dab,_bb,abb,bbb)b_b,c_b,d_b=_bb,abb,bbb
+if(_d<50)then aab()else if(_ab==nil)then _ab=os.startTimer(
+_d/1000)end end end
+local function cab(dab,...)
+local _bb={...}
+if(ab:sendEvent("basaltEventCycle",dab,...)==false)then return end;if(dab=="terminate")then daa.stop()end
+if(_aa~=nil)then
+local abb={mouse_click=_aa.mouseHandler,mouse_up=_aa.mouseUpHandler,mouse_scroll=_aa.scrollHandler,mouse_drag=bab,mouse_move=__b}local bbb=abb[dab]if(bbb~=nil)then bbb(_aa,...)_da()return end end
+if(dab=="monitor_touch")then if(a_a[_bb[1]]~=nil)then
+a_a[_bb[1]]:mouseHandler(1,_bb[2],_bb[3],true)aaa=a_a[_bb[1]]end
+if
+(cc(b_a)>0)then for abb,bbb in pairs(b_a)do
+bbb[1]:mouseHandler(1,_bb[2],_bb[3],true,_bb[1])end end;_da()return end
+if(aaa~=nil)then
+local abb={char=aaa.charHandler,key=aaa.keyHandler,key_up=aaa.keyUpHandler}local bbb=abb[dab]
+if(bbb~=nil)then if(dab=="key")then dd[_bb[1]]=true elseif(dab=="key_up")then
+dd[_bb[1]]=false end;bbb(aaa,...)_da()return end end
+if(dab=="timer")and(_bb[1]==dda)then a_b()elseif
+(dab=="timer")and(_bb[1]==_ab)then aab()else
+for abb,bbb in pairs(__a)do bbb:eventHandler(dab,...)end end;dca(dab,...)_da()end
+daa={logging=false,dynamicValueEvents=false,setTheme=aca,getTheme=bca,drawFrames=_da,getVersion=function()return bd end,setVariable=dba,getVariable=_ca,setBaseTerm=function(dab)ad=dab end,log=function(...)_c(...)end,setMouseMoveThrottle=function(dab)
+if
+(_HOST:find("CraftOS%-PC"))then if(config.get("mouse_move_throttle")~=10)then
+config.set("mouse_move_throttle",10)end
+if(dab<100)then dc=100 else dc=dab end;return true end;return false end,setMouseDragThrottle=function(dab)if(
+dab<=0)then _d=0 else _ab=nil;_d=dab end end,autoUpdate=function(dab)
+caa=dab;if(dab==nil)then caa=true end;local function _bb()_da()while caa do
+cab(os.pullEventRaw())end end
+local abb,bbb=xpcall(_bb,debug.traceback)if not(abb)then bba(bbb)return end end,update=function(dab,...)if(
+dab~=nil)then local _bb,abb=xpcall(cab,debug.traceback,dab,...)if not(_bb)then
+bba(abb)return end end end,stop=aba,stopUpdate=aba,isKeyDown=function(dab)if(
+dd[dab]==nil)then return false end;return dd[dab]end,getFrame=function(dab)for _bb,abb in
+pairs(__a)do if(abb.name==dab)then return abb end end end,getActiveFrame=function()return
+aaa end,setActiveFrame=function(dab)
+if(dab:getType()=="Frame")then aaa=dab;return true end;return false end,onEvent=function(...)
+for dab,_bb in
+pairs(table.pack(...))do if(type(_bb)=="function")then
+ab:registerEvent("basaltEventCycle",_bb)end end end,schedule=cba,createFrame=function(dab)
+dab=dab or ac()
+for abb,bbb in pairs(__a)do if(bbb.name==dab)then return nil end end;local _bb=bb(dab,nil,nil,cca)_bb:init()
+table.insert(__a,_bb)if
+(_aa==nil)and(_bb:getName()~="basaltDebuggingFrame")then _bb:show()end;return _bb end,removeFrame=function(dab)__a[dab]=
+nil end,setProjectDir=function(dab)cd=dab end,debug=function(...)local dab={...}if(_aa==nil)then print(...)
+return end
+if(_aa.name~="basaltDebuggingFrame")then if(_aa~=daa.debugFrame)then
+daa.debugLabel:setParent(_aa)end end;local _bb=""
+for abb,bbb in pairs(dab)do _bb=_bb..
+tostring(bbb).. (#dab~=abb and", "or"")end;daa.debugLabel:setText("[Debug] ".._bb)
+for abb,bbb in
+pairs(bc(_bb,daa.debugList:getWidth()))do daa.debugList:addItem(bbb)end;if(daa.debugList:getItemCount()>50)then
+daa.debugList:removeItem(1)end
+daa.debugList:setValue(daa.debugList:getItem(daa.debugList:getItemCount()))if
+(daa.debugList.getItemCount()>daa.debugList:getHeight())then
+daa.debugList:setOffset(daa.debugList:getItemCount()-
+daa.debugList:getHeight())end
+daa.debugLabel:show()end}
+daa.debugFrame=daa.createFrame("basaltDebuggingFrame"):showBar():setBackground(colors.lightGray):setBar("Debug",colors.black,colors.gray)
+daa.debugFrame:addButton("back"):setAnchor("topRight"):setSize(1,1):setText("\22"):onClick(function()if(
+daa.oldFrame~=nil)then daa.oldFrame:show()end end):setBackground(colors.red):show()
+daa.debugList=daa.debugFrame:addList("debugList"):setSize("parent.w - 2","parent.h - 3"):setPosition(2,3):setScrollable(true):show()
+daa.debugLabel=daa.debugFrame:addLabel("debugLabel"):onClick(function()
+daa.oldFrame=_aa;daa.debugFrame:show()end):setBackground(colors.black):setForeground(colors.white):setAnchor("bottomLeft"):ignoreOffset():setZIndex(20):show()return daa end
+aa["loadObjects"]=function(...)local ab={}if(ba)then
+for db,_c in pairs(_b("objects"))do ab[db]=_c()end;return ab end;local bb=table.pack(...)local cb=fs.getDir(
+bb[2]or"Basalt")if(cb==nil)then
+error("Unable to find directory "..bb[2]..
+" please report this bug to our discord.")end;for db,_c in
+pairs(fs.list(fs.combine(cb,"objects")))do
+if(_c~="example.lua")then local ac=_c:gsub(".lua","")ab[ac]=da(ac)end end;return ab end
+aa["Object"]=function(...)local ab=da("basaltEvent")local bb=da("utils")
+local cb=da("module")local db=cb("images")local _c=bb.splitString;local ac=bb.numberFromString
+local bc=bb.getValueFromXML;local cc,dc=table.unpack,string.sub
+return
+function(_d)local ad="Object"local bd={}local cd=1;local dd
+local __a="topLeft"local a_a=false;local b_a=true;local c_a=false;local d_a=false;local _aa=false;local aaa=false
+local baa={left=false,right=false,top=false,bottom=false}local caa=colors.black;local daa=true;local _ba=false;local aba,bba,cba,dba=0,0,0,0;local _ca;local aca;local bca=1;local cca
+local dca;local _da=true;local ada=true;local bda={}local cda=ab()
+bd={x=1,y=1,width=1,height=1,bgColor=colors.black,bgSymbol=" ",bgSymbolColor=colors.black,fgColor=colors.white,transparentColor=false,name=_d or"Object",parent=
+nil,show=function(dda)b_a=true;dda:updateDraw()return dda end,hide=function(dda)b_a=false
+dda:updateDraw()return dda end,enable=function(dda)daa=true;return dda end,disable=function(dda)daa=false
+return dda end,isEnabled=function(dda)return daa end,generateXMLEventFunction=function(dda,__b,a_b)
+local b_b=function(c_b)
+if(c_b:sub(1,1)=="#")then
+local d_b=dda:getBaseFrame():getDeepObject(c_b:sub(2,c_b:len()))
+if(d_b~=nil)and(d_b.internalObjetCall~=nil)then __b(dda,function()
+d_b:internalObjetCall()end)end else
+__b(dda,dda:getBaseFrame():getVariable(c_b))end end;if(type(a_b)=="string")then b_b(a_b)elseif(type(a_b)=="table")then
+for c_b,d_b in pairs(a_b)do b_b(d_b)end end;return dda end,setValuesByXMLData=function(dda,__b)
+local a_b=dda:getBaseFrame()local b_b,c_b,d_b
+if(bc("texture",__b)~=nil)then b_b=bc("texture",__b)end;if(bc("mode",__b)~=nil)then c_b=bc("mode",__b)end
+if(
+bc("texturePlay",__b)~=nil)then d_b=bc("texturePlay",__b)end;local _ab,aab;if(bc("x",__b)~=nil)then _ab=bc("x",__b)end;if(
+bc("y",__b)~=nil)then aab=bc("y",__b)end;if
+(_ab~=nil)or(aab~=nil)then dda:setPosition(_ab,aab)end;local bab,cab;if(
+bc("width",__b)~=nil)then bab=bc("width",__b)end;if(
+bc("height",__b)~=nil)then cab=bc("height",__b)end;if(bab~=nil)or(
+cab~=nil)then dda:setSize(bab,cab)end;if(
+bc("bg",__b)~=nil)then
+dda:setBackground(colors[bc("bg",__b)])end;if(bc("bgSymbol",__b)~=nil)then
+dda:setBackground(dda.bgColor,bc("bgSymbol",__b))end;if
+(bc("bgSymbolColor",__b)~=nil)then
+dda:setBackground(dda.bgColor,dda.bgSymbol,colors[bc("bgSymbolColor",__b)])end
+if
+(bc("fg",__b)~=nil)then dda:setForeground(colors[bc("fg",__b)])end;if(bc("value",__b)~=nil)then
+dda:setValue(colors[bc("value",__b)])end
+if(bc("visible",__b)~=nil)then if
+(bc("visible",__b))then dda:show()else dda:hide()end end
+if(bc("enabled",__b)~=nil)then if(bc("enabled",__b))then dda:enable()else
+dda:disable()end end;if(bc("zIndex",__b)~=nil)then
+dda:setZIndex(bc("zIndex",__b))end;if(bc("anchor",__b)~=nil)then
+dda:setAnchor(bc("anchor",__b))end;if(bc("shadowColor",__b)~=nil)then
+dda:setShadow(colors[bc("shadowColor",__b)])end;if(bc("border",__b)~=nil)then
+dda:setBorder(colors[bc("border",__b)])end;if(bc("borderLeft",__b)~=nil)then
+baa["left"]=bc("borderLeft",__b)end;if(bc("borderTop",__b)~=nil)then
+baa["top"]=bc("borderTop",__b)end;if(bc("borderRight",__b)~=nil)then
+baa["right"]=bc("borderRight",__b)end;if(bc("borderBottom",__b)~=nil)then
+baa["bottom"]=bc("borderBottom",__b)end;if(bc("borderColor",__b)~=nil)then
+dda:setBorder(colors[bc("borderColor",__b)])end;if
+(bc("ignoreOffset",__b)~=nil)then
+if(bc("ignoreOffset",__b))then dda:ignoreOffset(true)end end;if
+(bc("onClick",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onClick,bc("onClick",__b))end;if
+(bc("onClickUp",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onClickUp,bc("onClickUp",__b))end;if
+(bc("onScroll",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onScroll,bc("onScroll",__b))end;if
+(bc("onDrag",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onDrag,bc("onDrag",__b))end;if(bc("onHover",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onHover,bc("onHover",__b))end;if
+(bc("onLeave",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onLeave,bc("onLeave",__b))end;if(bc("onKey",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onKey,bc("onKey",__b))end;if(bc("onKeyUp",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onKeyUp,bc("onKeyUp",__b))end;if
+(bc("onChange",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onChange,bc("onChange",__b))end;if
+(bc("onResize",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onResize,bc("onResize",__b))end;if
+(bc("onReposition",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onReposition,bc("onReposition",__b))end;if
+(bc("onEvent",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onEvent,bc("onEvent",__b))end;if
+(bc("onGetFocus",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onGetFocus,bc("onGetFocus",__b))end;if
+(bc("onLoseFocus",__b)~=nil)then
+dda:generateXMLEventFunction(dda.onLoseFocus,bc("onLoseFocus",__b))end;if(b_b~=nil)then
+dda:setTexture(b_b,c_b,d_b)end;dda:updateDraw()return dda end,isVisible=function(dda)return
+b_a end,setFocus=function(dda)if(dda.parent~=nil)then
+dda.parent:setFocusedObject(dda)end;return dda end,setZIndex=function(dda,__b)
+cd=__b
+if(dda.parent~=nil)then dda.parent:removeObject(dda)
+dda.parent:addObject(dda)dda:updateEventHandlers()end;return dda end,updateEventHandlers=function(dda)
+for __b,a_b in
+pairs(bda)do if(a_b)then dda.parent:addEvent(__b,dda)end end end,getZIndex=function(dda)return cd end,getType=function(dda)return ad end,getName=function(dda)return
+dda.name end,remove=function(dda)if(dda.parent~=nil)then
+dda.parent:removeObject(dda)end;dda:updateDraw()return dda end,setParent=function(dda,__b)
+if(
+__b.getType~=nil and __b:getType()=="Frame")then
+dda:remove()__b:addObject(dda)if(dda.draw)then dda:show()end end;return dda end,setValue=function(dda,__b,a_b)if(
+dd~=__b)then dd=__b;dda:updateDraw()if(a_b~=false)then
+dda:valueChangedHandler()end end
+return dda end,getValue=function(dda)return dd end,getDraw=function(dda)return
+ada end,updateDraw=function(dda,__b)ada=__b;if(__b==nil)then ada=true end;if(ada)then if(dda.parent~=nil)then
+dda.parent:updateDraw()end end;return dda end,getEventSystem=function(dda)return
+cda end,getParent=function(dda)return dda.parent end,setPosition=function(dda,__b,a_b,b_b)
+if(type(__b)=="number")then dda.x=
+b_b and dda:getX()+__b or __b end;if(type(a_b)=="number")then
+dda.y=b_b and dda:getY()+a_b or a_b end
+if(dda.parent~=nil)then if(type(__b)=="string")then
+dda.x=dda.parent:newDynamicValue(dda,__b)end;if(type(a_b)=="string")then
+dda.y=dda.parent:newDynamicValue(dda,a_b)end
+dda.parent:recalculateDynamicValues()end;dda:customEventHandler("basalt_reposition")
+dda:updateDraw()return dda end,getX=function(dda)return
+
+type(dda.x)=="number"and dda.x or math.floor(dda.x[1]+0.5)end,getY=function(dda)return
+
+type(dda.y)=="number"and dda.y or math.floor(dda.y[1]+0.5)end,getPosition=function(dda)return
+dda:getX(),dda:getY()end,getVisibility=function(dda)return b_a end,setVisibility=function(dda,__b)
+b_a=__b or not b_a;dda:updateDraw()return dda end,setSize=function(dda,__b,a_b,b_b)if(type(__b)==
+"number")then
+dda.width=b_b and dda:getWidth()+__b or __b end
+if(type(a_b)=="number")then dda.height=b_b and
+dda:getHeight()+a_b or a_b end
+if(dda.parent~=nil)then if(type(__b)=="string")then
+dda.width=dda.parent:newDynamicValue(dda,__b)end;if(type(a_b)=="string")then
+dda.height=dda.parent:newDynamicValue(dda,a_b)end
+dda.parent:recalculateDynamicValues()end;if(_ca~=nil)and(dca=="stretch")then
+aca=db.resizeBIMG(_ca,dda:getSize())[bca]end
+dda:customEventHandler("basalt_resize")dda:updateDraw()return dda end,getHeight=function(dda)
+return
+type(dda.height)=="number"and dda.height or
+math.floor(dda.height[1]+0.5)end,getWidth=function(dda)return
+
+type(dda.width)=="number"and dda.width or math.floor(dda.width[1]+0.5)end,getSize=function(dda)return
+dda:getWidth(),dda:getHeight()end,calculateDynamicValues=function(dda)
+if(
+type(dda.width)=="table")then dda.width:calculate()end
+if(type(dda.height)=="table")then dda.height:calculate()end
+if(type(dda.x)=="table")then dda.x:calculate()end
+if(type(dda.y)=="table")then dda.y:calculate()end;dda:updateDraw()return dda end,setBackground=function(dda,__b,a_b,b_b)dda.bgColor=
+__b or false
+dda.bgSymbol=a_b or(dda.bgColor~=false and dda.bgSymbol or
+false)dda.bgSymbolColor=b_b or dda.bgSymbolColor
+dda:updateDraw()return dda end,setTexture=function(dda,__b,a_b,b_b)if(
+type(__b)=="string")then _ca=db.loadImageAsBimg(__b)elseif(type(__b)=="table")then
+_ca=__b end
+if(_ca.animated)then local c_b=_ca[bca].duration or
+_ca.secondsPerFrame or 0.2
+cca=os.startTimer(c_b)dda.parent:addEvent("other_event",dda)
+bda["other_event"]=true end;_da=b_b==false and false or true;bca=1
+dca=a_b or"normal"if(dca=="stretch")then
+aca=db.resizeBIMG(_ca,dda:getSize())[1]else aca=_ca[1]end
+dda:updateDraw()return dda end,setTransparent=function(dda,__b)dda.transparentColor=
+__b or false;if(__b~=false)then dda.bgSymbol=false
+dda.bgSymbolColor=false end;dda:updateDraw()return dda end,getBackground=function(dda)return
+dda.bgColor end,setForeground=function(dda,__b)dda.fgColor=__b or false
+dda:updateDraw()return dda end,getForeground=function(dda)return dda.fgColor end,setShadow=function(dda,__b)if(
+__b==false)then aaa=false else caa=__b;aaa=true end
+dda:updateDraw()return dda end,isShadowActive=function(dda)return aaa end,setBorder=function(dda,...)
+if(
+...~=nil)then local __b={...}
+for a_b,b_b in pairs(__b)do if(b_b=="left")or(#__b==1)then
+baa["left"]=__b[1]end;if(b_b=="top")or(#__b==1)then
+baa["top"]=__b[1]end;if(b_b=="right")or(#__b==1)then
+baa["right"]=__b[1]end;if(b_b=="bottom")or(#__b==1)then
+baa["bottom"]=__b[1]end end end;dda:updateDraw()return dda end,getBorder=function(dda,__b)if(
+__b=="left")then return borderLeft end
+if(__b=="top")then return borderTop end;if(__b=="right")then return borderRight end;if(__b=="bottom")then
+return borderBottom end end,draw=function(dda)
+if
+(b_a)then
+if(dda.parent~=nil)then local __b,a_b=dda:getAnchorPosition()
+local b_b,c_b=dda:getSize()local d_b,_ab=dda.parent:getSize()
+if(__b+b_b<1)or(__b>d_b)or(a_b+
+c_b<1)or(a_b>_ab)then return false end;if(dda.transparentColor~=false)then
+dda.parent:drawForegroundBox(__b,a_b,b_b,c_b,dda.transparentColor)end;if(dda.bgColor~=false)then
+dda.parent:drawBackgroundBox(__b,a_b,b_b,c_b,dda.bgColor)end
+if(dda.bgSymbol~=false)then
+dda.parent:drawTextBox(__b,a_b,b_b,c_b,dda.bgSymbol)if(dda.bgSymbol~=" ")then
+dda.parent:drawForegroundBox(__b,a_b,b_b,c_b,dda.bgSymbolColor)end end
+if(aca~=nil)then
+if(dca=="center")then local bab,cab=#aca[1][1],#aca
+local dab=bab__b)and(c_b<=a_b)and(c_b+_ab>a_b)then return true end end;return false end,mouseHandler=function(dda,__b,a_b,b_b,c_b)
+if
+(dda:isCoordsInObject(a_b,b_b))then local d_b,_ab=dda:getAbsolutePosition()
+local aab=cda:sendEvent("mouse_click",dda,"mouse_click",__b,a_b-
+(d_b-1),b_b- (_ab-1),a_b,b_b,c_b)if(aab==false)then return false end;if(dda.parent~=nil)then
+dda.parent:setFocusedObject(dda)end;_aa=true;_ba=true;aba,bba=a_b,b_b;return true end;return false end,mouseUpHandler=function(dda,__b,a_b,b_b)
+_ba=false
+if(_aa)then local c_b,d_b=dda:getAbsolutePosition()
+local _ab=cda:sendEvent("mouse_release",dda,"mouse_release",__b,a_b- (
+c_b-1),b_b- (d_b-1),a_b,b_b)_aa=false end
+if(dda:isCoordsInObject(a_b,b_b))then local c_b,d_b=dda:getAbsolutePosition()
+local _ab=cda:sendEvent("mouse_up",dda,"mouse_up",__b,
+a_b- (c_b-1),b_b- (d_b-1),a_b,b_b)if(_ab==false)then return false end;return true end;return false end,dragHandler=function(dda,__b,a_b,b_b)
+if
+(_ba)then local c_b,d_b=dda:getAbsolutePosition()
+local _ab=cda:sendEvent("mouse_drag",dda,"mouse_drag",__b,a_b- (c_b-1),
+b_b- (d_b-1),aba-a_b,bba-b_b,a_b,b_b)aba,bba=a_b,b_b;if(_ab~=nil)then return _ab end;if(dda.parent~=nil)then
+dda.parent:setFocusedObject(dda)end;return true end
+if(dda:isCoordsInObject(a_b,b_b))then
+local c_b,d_b=dda:getAbsolutePosition(dda:getAnchorPosition())aba,bba=a_b,b_b;cba,dba=c_b-a_b,d_b-b_b end;return false end,scrollHandler=function(dda,__b,a_b,b_b)
+if
+(dda:isCoordsInObject(a_b,b_b))then local c_b,d_b=dda:getAbsolutePosition()
+local _ab=cda:sendEvent("mouse_scroll",dda,"mouse_scroll",__b,a_b-
+(c_b-1),b_b- (d_b-1))if(_ab==false)then return false end;if(dda.parent~=nil)then
+dda.parent:setFocusedObject(dda)end;return true end;return false end,hoverHandler=function(dda,__b,a_b,b_b)
+if
+(dda:isCoordsInObject(__b,a_b))then
+local c_b=cda:sendEvent("mouse_hover",dda,"mouse_hover",__b,a_b,b_b)if(c_b==false)then return false end;d_a=true;return true end
+if(d_a)then
+local c_b=cda:sendEvent("mouse_leave",dda,"mouse_leave",__b,a_b,b_b)if(c_b==false)then return false end;d_a=false end;return false end,keyHandler=function(dda,__b,a_b)if
+(daa)and(b_a)then
+if(dda:isFocused())then
+local b_b=cda:sendEvent("key",dda,"key",__b,a_b)if(b_b==false)then return false end;return true end end;return
+false end,keyUpHandler=function(dda,__b)if
+(daa)and(b_a)then
+if(dda:isFocused())then
+local a_b=cda:sendEvent("key_up",dda,"key_up",__b)if(a_b==false)then return false end;return true end end;return
+false end,charHandler=function(dda,__b)if
+(daa)and(b_a)then
+if(dda:isFocused())then
+local a_b=cda:sendEvent("char",dda,"char",__b)if(a_b==false)then return false end;return true end end;return
+false end,valueChangedHandler=function(dda)
+cda:sendEvent("value_changed",dda,dd)end,eventHandler=function(dda,__b,...)local a_b={...}
+if
+(__b=="timer")and(a_b[1]==cca)then
+if(_ca[bca+1]~=nil)then bca=bca+1;if(dca=="stretch")then
+aca=db.resizeBIMG(_ca,dda:getSize())[bca]else aca=_ca[bca]end;local c_b=_ca[bca].duration or
+_ca.secondsPerFrame or 0.2
+cca=os.startTimer(c_b)else
+if(_da)then bca=1;if(dca=="stretch")then
+aca=db.resizeBIMG(_ca,dda:getSize())[1]else aca=_ca[1]end;local c_b=
+_ca[1].duration or _ca.secondsPerFrame or 0.2
+cca=os.startTimer(c_b)end end;dda:updateDraw()end;local b_b=cda:sendEvent("other_event",dda,__b,...)if(b_b~=nil)then
+return b_b end end,customEventHandler=function(dda,__b,...)
+if
+(
+_ca~=nil)and(dca=="stretch")and(__b=="basalt_resize")then
+aca=db.resizeBIMG(_ca,dda:getSize())[bca]dda:updateDraw()end;local a_b=cda:sendEvent("custom_event",dda,__b,...)if(a_b~=nil)then
+return a_b end;return true end,getFocusHandler=function(dda)
+local __b=cda:sendEvent("get_focus",dda)if(__b~=nil)then return __b end;return true end,loseFocusHandler=function(dda)
+_ba=false;local __b=cda:sendEvent("lose_focus",dda)
+if(__b~=nil)then return __b end;return true end,init=function(dda)
+if
+(dda.parent~=nil)then for __b,a_b in pairs(bda)do
+if(a_b)then dda.parent:addEvent(__b,dda)end end end;if not(c_a)then c_a=true;return true end;return false end}bd.__index=bd;return bd end end
+aa["Frame"]=function(...)local ab=da("module")local bb=da("Object")
+local cb=da("loadObjects")local db=da("basaltDraw")local _c=da("utils")local ac=ab("layout")
+local bc=ab("basaltMon")local cc=_c.uuid;local dc=_c.rpairs;local _d=_c.getValueFromXML;local ad=_c.tableCount
+local bd,cd,dd=string.sub,math.min,math.max
+return
+function(__a,a_a,b_a,c_a)local d_a=bb(__a)local _aa="Frame"local aaa={}local baa={}local caa={}local daa={}local _ba={}local aba={}
+local bba={}local cba={}local dba=0;local _ca=b_a or term.current()local aca=""local bca=false
+local cca=false;local dca=false;local _da=0;local ada=0;local bda=false;local cda=0;local dda=false;local __b=false;local a_b=""local b_b=false
+local c_b=false;local d_b;local _ab;local aab=true;local bab=true;local cab=false;local dab={}local _bb={}
+d_a:setZIndex(10)local abb=db(_ca)local bbb=false;local cbb=1;local dbb=1;local _cb=colors.white;local acb,bcb=0,0;local ccb={}
+local function dcb(dbc,_cc)if(_cc~=
+nil)then _cc:setValuesByXMLData(dbc)end end
+local function _db(dbc,_cc,acc)
+if(dbc~=nil)then if(dbc.properties~=nil)then dbc={dbc}end;for bcc,ccc in pairs(dbc)do local dcc=_cc(acc,
+ccc["@id"]or cc())
+table.insert(ccb,dcc)dcb(ccc,dcc)end end end
+local function adb(dbc)if(type(dbc)~="string")then dbc=dbc.name end;for _cc,acc in pairs(aaa)do
+for bcc,ccc in
+pairs(acc)do if(ccc:getName()==dbc)then return ccc end end end end
+local function bdb(dbc)local _cc=adb(dbc)if(_cc~=nil)then return _cc end
+for acc,bcc in pairs(aaa)do
+for ccc,dcc in pairs(bcc)do if(
+dcc:getType()=="Frame")then local _dc=dcc:getDeepObject(dbc)
+if(_dc~=nil)then return _dc end end end end end
+local function cdb(dbc)local _cc=dbc:getZIndex()
+if(adb(dbc.name)~=nil)then return nil end
+if(aaa[_cc]==nil)then
+for x=1,#baa+1 do if(baa[x]~=nil)then if(_cc==baa[x])then break end;if
+(_cc>baa[x])then table.insert(baa,x,_cc)break end else
+table.insert(baa,_cc)end end;if(#baa<=0)then table.insert(baa,_cc)end;aaa[_cc]={}end;dbc.parent=caa;if(dbc.init~=nil)then dbc:init()end
+table.insert(aaa[_cc],dbc)return dbc end
+local function ddb(dbc,_cc)
+for acc,bcc in pairs(daa)do
+for ccc,dcc in pairs(bcc)do
+for _dc,adc in pairs(dcc)do
+if(adc==_cc)then
+table.remove(daa[acc][ccc],_dc)if(dbc.parent~=nil)then if(ad(daa[acc])<=0)then
+dbc.parent:removeEvent(acc,dbc)end end end end end end end
+local function __c(dbc,_cc)
+for acc,bcc in pairs(aaa)do
+for ccc,dcc in pairs(bcc)do
+if(type(_cc)=="string")then
+if(dcc:getName()==_cc)then
+table.remove(aaa[acc],ccc)ddb(caa,dcc)dbc:updateDraw()return true end else if(dcc==_cc)then table.remove(aaa[acc],ccc)ddb(caa,dcc)
+dbc:updateDraw()return true end end end end;return false end;local function a_c(dbc,_cc,acc)
+for bcc,ccc in pairs(daa[_cc])do for dcc,_dc in pairs(ccc)do
+if(_dc:getName()==acc)then return _dc end end end end
+local function b_c(dbc,_cc,acc)
+local bcc=acc:getZIndex()if(daa[_cc]==nil)then daa[_cc]={}end;if(_ba[_cc]==nil)then
+_ba[_cc]={}end
+if(a_c(dbc,_cc,acc.name)~=nil)then return nil end
+if(dbc.parent~=nil)then dbc.parent:addEvent(_cc,dbc)end;dab[_cc]=true
+if(daa[_cc][bcc]==nil)then
+for x=1,#_ba[_cc]+1 do
+if
+(_ba[_cc][x]~=nil)then if(bcc==_ba[_cc][x])then break end;if(bcc>_ba[_cc][x])then
+table.insert(_ba[_cc],x,bcc)break end else
+table.insert(_ba[_cc],bcc)end end
+if(#_ba[_cc]<=0)then table.insert(_ba[_cc],bcc)end;daa[_cc][bcc]={}end;table.insert(daa[_cc][bcc],acc)return acc end
+local function c_c(dbc,_cc,acc)
+if(daa[_cc]~=nil)then
+for bcc,ccc in pairs(daa[_cc])do
+for dcc,_dc in pairs(ccc)do
+if(_dc==acc)then
+table.remove(daa[_cc][bcc],dcc)if(#daa[_cc][bcc]<=0)then daa[_cc][bcc]=nil
+if(dbc.parent~=nil)then if(
+ad(daa[_cc])<=0)then dab[_cc]=false
+dbc.parent:removeEvent(_cc,dbc)end end end;return
+true end end end end;return false end;local d_c=math
+local function _ac(dbc)
+local _cc,acc=pcall(load("return "..dbc,"",nil,{math=d_c}))if not(_cc)then
+error(dbc.." is not a valid dynamic code")end;return acc end
+local function aac(dbc,_cc,acc)for bcc,ccc in pairs(cba)do
+if(ccc[2]==acc)and(ccc[4]==_cc)then return ccc end end;dba=dba+1
+cba[dba]={0,acc,{},_cc,dba}return cba[dba]end
+local function bac(dbc,_cc)local acc={}local bcc={}for ccc in _cc:gmatch("%a+%.x")do local dcc=ccc:gsub("%.x","")
+if
+(dcc~="self")and(dcc~="parent")then table.insert(acc,dcc)end end
+for ccc in
+_cc:gmatch("%w+%.y")do local dcc=ccc:gsub("%.y","")if(dcc~="self")and(dcc~="parent")then
+table.insert(acc,dcc)end end;for ccc in _cc:gmatch("%a+%.w")do local dcc=ccc:gsub("%.w","")
+if(dcc~="self")and
+(dcc~="parent")then table.insert(acc,dcc)end end
+for ccc in
+_cc:gmatch("%a+%.h")do local dcc=ccc:gsub("%.h","")if(dcc~="self")and(dcc~="parent")then
+table.insert(acc,dcc)end end
+for ccc,dcc in pairs(acc)do bcc[dcc]=adb(dcc)if(bcc[dcc]==nil)then
+error("Dynamic Values - unable to find object "..dcc)end end;bcc["self"]=dbc;bcc["parent"]=dbc:getParent()return bcc end
+local function cac(dbc,_cc)local acc=dbc;for bcc in dbc:gmatch("%w+%.x")do
+acc=acc:gsub(bcc,_cc[bcc:gsub("%.x","")]:getX())end;for bcc in dbc:gmatch("%w+%.y")do
+acc=acc:gsub(bcc,_cc[bcc:gsub("%.y","")]:getY())end;for bcc in dbc:gmatch("%w+%.w")do
+acc=acc:gsub(bcc,_cc[bcc:gsub("%.w","")]:getWidth())end;for bcc in dbc:gmatch("%w+%.h")do
+acc=acc:gsub(bcc,_cc[bcc:gsub("%.h","")]:getHeight())end;return acc end
+local function dac(dbc)
+if(#cba>0)then
+for n=1,dba do
+if(cba[n]~=nil)then local _cc;if(#cba[n][3]<=0)then
+cba[n][3]=bac(cba[n][4],cba[n][2])end
+_cc=cac(cba[n][2],cba[n][3])cba[n][1]=_ac(_cc)if(cba[n][4]:getType()=="Frame")then
+cba[n][4]:recalculateDynamicValues()end end end
+for _cc,acc in pairs(baa)do
+if(aaa[acc]~=nil)then
+for bcc,ccc in pairs(aaa[acc])do
+if
+(c_a.getDynamicValueEventSetting())then if(ccc.eventHandler~=nil)then
+ccc:eventHandler("basalt_dynamicvalue",dbc)end end;if(ccc.customEventHandler~=nil)then
+ccc:customEventHandler("basalt_resize",dbc)end end end end end end;local function _bc(dbc)return cba[dbc][1]end
+local function abc(dbc)local _cc=0
+for acc,bcc in pairs(aaa)do
+for ccc,dcc in pairs(bcc)do
+if(
+dcc.getHeight~=nil)and(dcc.getY~=nil)then
+if
+(dcc:getType()=="Dropdown")then local _dc,adc=dcc:getHeight(),dcc:getY()
+local bdc,cdc=dcc:getDropdownSize()_dc=_dc+cdc-1
+if(_dc+adc-dbc:getHeight()>=_cc)then _cc=dd(
+_dc+adc-dbc:getHeight(),0)end else local _dc,adc=dcc:getHeight(),dcc:getY()if(
+_dc+adc-dbc:getHeight()>=_cc)then
+_cc=dd(_dc+adc-dbc:getHeight(),0)end end end end end;return _cc end
+local function bbc(dbc)local _cc=0
+for acc,bcc in pairs(aaa)do
+for ccc,dcc in pairs(bcc)do
+if
+(dcc.getWidth~=nil)and(dcc.getX~=nil)then local _dc,adc=dcc:getWidth(),dcc:getX()if(
+_dc+adc-dbc:getWidth()>=_cc)then
+_cc=dd(_dc+adc-dbc:getWidth(),0)end end end end;return _cc end;local function cbc(dbc)if(bab)then cda=abc(dbc)end end
+caa={barActive=false,barBackground=colors.gray,barTextcolor=colors.black,barText="New Frame",barTextAlign="left",addEvent=b_c,removeEvent=c_c,removeEvents=ddb,getEvent=a_c,newDynamicValue=aac,recalculateDynamicValues=dac,getDynamicValue=_bc,getType=function(dbc)return
+_aa end,setZIndex=function(dbc,_cc)d_a.setZIndex(dbc,_cc)for acc,bcc in pairs(dab)do if(bcc)then
+dbc.parent:addEvent(acc,dbc)end end;return dbc end,setFocusedObject=function(dbc,_cc)
+if(
+_ab~=_cc)then if(_ab~=nil)then
+if(adb(_ab)~=nil)then _ab:loseFocusHandler()end end;if(_cc~=nil)then if(adb(_cc)~=nil)then
+_cc:getFocusHandler()end end;_ab=_cc end;return dbc end,getVariable=function(dbc,_cc)return
+c_a.getVariable(_cc)end,setSize=function(dbc,_cc,acc,bcc)
+d_a.setSize(dbc,_cc,acc,bcc)if(dbc.parent==nil)then abb=db(_ca)end
+for ccc,dcc in pairs(baa)do if(aaa[dcc]~=nil)then
+for _dc,adc in
+pairs(aaa[dcc])do if(adc.customEventHandler~=nil)then
+adc:customEventHandler("basalt_resize",dbc)end end end end;dbc:recalculateDynamicValues()aab=false;return dbc end,setTheme=function(dbc,_cc,acc)
+if(
+type(_cc)=="table")then bba=_cc elseif(type(_cc)=="string")then bba[_cc]=acc end;dbc:updateDraw()return dbc end,getTheme=function(dbc,_cc)
+return
+bba[_cc]or(dbc.parent~=nil and dbc.parent:getTheme(_cc)or
+c_a.getTheme(_cc))end,getThemeColor=function(dbc,_cc)return
+_cc~=nil and _bb[_cc]or _bb end,setThemeColor=function(dbc,_cc,...)
+if
+(dbc.parent==nil)then
+if(dbc==c_a.getActiveFrame())then
+if(type(_cc)=="string")then _bb[_cc]=...
+_ca.setPaletteColor(
+type(_cc)=="number"and _cc or colors[_cc],...)elseif(type(_cc)=="table")then
+for acc,bcc in pairs(_cc)do _bb[acc]=bcc
+if(type(bcc)=="number")then
+_ca.setPaletteColor(
+type(acc)=="number"and acc or colors[acc],bcc)else local ccc,dcc,_dc=table.unpack(bcc)
+_ca.setPaletteColor(
+type(acc)=="number"and acc or colors[acc],ccc,dcc,_dc)end end end end end;return dbc end,setPosition=function(dbc,_cc,acc,bcc)
+d_a.setPosition(dbc,_cc,acc,bcc)dbc:recalculateDynamicValues()return dbc end,getBasaltInstance=function(dbc)return
+c_a end,setOffset=function(dbc,_cc,acc)
+acb=_cc~=nil and
+d_c.floor(_cc<0 and d_c.abs(_cc)or-_cc)or acb
+bcb=acc~=nil and
+d_c.floor(acc<0 and d_c.abs(acc)or-acc)or bcb;dbc:updateDraw()return dbc end,getOffsetInternal=function(dbc)return
+acb,bcb end,getOffset=function(dbc)return acb<0 and d_c.abs(acb)or-acb,bcb<0 and
+d_c.abs(bcb)or-bcb end,removeFocusedObject=function(dbc)if(
+_ab~=nil)then
+if(adb(_ab)~=nil)then _ab:loseFocusHandler()end end;_ab=nil;return dbc end,getFocusedObject=function(dbc)return
+_ab end,setCursor=function(dbc,_cc,acc,bcc,ccc)
+if(dbc.parent~=nil)then
+local dcc,_dc=dbc:getAnchorPosition()
+dbc.parent:setCursor(_cc or false,(acc or 0)+dcc-1,(bcc or 0)+_dc-1,
+ccc or _cb)else
+local dcc,_dc=dbc:getAbsolutePosition(dbc:getAnchorPosition(dbc:getX(),dbc:getY(),true))bbb=_cc or false;if(acc~=nil)then cbb=dcc+acc-1 end;if(bcc~=nil)then dbb=_dc+
+bcc-1 end;_cb=ccc or _cb;if(bbb)then
+_ca.setTextColor(_cb)_ca.setCursorPos(cbb,dbb)_ca.setCursorBlink(bbb)else
+_ca.setCursorBlink(false)end end;return dbc end,setMovable=function(dbc,_cc)
+if(
+dbc.parent~=nil)then b_b=_cc or not b_b
+dbc.parent:addEvent("mouse_click",dbc)dab["mouse_click"]=true
+dbc.parent:addEvent("mouse_up",dbc)dab["mouse_up"]=true
+dbc.parent:addEvent("mouse_drag",dbc)dab["mouse_drag"]=true end;return dbc end,setScrollable=function(dbc,_cc)bda=(
+_cc or _cc==nil)and true or false
+if(
+dbc.parent~=nil)then dbc.parent:addEvent("mouse_scroll",dbc)end;dab["mouse_scroll"]=true;return dbc end,setScrollAmount=function(dbc,_cc)cda=
+_cc or cda;bab=false;return dbc end,getScrollAmount=function(dbc)return bab and cbc(dbc)or
+cda end,getCalculatedVerticalScroll=abc,getCalculatedHorizontalScroll=bbc,show=function(dbc)d_a.show(dbc)
+if(
+dbc.parent==nil)then c_a.setActiveFrame(dbc)
+for _cc,acc in pairs(colors)do if
+(type(acc)=="number")then
+_ca.setPaletteColor(acc,colors.packRGB(term.nativePaletteColor((acc))))end end
+for _cc,acc in pairs(_bb)do
+if(type(acc)=="number")then
+_ca.setPaletteColor(
+type(_cc)=="number"and _cc or colors[_cc],acc)else local bcc,ccc,dcc=table.unpack(acc)
+_ca.setPaletteColor(
+type(_cc)=="number"and _cc or colors[_cc],bcc,ccc,dcc)end end
+if(bca)and not(cca)then c_a.setMonitorFrame(aca,dbc)elseif(cca)then
+c_a.setMonitorFrame(dbc:getName(),dbc,aca)else c_a.setMainFrame(dbc)end end;return dbc end,hide=function(dbc)
+d_a.hide(dbc)
+if(dbc.parent==nil)then if(activeFrame==dbc)then activeFrame=nil end
+if(bca)and
+not(cca)then if(c_a.getMonitorFrame(aca)==dbc)then
+c_a.setActiveFrame(nil)end elseif(cca)then
+if(
+c_a.getMonitorFrame(dbc:getName())==dbc)then c_a.setActiveFrame(nil)end else
+if(c_a.getMainFrame()==dbc)then c_a.setMainFrame(nil)end end end;return dbc end,addLayout=function(dbc,_cc)
+if(
+_cc~=nil)then
+if(fs.exists(_cc))then local acc=fs.open(_cc,"r")
+local bcc=ac:ParseXmlText(acc.readAll())acc.close()ccb={}dbc:setValuesByXMLData(bcc)end end;return dbc end,getLastLayout=function(dbc)return
+ccb end,addLayoutFromString=function(dbc,_cc)if(_cc~=nil)then local acc=ac:ParseXmlText(_cc)
+dbc:setValuesByXMLData(acc)end;return dbc end,setValuesByXMLData=function(dbc,_cc)
+d_a.setValuesByXMLData(dbc,_cc)if(_d("movable",_cc)~=nil)then if(_d("movable",_cc))then
+dbc:setMovable(true)end end;if(
+_d("scrollable",_cc)~=nil)then
+if(_d("scrollable",_cc))then dbc:setScrollable(true)end end;if
+(_d("monitor",_cc)~=nil)then
+dbc:setMonitor(_d("monitor",_cc)):show()end;if(_d("mirror",_cc)~=nil)then
+dbc:setMirror(_d("mirror",_cc))end
+if(_d("bar",_cc)~=nil)then if(_d("bar",_cc))then
+dbc:showBar(true)else dbc:showBar(false)end end
+if(_d("barText",_cc)~=nil)then dbc.barText=_d("barText",_cc)end;if(_d("barBG",_cc)~=nil)then
+dbc.barBackground=colors[_d("barBG",_cc)]end;if(_d("barFG",_cc)~=nil)then
+dbc.barTextcolor=colors[_d("barFG",_cc)]end;if(_d("barAlign",_cc)~=nil)then
+dbc.barTextAlign=_d("barAlign",_cc)end;if(_d("layout",_cc)~=nil)then
+dbc:addLayout(_d("layout",_cc))end;if(_d("xOffset",_cc)~=nil)then
+dbc:setOffset(_d("xOffset",_cc),bcb)end;if(_d("yOffset",_cc)~=nil)then
+dbc:setOffset(bcb,_d("yOffset",_cc))end;if(_d("scrollAmount",_cc)~=nil)then
+dbc:setScrollAmount(_d("scrollAmount",_cc))end;local acc=_cc:children()
+for bcc,ccc in
+pairs(acc)do if(ccc.___name~="animation")then
+local dcc=ccc.___name:gsub("^%l",string.upper)
+if(cb[dcc]~=nil)then _db(ccc,dbc["add"..dcc],dbc)end end end;_db(_cc["frame"],dbc.addFrame,dbc)
+_db(_cc["animation"],dbc.addAnimation,dbc)return dbc end,showBar=function(dbc,_cc)dbc.barActive=
+_cc or not dbc.barActive;dbc:updateDraw()
+return dbc end,setBar=function(dbc,_cc,acc,bcc)dbc.barText=_cc or""dbc.barBackground=
+acc or dbc.barBackground
+dbc.barTextcolor=bcc or dbc.barTextcolor;dbc:updateDraw()return dbc end,setBarTextAlign=function(dbc,_cc)dbc.barTextAlign=
+_cc or"left"dbc:updateDraw()return dbc end,setMirror=function(dbc,_cc)if(
+dbc.parent~=nil)then
+error("Frame has to be a base frame in order to attach a mirror.")end;a_b=_cc;if(mirror~=nil)then
+abb.setMirror(mirror)end;dda=true;return dbc end,removeMirror=function(dbc)mirror=
+nil;dda=false;abb.setMirror(nil)return dbc end,setMonitorScale=function(dbc,_cc)if
+(bca)then _ca.setTextScale(_cc)end;return dbc end,setMonitor=function(dbc,_cc,acc)
+if(
+_cc~=nil)and(_cc~=false)then
+if(type(_cc)=="string")then
+if(
+peripheral.getType(_cc)=="monitor")then _ca=peripheral.wrap(_cc)dca=true end
+if(dbc.parent~=nil)then dbc.parent:removeObject(dbc)end;bca=true;c_a.setMonitorFrame(_cc,dbc)elseif(type(_cc)=="table")then
+_ca=bc(_cc)dca=true;bca=true;cca=true
+c_a.setMonitorFrame(dbc:getName(),dbc,true)end else _ca=parentTerminal;bca=false;cca=false
+if(type(aca)=="string")then
+if(
+c_a.getMonitorFrame(aca)==dbc)then c_a.setMonitorFrame(aca,nil)end else
+if(c_a.getMonitorFrame(dbc:getName())==dbc)then c_a.setMonitorFrame(dbc:getName(),
+nil)end end end;if(acc~=nil)then _ca.setTextScale(acc)end;abb=db(_ca)
+dbc:setSize(_ca.getSize())aab=true;aca=_cc or nil;dbc:updateDraw()return dbc end,loseFocusHandler=function(dbc)
+d_a.loseFocusHandler(dbc)if(_ab~=nil)then _ab:loseFocusHandler()_ab=nil end end,getFocusHandler=function(dbc)
+d_a.getFocusHandler(dbc)
+if(dbc.parent~=nil)then
+if(b_b)then dbc.parent:removeEvents(dbc)
+dbc.parent:removeObject(dbc)dbc.parent:addObject(dbc)for _cc,acc in pairs(dab)do if(acc)then
+dbc.parent:addEvent(_cc,dbc)end end
+dbc:updateDraw()end end;if(_ab~=nil)then _ab:getFocusHandler()end end,eventHandler=function(dbc,_cc,...)
+d_a.eventHandler(dbc,_cc,...)
+if(daa["other_event"]~=nil)then
+for acc,bcc in ipairs(_ba["other_event"])do if(
+daa["other_event"][bcc]~=nil)then
+for ccc,dcc in dc(daa["other_event"][bcc])do if
+(dcc.eventHandler~=nil)then dcc:eventHandler(_cc,...)end end end end end;if(aab)and not(bca)then
+if(dbc.parent==nil)then if(_cc=="term_resize")then
+dbc:setSize(_ca.getSize())aab=true end end end
+if(bca)then
+if(aab)then
+if
+(_cc=="monitor_resize")then
+if(type(aca)=="string")then dbc:setSize(_ca.getSize())elseif(
+type(aca)=="table")then
+for acc,bcc in pairs(aca)do for ccc,dcc in pairs(bcc)do if(p1 ==dcc)then
+dbc:setSize(_ca.getSize())end end end end;aab=true;dbc:updateDraw()end end
+if(_cc=="peripheral")and(p1 ==aca)then if
+(peripheral.getType(aca)=="monitor")then dca=true;_ca=peripheral.wrap(aca)abb=db(_ca)
+dbc:updateDraw()end end
+if(_cc=="peripheral_detach")and(p1 ==aca)then dca=false end end
+if(dda)then if(peripheral.getType(a_b)=="monitor")then __b=true
+abb.setMirror(peripheral.wrap(a_b))end;if(_cc=="peripheral_detach")and
+(p1 ==a_b)then dca=false end
+if
+(_cc=="monitor_touch")and(a_b==p1)then dbc:mouseHandler(1,p2,p3,true)end end end,mouseHandler=function(dbc,_cc,acc,bcc,ccc,dcc)
+if
+(cca)then if(_ca.calculateClick~=nil)then
+acc,bcc=_ca.calculateClick(dcc,acc,bcc)end end
+if(d_a.mouseHandler(dbc,_cc,acc,bcc))then
+if(daa["mouse_click"]~=nil)then
+dbc:setCursor(false)
+for _dc,adc in ipairs(_ba["mouse_click"])do
+if
+(daa["mouse_click"][adc]~=nil)then for bdc,cdc in dc(daa["mouse_click"][adc])do
+if(cdc.mouseHandler~=nil)then if
+(cdc:mouseHandler(_cc,acc,bcc))then return true end end end end end end
+if(b_b)then
+local _dc,adc=dbc:getAbsolutePosition(dbc:getAnchorPosition())if
+(acc>=_dc)and(acc<=_dc+dbc:getWidth()-1)and(bcc==adc)then c_b=true;_da=_dc-acc
+ada=yOff and 1 or 0 end end;dbc:removeFocusedObject()return true end;return false end,mouseUpHandler=function(dbc,_cc,acc,bcc)if
+(c_b)then c_b=false end
+if(d_a.mouseUpHandler(dbc,_cc,acc,bcc))then
+if
+(daa["mouse_up"]~=nil)then
+for ccc,dcc in ipairs(_ba["mouse_up"])do
+if(daa["mouse_up"][dcc]~=nil)then
+for _dc,adc in
+dc(daa["mouse_up"][dcc])do if(adc.mouseUpHandler~=nil)then
+if(adc:mouseUpHandler(_cc,acc,bcc))then return true end end end end end end;return true end;return false end,scrollHandler=function(dbc,_cc,acc,bcc)
+if
+(d_a.scrollHandler(dbc,_cc,acc,bcc))then
+if(daa["mouse_scroll"]~=nil)then
+for dcc,_dc in pairs(_ba["mouse_scroll"])do
+if(
+daa["mouse_scroll"][_dc]~=nil)then
+for adc,bdc in dc(daa["mouse_scroll"][_dc])do if(bdc.scrollHandler~=
+nil)then
+if(bdc:scrollHandler(_cc,acc,bcc))then return true end end end end end end;local ccc=bcb
+if(bda)then cbc(dbc)if(_cc>0)or(_cc<0)then
+bcb=dd(cd(bcb-_cc,0),-cda)dbc:updateDraw()end end;if(bcb==ccc)then return false end;dbc:removeFocusedObject()
+return true end;return false end,hoverHandler=function(dbc,_cc,acc,bcc)
+if
+(d_a.hoverHandler(dbc,_cc,acc,bcc))then
+if(daa["mouse_move"]~=nil)then
+for ccc,dcc in pairs(_ba["mouse_move"])do
+if(
+daa["mouse_move"][dcc]~=nil)then for _dc,adc in dc(daa["mouse_move"][dcc])do
+if
+(adc.hoverHandler~=nil)then if(adc:hoverHandler(_cc,acc,bcc))then return true end end end end end end end;return false end,dragHandler=function(dbc,_cc,acc,bcc)
+if
+(c_b)then local ccc,dcc=dbc.parent:getOffsetInternal()ccc=ccc<0 and
+d_c.abs(ccc)or-ccc;dcc=dcc<0 and d_c.abs(dcc)or-
+dcc;local _dc=1;local adc=1;if(dbc.parent~=nil)then
+_dc,adc=dbc.parent:getAbsolutePosition(dbc.parent:getAnchorPosition())end
+dbc:setPosition(
+acc+_da- (_dc-1)+ccc,bcc+ada- (adc-1)+dcc)dbc:updateDraw()return true end
+if(dbc:isVisible())and(dbc:isEnabled())then
+if
+(daa["mouse_drag"]~=nil)then
+for ccc,dcc in ipairs(_ba["mouse_drag"])do
+if
+(daa["mouse_drag"][dcc]~=nil)then for _dc,adc in dc(daa["mouse_drag"][dcc])do
+if(adc.dragHandler~=nil)then if
+(adc:dragHandler(_cc,acc,bcc))then return true end end end end end end end;d_a.dragHandler(dbc,_cc,acc,bcc)return false end,keyHandler=function(dbc,_cc,acc)
+if
+(dbc:isFocused())or(dbc.parent==nil)then
+local bcc=dbc:getEventSystem():sendEvent("key",dbc,"key",_cc)if(bcc==false)then return false end
+if(daa["key"]~=nil)then
+for ccc,dcc in pairs(_ba["key"])do
+if(
+daa["key"][dcc]~=nil)then
+for _dc,adc in dc(daa["key"][dcc])do if(adc.keyHandler~=nil)then if
+(adc:keyHandler(_cc,acc))then return true end end end end end end end;return false end,keyUpHandler=function(dbc,_cc)
+if
+(dbc:isFocused())or(dbc.parent==nil)then
+local acc=dbc:getEventSystem():sendEvent("key_up",dbc,"key_up",_cc)if(acc==false)then return false end
+if(daa["key_up"]~=nil)then
+for bcc,ccc in
+pairs(_ba["key_up"])do
+if(daa["key_up"][ccc]~=nil)then for dcc,_dc in dc(daa["key_up"][ccc])do
+if(
+_dc.keyUpHandler~=nil)then if(_dc:keyUpHandler(_cc))then return true end end end end end end end;return false end,charHandler=function(dbc,_cc)
+if
+(dbc:isFocused())or(dbc.parent==nil)then
+local acc=dbc:getEventSystem():sendEvent("char",dbc,"char",_cc)if(acc==false)then return false end
+if(daa["char"]~=nil)then
+for bcc,ccc in
+pairs(_ba["char"])do
+if(daa["char"][ccc]~=nil)then for dcc,_dc in dc(daa["char"][ccc])do
+if
+(_dc.charHandler~=nil)then if(_dc:charHandler(_cc))then return true end end end end end end end;return false end,setText=function(dbc,_cc,acc,bcc)
+local ccc,dcc=dbc:getAnchorPosition()
+if(acc>=1)and(acc<=dbc:getHeight())then
+if(dbc.parent~=nil)then
+dbc.parent:setText(dd(
+_cc+ (ccc-1),ccc),dcc+acc-1,bd(bcc,dd(1 -_cc+1,1),dd(
+dbc:getWidth()-_cc+1,1)))else
+abb.setText(dd(_cc+ (ccc-1),ccc),dcc+acc-1,bd(bcc,dd(1 -_cc+1,1),dd(
+dbc:getWidth()-_cc+1,1)))end end end,setBG=function(dbc,_cc,acc,bcc)
+local ccc,dcc=dbc:getAnchorPosition()
+if(acc>=1)and(acc<=dbc:getHeight())then
+if(dbc.parent~=nil)then
+dbc.parent:setBG(dd(
+_cc+ (ccc-1),ccc),dcc+acc-1,bd(bcc,dd(1 -_cc+1,1),dd(
+dbc:getWidth()-_cc+1,1)))else
+abb.setBG(dd(_cc+ (ccc-1),ccc),dcc+acc-1,bd(bcc,dd(1 -_cc+1,1),dd(
+dbc:getWidth()-_cc+1,1)))end end end,setFG=function(dbc,_cc,acc,bcc)
+local ccc,dcc=dbc:getAnchorPosition()
+if(acc>=1)and(acc<=dbc:getHeight())then
+if(dbc.parent~=nil)then
+dbc.parent:setFG(dd(
+_cc+ (ccc-1),ccc),dcc+acc-1,bd(bcc,dd(1 -_cc+1,1),dd(
+dbc:getWidth()-_cc+1,1)))else
+abb.setFG(dd(_cc+ (ccc-1),ccc),dcc+acc-1,bd(bcc,dd(1 -_cc+1,1),dd(
+dbc:getWidth()-_cc+1,1)))end end end,writeText=function(dbc,_cc,acc,bcc,ccc,dcc)
+local _dc,adc=dbc:getAnchorPosition()
+if(acc>=1)and(acc<=dbc:getHeight())then
+if(dbc.parent~=nil)then
+dbc.parent:writeText(dd(
+_cc+ (_dc-1),_dc),adc+acc-1,bd(bcc,dd(1 -_cc+1,1),
+dbc:getWidth()-_cc+1),ccc,dcc)else
+abb.writeText(dd(_cc+ (_dc-1),_dc),adc+acc-1,bd(bcc,dd(1 -_cc+1,1),dd(
+dbc:getWidth()-_cc+1,1)),ccc,dcc)end end end,blit=function(dbc,_cc,acc,bcc,ccc,dcc)
+local _dc,adc=dbc:getAnchorPosition()
+if(acc>=1)and(acc<=dbc:getHeight())then
+local bdc=dbc:getWidth()
+if(dbc.parent~=nil)then
+bcc=bd(bcc,dd(1 -_cc+1,1),bdc-_cc+1)ccc=bd(ccc,dd(1 -_cc+1,1),bdc-_cc+1)dcc=bd(dcc,dd(
+1 -_cc+1,1),bdc-_cc+1)
+dbc.parent:blit(dd(
+_cc+ (_dc-1),_dc),adc+acc-1,bcc,ccc,dcc)else
+bcc=bd(bcc,dd(1 -_cc+1,1),dd(bdc-_cc+1,1))
+ccc=bd(ccc,dd(1 -_cc+1,1),dd(bdc-_cc+1,1))
+dcc=bd(dcc,dd(1 -_cc+1,1),dd(bdc-_cc+1,1))
+abb.blit(dd(_cc+ (_dc-1),_dc),adc+acc-1,bcc,ccc,dcc)end end end,drawBackgroundBox=function(dbc,_cc,acc,bcc,ccc,dcc)
+local _dc,adc=dbc:getAnchorPosition()
+ccc=(acc<1 and(
+ccc+acc>dbc:getHeight()and dbc:getHeight()or ccc+acc-1)or(
+ccc+
+acc>dbc:getHeight()and dbc:getHeight()-acc+1 or ccc))
+bcc=(_cc<1 and(bcc+_cc>dbc:getWidth()and dbc:getWidth()or bcc+
+_cc-1)or(
+
+bcc+_cc>dbc:getWidth()and dbc:getWidth()-_cc+1 or bcc))
+if(dbc.parent~=nil)then
+dbc.parent:drawBackgroundBox(dd(_cc+ (_dc-1),_dc),dd(acc+ (adc-1),adc),bcc,ccc,dcc)else
+abb.drawBackgroundBox(dd(_cc+ (_dc-1),_dc),dd(acc+ (adc-1),adc),bcc,ccc,dcc)end end,drawTextBox=function(dbc,_cc,acc,bcc,ccc,dcc)
+local _dc,adc=dbc:getAnchorPosition()
+ccc=(acc<1 and(
+ccc+acc>dbc:getHeight()and dbc:getHeight()or ccc+acc-1)or(
+ccc+
+acc>dbc:getHeight()and dbc:getHeight()-acc+1 or ccc))
+bcc=(_cc<1 and(bcc+_cc>dbc:getWidth()and dbc:getWidth()or bcc+
+_cc-1)or(
+
+bcc+_cc>dbc:getWidth()and dbc:getWidth()-_cc+1 or bcc))
+if(dbc.parent~=nil)then
+dbc.parent:drawTextBox(dd(_cc+ (_dc-1),_dc),dd(acc+ (adc-1),adc),bcc,ccc,bd(dcc,1,1))else
+abb.drawTextBox(dd(_cc+ (_dc-1),_dc),dd(acc+ (adc-1),adc),bcc,ccc,bd(dcc,1,1))end end,drawForegroundBox=function(dbc,_cc,acc,bcc,ccc,dcc)
+local _dc,adc=dbc:getAnchorPosition()
+ccc=(acc<1 and(
+ccc+acc>dbc:getHeight()and dbc:getHeight()or ccc+acc-1)or(
+ccc+
+acc>dbc:getHeight()and dbc:getHeight()-acc+1 or ccc))
+bcc=(_cc<1 and(bcc+_cc>dbc:getWidth()and dbc:getWidth()or bcc+
+_cc-1)or(
+
+bcc+_cc>dbc:getWidth()and dbc:getWidth()-_cc+1 or bcc))
+if(dbc.parent~=nil)then
+dbc.parent:drawForegroundBox(dd(_cc+ (_dc-1),_dc),dd(acc+ (adc-1),adc),bcc,ccc,dcc)else
+abb.drawForegroundBox(dd(_cc+ (_dc-1),_dc),dd(acc+ (adc-1),adc),bcc,ccc,dcc)end end,draw=function(dbc,_cc)if
+(bca)and not(dca)then return false end
+if(dbc.parent==nil)then if(dbc:getDraw()==
+false)then return false end end
+if(d_a.draw(dbc))then
+local acc,bcc=dbc:getAbsolutePosition(dbc:getAnchorPosition())local ccc,dcc=dbc:getAnchorPosition()local _dc,adc=dbc:getSize()
+if(
+dbc.parent==nil)then
+if(dbc.bgColor~=false)then
+abb.drawBackgroundBox(ccc,dcc,_dc,adc,dbc.bgColor)abb.drawTextBox(ccc,dcc,_dc,adc," ")end;if(dbc.fgColor~=false)then
+abb.drawForegroundBox(ccc,dcc,_dc,adc,dbc.fgColor)end end
+if(dbc.barActive)then
+if(dbc.parent~=nil)then
+dbc.parent:writeText(ccc,dcc,_c.getTextHorizontalAlign(dbc.barText,_dc,dbc.barTextAlign),dbc.barBackground,dbc.barTextcolor)else
+abb.writeText(ccc,dcc,_c.getTextHorizontalAlign(dbc.barText,_dc,dbc.barTextAlign),dbc.barBackground,dbc.barTextcolor)end
+if(dbc:getBorder("left"))then
+if(dbc.parent~=nil)then
+dbc.parent:drawBackgroundBox(ccc-1,dcc,1,1,dbc.barBackground)if(dbc.bgColor~=false)then
+dbc.parent:drawBackgroundBox(ccc-1,dcc+1,1,adc-1,dbc.bgColor)end end end
+if(dbc:getBorder("top"))then if(dbc.parent~=nil)then
+dbc.parent:drawBackgroundBox(ccc-1,dcc-1,_dc+1,1,dbc.barBackground)end end end;for bdc,cdc in dc(baa)do
+if(aaa[cdc]~=nil)then for ddc,__d in pairs(aaa[cdc])do
+if(__d.draw~=nil)then __d:draw()end end end end end end,updateTerm=function(dbc)if
+(bca)and not(dca)then return false end;abb.update()end,addObject=function(dbc,_cc)return
+cdb(_cc)end,removeObject=__c,getObject=function(dbc,_cc)return adb(_cc)end,getDeepObject=function(dbc,_cc)return bdb(_cc)end,addFrame=function(dbc,_cc)local acc=c_a.newFrame(
+_cc or cc(),dbc,nil,c_a)return cdb(acc)end,init=function(dbc)
+if
+not(cab)then
+if(a_a~=nil)then d_a.width,d_a.height=a_a:getSize()
+dbc:setBackground(a_a:getTheme("FrameBG"))
+dbc:setForeground(a_a:getTheme("FrameText"))else d_a.width,d_a.height=_ca.getSize()
+dbc:setBackground(c_a.getTheme("BasaltBG"))
+dbc:setForeground(c_a.getTheme("BasaltText"))end;cab=true end end}
+for dbc,_cc in pairs(cb)do caa["add"..dbc]=function(acc,bcc)
+return cdb(_cc(bcc or cc(),acc))end end;setmetatable(caa,d_a)return caa end end;aa["objects"]={}
+aa["objects"]["Image"]=function(...)local ab=da("Object")
+local bb=da("utils").getValueFromXML;local cb=da("images")local db,_c=table.unpack,string.sub
+return
+function(ac)local bc=ab(ac)
+local cc="Image"bc:setZIndex(2)local dc;local _d;local ad=1;local bd=false;local cd;local dd=false;bc.width=24
+bc.height=8
+local function __a(b_a)
+if(dc~=nil)then local c_a={}
+for d_a,_aa in pairs(colors)do if(type(_aa)=="number")then
+c_a[d_a]={term.nativePaletteColor(_aa)}end end;if(dc.palette~=nil)then
+for d_a,_aa in pairs(dc.palette)do c_a[d_a]=tonumber(_aa)end end
+if(dc[b_a]~=nil)and
+(dc[b_a].palette~=nil)then for d_a,_aa in pairs(dc[b_a].palette)do
+c_a[d_a]=tonumber(_aa)end end;return c_a end end
+local a_a={init=function(b_a)if(bc.init(b_a))then
+b_a.bgColor=b_a.parent:getTheme("ImageBG")end end,getType=function(b_a)return
+cc end,loadImage=function(b_a,c_a,d_a)if not(fs.exists(c_a))then
+error("No valid path: "..c_a)end;dc=cb.loadImageAsBimg(c_a,d_a)
+ad=1;_d=dc;if(cd~=nil)then os.cancelTimer(cd)end
+b_a:updateDraw()return b_a end,setImage=function(b_a,c_a)
+dc=c_a;_d=dc;ad=1;if(cd~=nil)then os.cancelTimer(cd)end
+b_a:updateDraw()return b_a end,usePalette=function(b_a,c_a)dd=
+c_a~=nil and c_a or true;return b_a end,play=function(b_a,c_a)
+if(dc.animated)then
+local d_a=
+dc[ad].duration or dc.secondsPerFrame or 0.2;b_a.parent:addEvent("other_event",b_a)
+cd=os.startTimer(d_a)bd=c_a or false end;return b_a end,selectFrame=function(b_a,c_a)if(
+dc[c_a]~=nil)then ad=c_a;if(cd~=nil)then os.cancelTimer(cd)end
+b_a:updateDraw()end end,eventHandler=function(b_a,c_a,d_a,...)
+bc.eventHandler(b_a,c_a,d_a,...)
+if(c_a=="timer")then
+if(d_a==cd)then
+if(dc[ad+1]~=nil)then ad=ad+1;local _aa=
+dc[ad].duration or dc.secondsPerFrame or 0.2
+cd=os.startTimer(_aa)else
+if(bd)then ad=1
+local _aa=dc[ad].duration or dc.secondsPerFrame or 0.2;cd=os.startTimer(_aa)end end;b_a:updateDraw()end end end,getMetadata=function(b_a,c_a)return
+dc[c_a]end,getImageSize=function(b_a)return dc.width,dc.height end,resizeImage=function(b_a,c_a,d_a)
+_d=cb.resizeBIMG(dc,c_a,d_a)b_a:updateDraw()return b_a end,setValuesByXMLData=function(b_a,c_a)
+bc.setValuesByXMLData(b_a,c_a)
+if(bb("path",c_a)~=nil)then b_a:loadImage(bb("path",c_a))end;return b_a end,draw=function(b_a)
+if
+(bc.draw(b_a))then
+if(_d~=nil)then if(dd)then
+b_a:getBaseFrame():setThemeColor(__a(ad))end;local c_a,d_a=b_a:getAnchorPosition()
+local _aa,aaa=b_a:getSize()
+for baa,caa in ipairs(_d[ad])do local daa,_ba,aba=db(caa)daa=_c(daa,1,_aa)
+_ba=_c(_ba,1,_aa)aba=_c(aba,1,_aa)
+b_a.parent:blit(c_a,d_a+baa-1,daa,_ba,aba)if(baa==aaa)then break end end end end end}return setmetatable(a_a,bc)end end
+aa["objects"]["Graphic"]=function(...)local ab=da("Object")local bb=da("tHex")
+local cb=da("utils").getValueFromXML;local db=da("bimg")local _c=da("images")
+local ac,bc,cc,dc=string.sub,string.len,math.max,math.min
+return
+function(_d)local ad=ab(_d)local bd="Graphic"local cd=db()local dd=cd.getFrameObject(1)local __a
+local a_a=1;ad:setZIndex(5)local b_a,c_a=0,0
+local d_a={getType=function(_aa)return bd end,setOffset=function(_aa,aaa,baa,caa)
+if(caa)then
+b_a=b_a+aaa or 0;c_a=c_a+baa or 0 else b_a=aaa or b_a;c_a=baa or c_a end;_aa:updateDraw()return _aa end,getOffset=function(_aa)return
+b_a,c_a end,setValuesByXMLData=function(_aa,aaa)ad.setValuesByXMLData(_aa,aaa)return _aa end,selectFrame=function(_aa,aaa)if(
+cd.getFrameObject(aaa)==nil)then cd.addFrame(aaa)end
+dd=cd.getFrameObject(aaa)__a=dd.getImage(aaa)a_a=aaa;_aa:updateDraw()end,addFrame=function(_aa,aaa)
+cd.addFrame(aaa)return _aa end,getFrameMetadata=function(_aa,aaa,baa)return cd.getFrameData(aaa,baa)end,setFrameMetadata=function(_aa,aaa,baa,caa)
+cd.setFrameData(aaa,baa,caa)return _aa end,getMetadata=function(_aa,aaa)return cd.getMetadata(aaa)end,setMetadata=function(_aa,aaa,baa)return
+cd.setMetadata(aaa,baa)end,getFrame=function(_aa,aaa)return cd.getFrame(aaa)end,getFrameObject=function(_aa,aaa)return
+cd.getFrameObject(aaa)end,removeFrame=function(_aa,aaa)cd.removeFrame(aaa)return _aa end,moveFrame=function(_aa,aaa,baa)
+cd.moveFrame(aaa,baa)return _aa end,getFrames=function(_aa)return cd.getFrames()end,getFrameCount=function(_aa)return
+#cd.getFrames()end,getSelectedFrame=function(_aa)return a_a end,blit=function(_aa,aaa,baa,caa,daa,_ba)
+x=daa or x;y=_ba or y;dd.blit(aaa,baa,caa,x,y)__a=dd.getImage()
+_aa:updateDraw()return _aa end,setText=function(_aa,aaa,baa,caa)
+x=baa or x;y=caa or y;dd.text(aaa,x,y)__a=dd.getImage()
+_aa:updateDraw()return _aa end,setBg=function(_aa,aaa,baa,caa)x=baa or x;y=
+caa or y;dd.bg(aaa,x,y)__a=dd.getImage()
+_aa:updateDraw()return _aa end,setFg=function(_aa,aaa,baa,caa)x=baa or x;y=caa or
+y;dd.fg(aaa,x,y)__a=dd.getImage()
+_aa:updateDraw()return _aa end,getImageSize=function(_aa)
+return cd.getSize()end,setImageSize=function(_aa,aaa,baa)cd.setSize(aaa,baa)__a=dd.getImage()
+_aa:updateDraw()return _aa end,resizeImage=function(_aa,aaa,baa)
+local caa=_c.resizeBIMG(cd.createBimg(),aaa,baa)cd=db(caa)a_a=1;dd=cd.getFrameObject(1)__a=dd.getImage()
+_aa:updateDraw()return _aa end,loadImage=function(_aa,aaa)
+if
+(fs.exists(aaa))then local baa=_c.loadBIMG(aaa)cd=db(baa)a_a=1
+dd=cd.getFrameObject(1)__a=dd.getImage()_aa:updateDraw()end;return _aa end,clear=function(_aa)
+cd=db()__a=nil;_aa:updateDraw()return _aa end,getImage=function(_aa)return
+cd.createBimg()end,draw=function(_aa)
+if(ad.draw(_aa))then
+if(_aa.parent~=nil)then
+local aaa,baa=_aa:getAnchorPosition()local caa,daa=_aa:getSize()
+if(__a~=nil)then
+for _ba,aba in pairs(__a)do if
+(_ba<=daa-c_a)and(_ba+c_a>=1)then
+_aa.parent:blit(aaa+b_a,baa+_ba-1 +c_a,aba[1],aba[2],aba[3])end end end end end end,init=function(_aa)
+if
+(ad.init(_aa))then _aa.bgColor=_aa.parent:getTheme("GraphicBG")end end}return setmetatable(d_a,ad)end end
+aa["objects"]["Menubar"]=function(...)local ab=da("Object")local bb=da("utils")
+local cb=bb.getValueFromXML;local db=da("tHex")
+return
+function(_c)local ac=ab(_c)local bc="Menubar"local cc={}ac.width=30;ac.height=1
+ac:setZIndex(5)local dc={}local _d;local ad;local bd=true;local cd="left"local dd=0;local __a=1;local a_a=false
+local function b_a()local c_a=0;local d_a=0
+local _aa=cc:getWidth()
+for n=1,#dc do if(d_a+dc[n].text:len()+__a*2 >_aa)then
+if(
+d_a<_aa)then
+c_a=c_a+ (dc[n].text:len()+__a*2 - (_aa-d_a))else c_a=c_a+dc[n].text:len()+__a*2 end end;d_a=
+d_a+dc[n].text:len()+__a*2 end;return c_a end
+cc={getType=function(c_a)return bc end,addItem=function(c_a,d_a,_aa,aaa,...)
+table.insert(dc,{text=tostring(d_a),bgCol=_aa or c_a.bgColor,fgCol=aaa or c_a.fgColor,args={...}})if(#dc==1)then c_a:setValue(dc[1])end
+c_a:updateDraw()return c_a end,getAll=function(c_a)return
+dc end,getItemIndex=function(c_a)local d_a=c_a:getValue()for _aa,aaa in pairs(dc)do
+if(aaa==d_a)then return _aa end end end,clear=function(c_a)
+dc={}c_a:setValue({},false)c_a:updateDraw()return c_a end,setSpace=function(c_a,d_a)__a=
+d_a or __a;c_a:updateDraw()return c_a end,setOffset=function(c_a,d_a)dd=
+d_a or 0;if(dd<0)then dd=0 end;local _aa=b_a()if(dd>_aa)then dd=_aa end
+c_a:updateDraw()return c_a end,getOffset=function(c_a)return dd end,setScrollable=function(c_a,d_a)
+a_a=d_a;if(d_a==nil)then a_a=true end;return c_a end,setValuesByXMLData=function(c_a,d_a)
+ac.setValuesByXMLData(c_a,d_a)if(cb("selectionBG",d_a)~=nil)then
+_d=colors[cb("selectionBG",d_a)]end;if(cb("selectionFG",d_a)~=nil)then
+ad=colors[cb("selectionFG",d_a)]end;if(cb("scrollable",d_a)~=nil)then
+if
+(cb("scrollable",d_a))then c_a:setScrollable(true)else c_a:setScrollable(false)end end
+if(
+cb("offset",d_a)~=nil)then c_a:setOffset(cb("offset",d_a))end
+if(cb("space",d_a)~=nil)then __a=cb("space",d_a)end
+if(d_a["item"]~=nil)then local _aa=d_a["item"]
+if(_aa.properties~=nil)then _aa={_aa}end;for aaa,baa in pairs(_aa)do
+c_a:addItem(cb("text",baa),colors[cb("bg",baa)],colors[cb("fg",baa)])end end;return c_a end,removeItem=function(c_a,d_a)
+table.remove(dc,d_a)c_a:updateDraw()return c_a end,getItem=function(c_a,d_a)
+return dc[d_a]end,getItemCount=function(c_a)return#dc end,editItem=function(c_a,d_a,_aa,aaa,baa,...)table.remove(dc,d_a)
+table.insert(dc,d_a,{text=_aa,bgCol=
+aaa or c_a.bgColor,fgCol=baa or c_a.fgColor,args={...}})c_a:updateDraw()return c_a end,selectItem=function(c_a,d_a)c_a:setValue(
+dc[d_a]or{},false)c_a:updateDraw()return c_a end,setSelectedItem=function(c_a,d_a,_aa,aaa)_d=
+d_a or c_a.bgColor;ad=_aa or c_a.fgColor;bd=aaa
+c_a:updateDraw()return c_a end,mouseHandler=function(c_a,d_a,_aa,aaa)
+if
+(ac.mouseHandler(c_a,d_a,_aa,aaa))then
+local baa,caa=c_a:getAbsolutePosition(c_a:getAnchorPosition())local daa,_ba=c_a:getSize()local aba=0
+for n=1,#dc do
+if(dc[n]~=nil)then
+if
+(baa+aba<=_aa+dd)and(baa+aba+
+dc[n].text:len()+ (__a*2)>_aa+dd)and(caa==aaa)then
+c_a:setValue(dc[n])
+c_a:getEventSystem():sendEvent(event,c_a,event,0,_aa,aaa,dc[n])end;aba=aba+dc[n].text:len()+__a*2 end end;c_a:updateDraw()return true end;return false end,scrollHandler=function(c_a,d_a,_aa,aaa)
+if
+(ac.scrollHandler(c_a,d_a,_aa,aaa))then if(a_a)then dd=dd+d_a;if(dd<0)then dd=0 end;local baa=b_a()if(dd>baa)then dd=baa end
+c_a:updateDraw()end;return true end;return false end,draw=function(c_a)
+if
+(ac.draw(c_a))then
+if(c_a.parent~=nil)then local d_a,_aa=c_a:getAnchorPosition()
+local aaa,baa=c_a:getSize()if(c_a.bgColor~=false)then
+c_a.parent:drawBackgroundBox(d_a,_aa,aaa,baa,c_a.bgColor)end;local caa=""local daa=""local _ba=""
+for aba,bba in pairs(dc)do
+local cba=
+(" "):rep(__a)..bba.text.. (" "):rep(__a)caa=caa..cba
+if(bba==c_a:getValue())then daa=daa..
+db[_d or bba.bgCol or c_a.bgColor]:rep(cba:len())_ba=_ba..
+db[
+ad or bba.FgCol or c_a.fgColor]:rep(cba:len())else daa=daa..
+db[bba.bgCol or c_a.bgColor]:rep(cba:len())_ba=_ba..
+db[bba.FgCol or c_a.fgColor]:rep(cba:len())end end
+c_a.parent:setText(d_a,_aa,caa:sub(dd+1,aaa+dd))
+c_a.parent:setBG(d_a,_aa,daa:sub(dd+1,aaa+dd))
+c_a.parent:setFG(d_a,_aa,_ba:sub(dd+1,aaa+dd))end end end,init=function(c_a)
+c_a.parent:addEvent("mouse_click",c_a)c_a.parent:addEvent("mouse_scroll",c_a)
+if
+(ac.init(c_a))then c_a.bgColor=c_a.parent:getTheme("MenubarBG")
+c_a.fgColor=c_a.parent:getTheme("MenubarText")_d=c_a.parent:getTheme("SelectionBG")
+ad=c_a.parent:getTheme("SelectionText")end end}return setmetatable(cc,ac)end end
+aa["objects"]["Dropdown"]=function(...)local ab=da("Object")local bb=da("utils")
+local cb=da("utils").getValueFromXML
+return
+function(db)local _c=ab(db)local ac="Dropdown"_c.width=12;_c.height=1;_c:setZIndex(6)
+local bc={}local cc;local dc;local _d=true;local ad="left"local bd=0;local cd=16;local dd=6;local __a="\16"local a_a="\31"local b_a=false
+local c_a={getType=function(d_a)return
+ac end,setValuesByXMLData=function(d_a,_aa)_c.setValuesByXMLData(d_a,_aa)
+if(
+cb("selectionBG",_aa)~=nil)then cc=colors[cb("selectionBG",_aa)]end;if(cb("selectionFG",_aa)~=nil)then
+dc=colors[cb("selectionFG",_aa)]end;if(cb("dropdownWidth",_aa)~=nil)then
+cd=cb("dropdownWidth",_aa)end;if(cb("dropdownHeight",_aa)~=nil)then
+dd=cb("dropdownHeight",_aa)end;if(cb("offset",_aa)~=nil)then
+bd=cb("offset",_aa)end
+if(_aa["item"]~=nil)then local aaa=_aa["item"]if(
+aaa.properties~=nil)then aaa={aaa}end;for baa,caa in pairs(aaa)do
+d_a:addItem(cb("text",caa),colors[cb("bg",caa)],colors[cb("fg",caa)])end end end,setOffset=function(d_a,_aa)
+bd=_aa;d_a:updateDraw()return d_a end,getOffset=function(d_a)return bd end,addItem=function(d_a,_aa,aaa,baa,...)
+table.insert(bc,{text=_aa,bgCol=
+aaa or d_a.bgColor,fgCol=baa or d_a.fgColor,args={...}})d_a:updateDraw()return d_a end,getAll=function(d_a)return
+bc end,removeItem=function(d_a,_aa)table.remove(bc,_aa)d_a:updateDraw()
+return d_a end,getItem=function(d_a,_aa)return bc[_aa]end,getItemIndex=function(d_a)
+local _aa=d_a:getValue()for aaa,baa in pairs(bc)do if(baa==_aa)then return aaa end end end,clear=function(d_a)
+bc={}d_a:setValue({},false)d_a:updateDraw()return d_a end,getItemCount=function(d_a)return
+#bc end,editItem=function(d_a,_aa,aaa,baa,caa,...)table.remove(bc,_aa)
+table.insert(bc,_aa,{text=aaa,bgCol=baa or d_a.bgColor,fgCol=
+caa or d_a.fgColor,args={...}})d_a:updateDraw()return d_a end,selectItem=function(d_a,_aa)d_a:setValue(
+bc[_aa]or{},false)d_a:updateDraw()return d_a end,setSelectedItem=function(d_a,_aa,aaa,baa)cc=
+_aa or d_a.bgColor;dc=aaa or d_a.fgColor
+_d=baa~=nil and baa;d_a:updateDraw()return d_a end,setDropdownSize=function(d_a,_aa,aaa)
+cd,dd=_aa,aaa;d_a:updateDraw()return d_a end,getDropdownSize=function(d_a)return cd,dd end,mouseHandler=function(d_a,_aa,aaa,baa)
+if
+(b_a)then
+local caa,daa=d_a:getAbsolutePosition(d_a:getAnchorPosition())
+if(_aa==1)then
+if(#bc>0)then
+for n=1,dd do
+if(bc[n+bd]~=nil)then
+if(caa<=aaa)and(caa+cd>aaa)and
+(daa+n==baa)then d_a:setValue(bc[n+bd])
+d_a:updateDraw()
+local _ba=d_a:getEventSystem():sendEvent("mouse_click",d_a,"mouse_click",dir,aaa,baa)if(_ba==false)then return _ba end;return true end end end end end end
+if(_c.mouseHandler(d_a,_aa,aaa,baa))then b_a=(not b_a)d_a:updateDraw()
+return true else if(b_a)then d_a:updateDraw()b_a=false end;return false end end,mouseUpHandler=function(d_a,_aa,aaa,baa)
+if
+(b_a)then
+local caa,daa=d_a:getAbsolutePosition(d_a:getAnchorPosition())
+if(_aa==1)then
+if(#bc>0)then
+for n=1,dd do
+if(bc[n+bd]~=nil)then
+if(caa<=aaa)and(caa+cd>aaa)and
+(daa+n==baa)then b_a=false;d_a:updateDraw()
+local _ba=d_a:getEventSystem():sendEvent("mouse_up",d_a,"mouse_up",dir,aaa,baa)if(_ba==false)then return _ba end;return true end end end end end end end,scrollHandler=function(d_a,_aa,aaa,baa)
+if
+(b_a)and(d_a:isFocused())then bd=bd+_aa;if(bd<0)then bd=0 end;if(_aa==1)then
+if(#bc>dd)then if(bd>
+#bc-dd)then bd=#bc-dd end else bd=math.min(#bc-1,0)end end
+local caa=d_a:getEventSystem():sendEvent("mouse_scroll",d_a,"mouse_scroll",_aa,aaa,baa)if(caa==false)then return caa end;d_a:updateDraw()return true end end,draw=function(d_a)
+if
+(_c.draw(d_a))then local _aa,aaa=d_a:getAnchorPosition()local baa,caa=d_a:getSize()
+if(
+d_a.parent~=nil)then if(d_a.bgColor~=false)then
+d_a.parent:drawBackgroundBox(_aa,aaa,baa,caa,d_a.bgColor)end;local daa=d_a:getValue()
+local _ba=bb.getTextHorizontalAlign((
+daa~=nil and daa.text or""),baa,ad):sub(1,
+baa-1).. (b_a and a_a or __a)
+d_a.parent:writeText(_aa,aaa,_ba,d_a.bgColor,d_a.fgColor)
+if(b_a)then
+for n=1,dd do
+if(bc[n+bd]~=nil)then
+if(bc[n+bd]==daa)then
+if(_d)then
+d_a.parent:writeText(_aa,aaa+n,bb.getTextHorizontalAlign(bc[
+n+bd].text,cd,ad),cc,dc)else
+d_a.parent:writeText(_aa,aaa+n,bb.getTextHorizontalAlign(bc[n+bd].text,cd,ad),bc[
+n+bd].bgCol,bc[n+bd].fgCol)end else
+d_a.parent:writeText(_aa,aaa+n,bb.getTextHorizontalAlign(bc[n+bd].text,cd,ad),bc[
+n+bd].bgCol,bc[n+bd].fgCol)end end end end end end end,init=function(d_a)
+d_a.parent:addEvent("mouse_click",d_a)d_a.parent:addEvent("mouse_up",d_a)
+d_a.parent:addEvent("mouse_scroll",d_a)
+if(_c.init(d_a))then
+d_a.bgColor=d_a.parent:getTheme("DropdownBG")d_a.fgColor=d_a.parent:getTheme("DropdownText")
+cc=d_a.parent:getTheme("SelectionBG")dc=d_a.parent:getTheme("SelectionText")end end}return setmetatable(c_a,_c)end end
+aa["objects"]["List"]=function(...)local ab=da("Object")local bb=da("utils")
+local cb=bb.getValueFromXML
+return
+function(db)local _c=ab(db)local ac="List"_c.width=16;_c.height=6;_c:setZIndex(5)local bc={}
+local cc;local dc;local _d=true;local ad="left"local bd=0;local cd=true
+local dd={getType=function(__a)return ac end,addItem=function(__a,a_a,b_a,c_a,...)
+table.insert(bc,{text=a_a,bgCol=b_a or __a.bgColor,fgCol=
+c_a or __a.fgColor,args={...}})if(#bc<=1)then __a:setValue(bc[1],false)end
+__a:updateDraw()return __a end,setOffset=function(__a,a_a)
+bd=a_a;__a:updateDraw()return __a end,getOffset=function(__a)return bd end,removeItem=function(__a,a_a)
+table.remove(bc,a_a)__a:updateDraw()return __a end,getItem=function(__a,a_a)
+return bc[a_a]end,getAll=function(__a)return bc end,getItemIndex=function(__a)local a_a=__a:getValue()for b_a,c_a in pairs(bc)do if
+(c_a==a_a)then return b_a end end end,clear=function(__a)
+bc={}__a:setValue({},false)__a:updateDraw()return __a end,getItemCount=function(__a)return
+#bc end,editItem=function(__a,a_a,b_a,c_a,d_a,...)table.remove(bc,a_a)
+table.insert(bc,a_a,{text=b_a,bgCol=c_a or __a.bgColor,fgCol=
+d_a or __a.fgColor,args={...}})__a:updateDraw()return __a end,selectItem=function(__a,a_a)__a:setValue(
+bc[a_a]or{},false)__a:updateDraw()return __a end,setSelectedItem=function(__a,a_a,b_a,c_a)cc=
+a_a or __a.bgColor;dc=b_a or __a.fgColor;_d=c_a~=nil and c_a or
+true;__a:updateDraw()return __a end,setScrollable=function(__a,a_a)
+cd=a_a;if(a_a==nil)then cd=true end;__a:updateDraw()return __a end,setValuesByXMLData=function(__a,a_a)
+_c.setValuesByXMLData(__a,a_a)if(cb("selectionBG",a_a)~=nil)then
+cc=colors[cb("selectionBG",a_a)]end;if(cb("selectionFG",a_a)~=nil)then
+dc=colors[cb("selectionFG",a_a)]end;if(cb("scrollable",a_a)~=nil)then
+if
+(cb("scrollable",a_a))then __a:setScrollable(true)else __a:setScrollable(false)end end;if(
+cb("offset",a_a)~=nil)then bd=cb("offset",a_a)end
+if(a_a["item"]~=
+nil)then local b_a=a_a["item"]
+if(b_a.properties~=nil)then b_a={b_a}end;for c_a,d_a in pairs(b_a)do
+__a:addItem(cb("text",d_a),colors[cb("bg",d_a)],colors[cb("fg",d_a)])end end;return __a end,scrollHandler=function(__a,a_a,b_a,c_a)
+if
+(_c.scrollHandler(__a,a_a,b_a,c_a))then
+if(cd)then local d_a,_aa=__a:getSize()bd=bd+a_a;if(bd<0)then bd=0 end
+if(a_a>=1)then if(#bc>_aa)then if(bd>
+#bc-_aa)then bd=#bc-_aa end;if(bd>=#bc)then bd=#bc-1 end else bd=
+bd-1 end end;__a:updateDraw()end;return true end;return false end,mouseHandler=function(__a,a_a,b_a,c_a)
+if
+(_c.mouseHandler(__a,a_a,b_a,c_a))then
+local d_a,_aa=__a:getAbsolutePosition(__a:getAnchorPosition())local aaa,baa=__a:getSize()
+if(#bc>0)then for n=1,baa do
+if(bc[n+bd]~=nil)then if(d_a<=b_a)and
+(d_a+aaa>b_a)and(_aa+n-1 ==c_a)then
+__a:setValue(bc[n+bd])__a:updateDraw()end end end end;return true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)return
+__a:mouseHandler(a_a,b_a,c_a)end,touchHandler=function(__a,a_a,b_a)return
+__a:mouseHandler(1,a_a,b_a)end,draw=function(__a)
+if(_c.draw(__a))then
+if
+(__a.parent~=nil)then local a_a,b_a=__a:getAnchorPosition()local c_a,d_a=__a:getSize()if(
+__a.bgColor~=false)then
+__a.parent:drawBackgroundBox(a_a,b_a,c_a,d_a,__a.bgColor)end
+for n=1,d_a do
+if(bc[n+bd]~=nil)then
+if(bc[n+bd]==
+__a:getValue())then
+if(_d)then
+__a.parent:writeText(a_a,b_a+n-1,bb.getTextHorizontalAlign(bc[n+bd].text,c_a,ad),cc,dc)else
+__a.parent:writeText(a_a,b_a+n-1,bb.getTextHorizontalAlign(bc[n+bd].text,c_a,ad),bc[
+n+bd].bgCol,bc[n+bd].fgCol)end else
+__a.parent:writeText(a_a,b_a+n-1,bb.getTextHorizontalAlign(bc[n+bd].text,c_a,ad),bc[
+n+bd].bgCol,bc[n+bd].fgCol)end end end end end end,init=function(__a)
+__a.parent:addEvent("mouse_click",__a)__a.parent:addEvent("mouse_drag",__a)
+__a.parent:addEvent("mouse_scroll",__a)
+if(_c.init(__a))then __a.bgColor=__a.parent:getTheme("ListBG")
+__a.fgColor=__a.parent:getTheme("ListText")cc=__a.parent:getTheme("SelectionBG")
+dc=__a.parent:getTheme("SelectionText")end end}return setmetatable(dd,_c)end end
+aa["objects"]["Checkbox"]=function(...)local ab=da("Object")local bb=da("utils")
+local cb=bb.getValueFromXML
+return
+function(db)local _c=ab(db)local ac="Checkbox"_c:setZIndex(5)
+_c:setValue(false)_c.width=1;_c.height=1;local bc="\42"
+local cc={getType=function(dc)return ac end,setSymbol=function(dc,_d)bc=_d
+dc:updateDraw()return dc end,mouseHandler=function(dc,_d,ad,bd)
+if(_c.mouseHandler(dc,_d,ad,bd))then
+if(_d==1)then
+if(
+dc:getValue()~=true)and(dc:getValue()~=false)then
+dc:setValue(false)else dc:setValue(not dc:getValue())end;dc:updateDraw()return true end end;return false end,touchHandler=function(dc,_d,ad)return
+dc:mouseHandler(1,_d,ad)end,setValuesByXMLData=function(dc,_d)
+_c.setValuesByXMLData(dc,_d)
+if(cb("checked",_d)~=nil)then if(cb("checked",_d))then dc:setValue(true)else
+dc:setValue(false)end end;return dc end,draw=function(dc)
+if
+(_c.draw(dc))then
+if(dc.parent~=nil)then local _d,ad=dc:getAnchorPosition()
+local bd,cd=dc:getSize()local dd=bb.getTextVerticalAlign(cd,"center")if
+(dc.bgColor~=false)then
+dc.parent:drawBackgroundBox(_d,ad,bd,cd,dc.bgColor)end
+for n=1,cd do
+if(n==dd)then
+if(dc:getValue()==true)then
+dc.parent:writeText(_d,
+ad+ (n-1),bb.getTextHorizontalAlign(bc,bd,"center"),dc.bgColor,dc.fgColor)else
+dc.parent:writeText(_d,ad+ (n-1),bb.getTextHorizontalAlign(" ",bd,"center"),dc.bgColor,dc.fgColor)end end end end end end,init=function(dc)
+dc.parent:addEvent("mouse_click",dc)dc.parent:addEvent("mouse_up",dc)
+if(_c.init(dc))then
+dc.bgColor=dc.parent:getTheme("CheckboxBG")dc.fgColor=dc.parent:getTheme("CheckboxText")end end}return setmetatable(cc,_c)end end
+aa["objects"]["Input"]=function(...)local ab=da("Object")local bb=da("utils")
+local cb=da("basaltLogs")local db=bb.getValueFromXML
+return
+function(_c)local ac=ab(_c)local bc="Input"local cc="text"local dc=0
+ac:setZIndex(5)ac:setValue("")ac.width=10;ac.height=1;local _d=1;local ad=1;local bd=""local cd;local dd
+local __a=bd;local a_a=false
+local b_a={getType=function(c_a)return bc end,setInputType=function(c_a,d_a)if(d_a=="password")or(d_a=="number")or(d_a==
+"text")then cc=d_a end
+c_a:updateDraw()return c_a end,setDefaultText=function(c_a,d_a,_aa,aaa)bd=d_a
+cd=aaa or cd;dd=_aa or dd;if(c_a:isFocused())then __a=""else __a=bd end
+c_a:updateDraw()return c_a end,getInputType=function(c_a)
+return cc end,setValue=function(c_a,d_a)ac.setValue(c_a,tostring(d_a))
+if not(a_a)then _d=
+tostring(d_a):len()+1
+ad=math.max(1,_d-c_a:getWidth()+1)if(c_a:isFocused())then local _aa,aaa=c_a:getAnchorPosition()
+c_a.parent:setCursor(true,
+_aa+_d-ad,aaa+math.floor(c_a:getHeight()/2),c_a.fgColor)end end;c_a:updateDraw()return c_a end,getValue=function(c_a)
+local d_a=ac.getValue(c_a)
+return cc=="number"and tonumber(d_a)or d_a end,setInputLimit=function(c_a,d_a)
+dc=tonumber(d_a)or dc;c_a:updateDraw()return c_a end,getInputLimit=function(c_a)return dc end,setValuesByXMLData=function(c_a,d_a)
+ac.setValuesByXMLData(c_a,d_a)local _aa,aaa
+if(db("defaultBG",d_a)~=nil)then _aa=db("defaultBG",d_a)end
+if(db("defaultFG",d_a)~=nil)then aaa=db("defaultFG",d_a)end;if(db("default",d_a)~=nil)then
+c_a:setDefaultText(db("default",d_a),aaa~=nil and colors[aaa],
+_aa~=nil and colors[_aa])end
+if(db("limit",d_a)~=
+nil)then c_a:setInputLimit(db("limit",d_a))end;if(db("type",d_a)~=nil)then
+c_a:setInputType(db("type",d_a))end;return c_a end,getFocusHandler=function(c_a)
+ac.getFocusHandler(c_a)
+if(c_a.parent~=nil)then local d_a,_aa=c_a:getAnchorPosition()__a=""if(bd~="")then
+c_a:updateDraw()end
+c_a.parent:setCursor(true,d_a+_d-ad,_aa+math.max(math.ceil(
+c_a:getHeight()/2 -1,1)),c_a.fgColor)end end,loseFocusHandler=function(c_a)
+ac.loseFocusHandler(c_a)if(c_a.parent~=nil)then __a=bd;if(bd~="")then c_a:updateDraw()end
+c_a.parent:setCursor(false)end end,keyHandler=function(c_a,d_a)
+if
+(ac.keyHandler(c_a,d_a))then local _aa,aaa=c_a:getSize()a_a=true
+if(d_a==keys.backspace)then
+local bba=tostring(ac.getValue())if(_d>1)then
+c_a:setValue(bba:sub(1,_d-2)..bba:sub(_d,bba:len()))if(_d>1)then _d=_d-1 end
+if(ad>1)then if(_dbba)then _d=bba+1 end;if(_d<1)then _d=1 end;if
+(_d=_aa+ad)then ad=_d-_aa+1 end;if(ad<1)then ad=1 end end
+if(d_a==keys.left)then _d=_d-1;if(_d>=1)then
+if(_d=_aa+ad)then ad=_d end end;if(_d<1)then _d=1 end;if(ad<1)then ad=1 end end;local baa,caa=c_a:getAnchorPosition()
+local daa=tostring(ac.getValue())
+local _ba=(_d<=daa:len()and _d-1 or daa:len())- (ad-1)local aba=c_a:getX()
+if(_ba>aba+_aa-1)then _ba=aba+_aa-1 end;if(c_a.parent~=nil)then
+c_a.parent:setCursor(true,baa+_ba,caa+
+math.max(math.ceil(aaa/2 -1,1)),c_a.fgColor)end
+c_a:updateDraw()a_a=false;return true end;return false end,charHandler=function(c_a,d_a)
+if
+(ac.charHandler(c_a,d_a))then a_a=true;local _aa,aaa=c_a:getSize()local baa=ac.getValue()
+if(
+baa:len()0)then
+if(
+tonumber(ac.getValue())==nil)then c_a:setValue(cba)_d=_d-1 end end end else
+c_a:setValue(baa:sub(1,_d-1)..d_a..baa:sub(_d,baa:len()))_d=_d+1 end;if(_d>=_aa+ad)then ad=ad+1 end end;local caa,daa=c_a:getAnchorPosition()
+local _ba=tostring(ac.getValue())
+local aba=(_d<=_ba:len()and _d-1 or _ba:len())- (ad-1)local bba=c_a:getX()
+if(aba>bba+_aa-1)then aba=bba+_aa-1 end;if(c_a.parent~=nil)then
+c_a.parent:setCursor(true,caa+aba,daa+
+math.max(math.ceil(aaa/2 -1,1)),c_a.fgColor)end;a_a=false
+c_a:updateDraw()return true end;return false end,mouseHandler=function(c_a,d_a,_aa,aaa)
+if
+(ac.mouseHandler(c_a,d_a,_aa,aaa))then local baa,caa=c_a:getAnchorPosition()
+local daa,_ba=c_a:getAbsolutePosition(baa,caa)local aba,bba=c_a:getSize()_d=_aa-daa+ad;local cba=ac.getValue()if(_d>
+cba:len())then _d=cba:len()+1 end;if(_d=baa+ad)then ad=(_d+1)-baa end
+local daa,_ba=c_a:getAnchorPosition()local aba=tostring(ac.getValue())
+local bba=(
+_d<=aba:len()and _d-1 or aba:len())- (ad-1)local cba=c_a:getX()
+if(bba>cba+baa-1)then bba=cba+baa-1 end;if(c_a.parent~=nil)then
+c_a.parent:setCursor(true,daa+bba,_ba+
+math.max(math.ceil(caa/2 -1,1)),c_a.fgColor)end
+c_a:updateDraw()a_a=false end end end,draw=function(c_a)
+if
+(ac.draw(c_a))then
+if(c_a.parent~=nil)then local d_a,_aa=c_a:getAnchorPosition()
+local aaa,baa=c_a:getSize()local caa=bb.getTextVerticalAlign(baa,"center")if
+(c_a.bgColor~=false)then
+c_a.parent:drawBackgroundBox(d_a,_aa,aaa,baa,c_a.bgColor)end
+for n=1,baa do
+if(n==caa)then
+local daa=tostring(ac.getValue())local _ba=c_a.bgColor;local aba=c_a.fgColor;local bba;if(daa:len()<=0)then bba=__a
+_ba=cd or _ba;aba=dd or aba end;bba=__a
+if(daa~="")then bba=daa end;bba=bba:sub(ad,aaa+ad-1)local cba=aaa-bba:len()if(cba<0)then
+cba=0 end;if(cc=="password")and(daa~="")then
+bba=string.rep("*",bba:len())end
+bba=bba..string.rep(c_a.bgSymbol,cba)
+c_a.parent:writeText(d_a,_aa+ (n-1),bba,_ba,aba)end end;if(c_a:isFocused())then
+c_a.parent:setCursor(true,d_a+_d-ad,_aa+
+math.floor(c_a:getHeight()/2),c_a.fgColor)end end end end,init=function(c_a)
+if(
+c_a.parent~=nil)then c_a.parent:addEvent("mouse_click",c_a)
+c_a.parent:addEvent("key",c_a)c_a.parent:addEvent("char",c_a)
+c_a.parent:addEvent("other_event",c_a)c_a.parent:addEvent("mouse_drag",c_a)end
+if(ac.init(c_a))then
+c_a.bgColor=c_a.parent:getTheme("InputBG")c_a.fgColor=c_a.parent:getTheme("InputText")end end}return setmetatable(b_a,ac)end end
+aa["objects"]["Button"]=function(...)local ab=da("Object")local bb=da("utils")
+local cb=bb.getValueFromXML;local db=da("tHex")
+return
+function(_c)local ac=ab(_c)local bc="Button"local cc="center"local dc="center"
+ac:setZIndex(5)ac:setValue("Button")ac.width=12;ac.height=3
+local _d={init=function(ad)
+if(ac.init(ad))then
+ad.bgColor=ad.parent:getTheme("ButtonBG")ad.fgColor=ad.parent:getTheme("ButtonText")end end,getType=function(ad)return bc end,setHorizontalAlign=function(ad,bd)
+cc=bd;ad:updateDraw()return ad end,setVerticalAlign=function(ad,bd)dc=bd
+ad:updateDraw()return ad end,setText=function(ad,bd)ac:setValue(tostring(bd))
+ad:updateDraw()return ad end,setValuesByXMLData=function(ad,bd)
+ac.setValuesByXMLData(ad,bd)
+if(cb("text",bd)~=nil)then ad:setText(cb("text",bd))end;if(cb("horizontalAlign",bd)~=nil)then
+cc=cb("horizontalAlign",bd)end;if(cb("verticalAlign",bd)~=nil)then
+dc=cb("verticalAlign",bd)end;return ad end,draw=function(ad)
+if
+(ac.draw(ad))then
+if(ad.parent~=nil)then local bd,cd=ad:getAnchorPosition()
+local dd,__a=ad:getSize()local a_a=bb.getTextVerticalAlign(__a,dc)
+for n=1,__a do
+if(n==a_a)then
+local b_a=ad:getValue()
+ad.parent:setText(bd+ (dd/2 -b_a:len()/2),cd+ (n-1),bb.getTextHorizontalAlign(b_a,b_a:len(),cc))
+ad.parent:setFG(bd+ (dd/2 -b_a:len()/2),cd+ (n-1),bb.getTextHorizontalAlign(db[ad.fgColor]:rep(b_a:len()),b_a:len(),cc))end end end end end}return setmetatable(_d,ac)end end
+aa["objects"]["Animation"]=function(...)local ab=da("utils").getValueFromXML
+local bb=da("basaltEvent")
+local cb,db,_c,ac,bc,cc=math.floor,math.sin,math.cos,math.pi,math.sqrt,math.pow
+local dc=function(cab,dab,_bb)return cab+ (dab-cab)*_bb end;local _d=function(cab)return cab end
+local ad=function(cab)return 1 -cab end;local bd=function(cab)return cab*cab*cab end;local cd=function(cab)return
+ad(bd(ad(cab)))end;local dd=function(cab)return
+dc(bd(cab),cd(cab),cab)end;local __a=function(cab)return
+db((cab*ac)/2)end;local a_a=function(cab)return
+ad(_c((cab*ac)/2))end;local b_a=function(cab)return
+- (_c(ac*x)-1)/2 end
+local c_a=function(cab)
+local dab=1.70158;local _bb=dab+1;return _bb*cab^3 -dab*cab^2 end;local d_a=function(cab)return cab^3 end
+local _aa=function(cab)local dab=(2 *ac)/3;return
+
+cab==0 and 0 or(cab==1 and 1 or(-2 ^ (10 *cab-10)*
+db((cab*10 -10.75)*dab)))end
+local function aaa(cab)return cab==0 and 0 or 2 ^ (10 *cab-10)end
+local function baa(cab)return cab==0 and 0 or 2 ^ (10 *cab-10)end
+local function caa(cab)local dab=1.70158;local _bb=dab*1.525;return
+cab<0.5 and( (2 *cab)^2 *
+( (_bb+1)*2 *cab-_bb))/2 or
+(
+(2 *cab-2)^2 * ( (_bb+1)* (cab*2 -2)+_bb)+2)/2 end;local function daa(cab)return
+cab<0.5 and 4 *cab^3 or 1 - (-2 *cab+2)^3 /2 end
+local function _ba(cab)
+local dab=(2 *ac)/4.5
+return
+cab==0 and 0 or(cab==1 and 1 or
+(
+cab<0.5 and- (2 ^ (20 *cab-10)*
+db((20 *cab-11.125)*dab))/2 or
+(2 ^ (-20 *cab+10)*db((20 *cab-11.125)*dab))/2 +1))end
+local function aba(cab)return
+cab==0 and 0 or(cab==1 and 1 or
+(
+cab<0.5 and 2 ^ (20 *cab-10)/2 or(2 -2 ^ (-20 *cab+10))/2))end;local function bba(cab)return
+cab<0.5 and 2 *cab^2 or 1 - (-2 *cab+2)^2 /2 end;local function cba(cab)return
+cab<0.5 and 8 *
+cab^4 or 1 - (-2 *cab+2)^4 /2 end;local function dba(cab)return
+cab<0.5 and 16 *
+cab^5 or 1 - (-2 *cab+2)^5 /2 end;local function _ca(cab)
+return cab^2 end;local function aca(cab)return cab^4 end
+local function bca(cab)return cab^5 end;local function cca(cab)local dab=1.70158;local _bb=dab+1;return
+1 +_bb* (cab-1)^3 +dab* (cab-1)^2 end;local function dca(cab)return 1 -
+(1 -cab)^3 end
+local function _da(cab)local dab=(2 *ac)/3;return
+
+cab==0 and 0 or(cab==1 and 1 or(
+2 ^ (-10 *cab)*db((cab*10 -0.75)*dab)+1))end
+local function ada(cab)return cab==1 and 1 or 1 -2 ^ (-10 *cab)end;local function bda(cab)return 1 - (1 -cab)* (1 -cab)end;local function cda(cab)return 1 - (
+1 -cab)^4 end;local function dda(cab)
+return 1 - (1 -cab)^5 end
+local function __b(cab)return 1 -bc(1 -cc(cab,2))end;local function a_b(cab)return bc(1 -cc(cab-1,2))end
+local function b_b(cab)return
+
+cab<0.5 and(1 -bc(
+1 -cc(2 *cab,2)))/2 or(bc(1 -cc(-2 *cab+2,2))+1)/2 end
+local function c_b(cab)local dab=7.5625;local _bb=2.75
+if(cab<1 /_bb)then return dab*cab*cab elseif(cab<2 /_bb)then local abb=cab-
+1.5 /_bb;return dab*abb*abb+0.75 elseif(cab<2.5 /_bb)then local abb=cab-
+2.25 /_bb;return dab*abb*abb+0.9375 else
+local abb=cab-2.625 /_bb;return dab*abb*abb+0.984375 end end;local function d_b(cab)return 1 -c_b(1 -cab)end;local function _ab(cab)return
+x<0.5 and(1 -
+c_b(1 -2 *cab))/2 or(1 +c_b(2 *cab-1))/2 end
+local aab={linear=_d,lerp=dc,flip=ad,easeIn=bd,easeInSine=a_a,easeInBack=c_a,easeInCubic=d_a,easeInElastic=_aa,easeInExpo=baa,easeInQuad=_ca,easeInQuart=aca,easeInQuint=bca,easeInCirc=__b,easeInBounce=d_b,easeOut=cd,easeOutSine=__a,easeOutBack=cca,easeOutCubic=dca,easeOutElastic=_da,easeOutExpo=ada,easeOutQuad=bda,easeOutQuart=cda,easeOutQuint=dda,easeOutCirc=a_b,easeOutBounce=c_b,easeInOut=dd,easeInOutSine=b_a,easeInOutBack=caa,easeInOutCubic=daa,easeInOutElastic=_ba,easeInOutExpo=aba,easeInOutQuad=bba,easeInOutQuart=cba,easeInOutQuint=dba,easeInOutCirc=b_b,easeInOutBounce=_ab}local bab={}
+return
+function(cab)local dab={}local _bb="Animation"local abb;local bbb={}local cbb=0;local dbb=false;local _cb=1;local acb=false
+local bcb=bb()local ccb=0;local dcb;local _db=false;local adb=false;local bdb="easeOut"local cdb;local function ddb(c_c)for d_c,_ac in pairs(c_c)do
+_ac(dab,bbb[_cb].t,_cb)end end
+local function __c(c_c)if(_cb==1)then
+c_c:animationStartHandler()end;if(bbb[_cb]~=nil)then ddb(bbb[_cb].f)
+cbb=bbb[_cb].t end;_cb=_cb+1
+if(bbb[_cb]==nil)then if(acb)then _cb=1;cbb=0 else
+c_c:animationDoneHandler()return end end;if(bbb[_cb].t>0)then
+abb=os.startTimer(bbb[_cb].t-cbb)else __c(c_c)end end
+local function a_c(c_c,d_c)for n=1,#bbb do
+if(bbb[n].t==c_c)then table.insert(bbb[n].f,d_c)return end end
+for n=1,#bbb do
+if(bbb[n].t>c_c)then if
+(bbb[n-1]~=nil)then if(bbb[n-1].t=_ac-0.01)then if(bab[dac][dbc]==_bc)then bab[dac][dbc]=
+nil end end end end)end end
+dab={name=cab,getType=function(c_c)return _bb end,getBaseFrame=function(c_c)if(c_c.parent~=nil)then
+return c_c.parent:getBaseFrame()end;return c_c end,setMode=function(c_c,d_c)
+bdb=d_c;return c_c end,addMode=function(c_c,d_c,_ac)aab[d_c]=_ac;return c_c end,generateXMLEventFunction=function(c_c,d_c,_ac)
+local aac=function(bac)
+if(
+bac:sub(1,1)=="#")then
+local cac=c_c:getBaseFrame():getDeepObject(bac:sub(2,bac:len()))
+if(cac~=nil)and(cac.internalObjetCall~=nil)then d_c(c_c,function()
+cac:internalObjetCall()end)end else
+d_c(c_c,c_c:getBaseFrame():getVariable(bac))end end;if(type(_ac)=="string")then aac(_ac)elseif(type(_ac)=="table")then
+for bac,cac in pairs(_ac)do aac(cac)end end;return c_c end,setValuesByXMLData=function(c_c,d_c)_db=
+ab("loop",d_c)==true and true or false
+if(
+ab("object",d_c)~=nil)then
+local _ac=c_c:getBaseFrame():getDeepObject(ab("object",d_c))if(_ac==nil)then
+_ac=c_c:getBaseFrame():getVariable(ab("object",d_c))end
+if(_ac~=nil)then c_c:setObject(_ac)end end
+if(d_c["move"]~=nil)then local _ac=ab("x",d_c["move"])
+local aac=ab("y",d_c["move"])local bac=ab("duration",d_c["move"])
+local cac=ab("time",d_c["move"])c_c:move(_ac,aac,bac,cac)end
+if(d_c["size"]~=nil)then local _ac=ab("width",d_c["size"])
+local aac=ab("height",d_c["size"])local bac=ab("duration",d_c["size"])
+local cac=ab("time",d_c["size"])c_c:size(_ac,aac,bac,cac)end
+if(d_c["offset"]~=nil)then local _ac=ab("x",d_c["offset"])
+local aac=ab("y",d_c["offset"])local bac=ab("duration",d_c["offset"])
+local cac=ab("time",d_c["offset"])c_c:offset(_ac,aac,bac,cac)end
+if(d_c["textColor"]~=nil)then
+local _ac=ab("duration",d_c["textColor"])local aac=ab("time",d_c["textColor"])local bac={}
+local cac=d_c["textColor"]["color"]
+if(cac~=nil)then if(cac.properties~=nil)then cac={cac}end;for dac,_bc in pairs(cac)do
+table.insert(bac,colors[_bc:value()])end end;if(_ac~=nil)and(#bac>0)then
+c_c:changeTextColor(_ac,aac or 0,table.unpack(bac))end end
+if(d_c["background"]~=nil)then
+local _ac=ab("duration",d_c["background"])local aac=ab("time",d_c["background"])local bac={}
+local cac=d_c["background"]["color"]
+if(cac~=nil)then if(cac.properties~=nil)then cac={cac}end;for dac,_bc in pairs(cac)do
+table.insert(bac,colors[_bc:value()])end end;if(_ac~=nil)and(#bac>0)then
+c_c:changeBackground(_ac,aac or 0,table.unpack(bac))end end
+if(d_c["text"]~=nil)then local _ac=ab("duration",d_c["text"])
+local aac=ab("time",d_c["text"])local bac={}local cac=d_c["text"]["text"]
+if(cac~=nil)then if(cac.properties~=nil)then
+cac={cac}end;for dac,_bc in pairs(cac)do
+table.insert(bac,_bc:value())end end;if(_ac~=nil)and(#bac>0)then
+c_c:changeText(_ac,aac or 0,table.unpack(bac))end end;if(ab("onDone",d_c)~=nil)then
+c_c:generateXMLEventFunction(c_c.onDone,ab("onDone",d_c))end;if(ab("onStart",d_c)~=nil)then
+c_c:generateXMLEventFunction(c_c.onDone,ab("onStart",d_c))end
+if
+(ab("autoDestroy",d_c)~=nil)then if(ab("autoDestroy",d_c))then adb=true end end;bdb=ab("mode",d_c)or bdb
+if(ab("play",d_c)~=nil)then if
+(ab("play",d_c))then c_c:play(_db)end end;return c_c end,getZIndex=function(c_c)return
+1 end,getName=function(c_c)return c_c.name end,setObject=function(c_c,d_c)cdb=d_c;return c_c end,move=function(c_c,d_c,_ac,aac,bac,cac)cdb=
+cac or cdb
+b_c(d_c,_ac,aac,bac or 0,cdb.getPosition,cdb.setPosition,"position",c_c)return c_c end,offset=function(c_c,d_c,_ac,aac,bac,cac)cdb=
+cac or cdb
+b_c(d_c,_ac,aac,bac or 0,cdb.getOffset,cdb.setOffset,"offset",c_c)return c_c end,size=function(c_c,d_c,_ac,aac,bac,cac)cdb=cac or
+cdb
+b_c(d_c,_ac,aac,bac or 0,cdb.getSize,cdb.setSize,"size",c_c)return c_c end,changeText=function(c_c,d_c,_ac,...)
+local aac={...}_ac=_ac or 0;cdb=obj or cdb;for n=1,#aac do
+a_c(_ac+n* (d_c/#aac),function()
+cdb.setText(cdb,aac[n])end)end;return c_c end,changeBackground=function(c_c,d_c,_ac,...)
+local aac={...}_ac=_ac or 0;cdb=obj or cdb;for n=1,#aac do
+a_c(_ac+n* (d_c/#aac),function()
+cdb.setBackground(cdb,aac[n])end)end;return c_c end,changeTextColor=function(c_c,d_c,_ac,...)
+local aac={...}_ac=_ac or 0;cdb=obj or cdb;for n=1,#aac do
+a_c(_ac+n* (d_c/#aac),function()
+cdb.setForeground(cdb,aac[n])end)end;return c_c end,add=function(c_c,d_c,_ac)
+dcb=d_c
+a_c((_ac or ccb)+
+(bbb[#bbb]~=nil and bbb[#bbb].t or 0),d_c)return c_c end,wait=function(c_c,d_c)ccb=d_c;return c_c end,rep=function(c_c,d_c)
+if(
+dcb~=nil)then for n=1,d_c or 1 do
+a_c((wait or ccb)+
+(bbb[#bbb]~=nil and bbb[#bbb].t or 0),dcb)end end;return c_c end,onDone=function(c_c,d_c)
+bcb:registerEvent("animation_done",d_c)return c_c end,onStart=function(c_c,d_c)
+bcb:registerEvent("animation_start",d_c)return c_c end,setAutoDestroy=function(c_c,d_c)
+adb=d_c~=nil and d_c or true;return c_c end,animationDoneHandler=function(c_c)
+bcb:sendEvent("animation_done",c_c)c_c.parent:removeEvent("other_event",c_c)if(adb)then
+c_c.parent:removeObject(c_c)c_c=nil end end,animationStartHandler=function(c_c)
+bcb:sendEvent("animation_start",c_c)end,clear=function(c_c)bbb={}dcb=nil;ccb=0;_cb=1;cbb=0;acb=false;return c_c end,play=function(c_c,d_c)
+c_c:cancel()dbb=true;acb=d_c and true or false;_cb=1;cbb=0
+if(bbb[_cb]~=nil)then
+if(
+bbb[_cb].t>0)then abb=os.startTimer(bbb[_cb].t)else __c(c_c)end else c_c:animationDoneHandler()end;c_c.parent:addEvent("other_event",c_c)return c_c end,cancel=function(c_c)if(
+abb~=nil)then os.cancelTimer(abb)acb=false end
+dbb=false;c_c.parent:removeEvent("other_event",c_c)return c_c end,internalObjetCall=function(c_c)
+c_c:play(_db)end,eventHandler=function(c_c,d_c,_ac)if(dbb)then
+if(d_c=="timer")and(_ac==abb)then if(bbb[_cb]~=nil)then
+__c(c_c)else c_c:animationDoneHandler()end end end end}dab.__index=dab;return dab end end
+aa["objects"]["Label"]=function(...)local ab=da("Object")local bb=da("utils")
+local cb=bb.getValueFromXML;local db=bb.createText;local _c=da("tHex")local ac=da("bigfont")
+return
+function(bc)local cc=ab(bc)
+local dc="Label"cc:setZIndex(3)local _d=true;cc:setValue("Label")cc.width=5
+local ad="left"local bd="top"local cd=0;local dd,__a=false,false
+local a_a={getType=function(b_a)return dc end,setText=function(b_a,c_a)c_a=tostring(c_a)
+cc:setValue(c_a)
+if(_d)then local d_a=b_a.parent:getOffset()
+if(
+c_a:len()+b_a:getX()>b_a.parent:getWidth()+d_a)then local _aa=
+b_a.parent:getWidth()+d_a-b_a:getX()cc.setSize(b_a,_aa,
+#db(c_a,_aa))else
+cc.setSize(b_a,c_a:len(),1)end end;b_a:updateDraw()return b_a end,setBackground=function(b_a,c_a)
+cc.setBackground(b_a,c_a)__a=true;b_a:updateDraw()return b_a end,setForeground=function(b_a,c_a)
+cc.setForeground(b_a,c_a)dd=true;b_a:updateDraw()return b_a end,setTextAlign=function(b_a,c_a,d_a)ad=
+c_a or ad;bd=d_a or bd;b_a:updateDraw()return b_a end,setFontSize=function(b_a,c_a)if(
+c_a>0)and(c_a<=4)then cd=c_a-1 or 0 end
+b_a:updateDraw()return b_a end,getFontSize=function(b_a)return cd+1 end,setValuesByXMLData=function(b_a,c_a)
+cc.setValuesByXMLData(b_a,c_a)
+if(cb("text",c_a)~=nil)then b_a:setText(cb("text",c_a))end
+if(cb("verticalAlign",c_a)~=nil)then bd=cb("verticalAlign",c_a)end;if(cb("horizontalAlign",c_a)~=nil)then
+ad=cb("horizontalAlign",c_a)end;if(cb("font",c_a)~=nil)then
+b_a:setFontSize(cb("font",c_a))end;return b_a end,setSize=function(b_a,c_a,d_a,_aa)
+cc.setSize(b_a,c_a,d_a,_aa)_d=false;b_a:updateDraw()return b_a end,eventHandler=function(b_a,c_a)
+if(
+c_a=="basalt_resize")then
+if(_d)then local d_a=b_a:getValue()
+if(
+d_a:len()+b_a:getX()>b_a.parent:getWidth())then local _aa=
+b_a.parent:getWidth()-b_a:getX()
+cc.setSize(b_a,_aa,#db(d_a,_aa))else cc.setSize(b_a,d_a:len(),1)end else end end end,draw=function(b_a)
+if
+(cc.draw(b_a))then
+if(b_a.parent~=nil)then local c_a,d_a=b_a:getAnchorPosition()
+local _aa,aaa=b_a:getSize()local baa=bb.getTextVerticalAlign(aaa,bd)
+if(cd==0)then
+if not(_d)then
+local caa=db(b_a:getValue(),b_a:getWidth())
+for daa,_ba in pairs(caa)do if(daa<=aaa)then
+b_a.parent:writeText(c_a,d_a+daa-1,_ba,b_a.bgColor,b_a.fgColor)end end else
+if
+(#b_a:getValue()+c_a>b_a.parent:getWidth())then local caa=db(b_a:getValue(),b_a:getWidth())
+for daa,_ba in
+pairs(caa)do if(daa<=aaa)then
+b_a.parent:writeText(c_a,d_a+daa-1,_ba,b_a.bgColor,b_a.fgColor)end end else
+b_a.parent:writeText(c_a,d_a,b_a:getValue(),b_a.bgColor,b_a.fgColor)end end else
+local caa=ac(cd,b_a:getValue(),b_a.fgColor,b_a.bgColor or colors.lightGray)
+if(_d)then b_a:setSize(#caa[1][1],#caa[1]-1)end;local daa,_ba=b_a.parent:getSize()
+local aba,bba=#caa[1][1],#caa[1]
+c_a=c_a or math.floor((daa-aba)/2)+1
+d_a=d_a or math.floor((_ba-bba)/2)+1
+for i=1,bba do
+b_a.parent:setFG(c_a,d_a+i-1,caa[2][i])b_a.parent:setBG(c_a,d_a+i-1,caa[3][i])b_a.parent:setText(c_a,
+d_a+i-1,caa[1][i])end end end end end,init=function(b_a)
+b_a.parent:addEvent("other_event",b_a)
+if(cc.init(b_a))then
+b_a.bgColor=b_a.parent:getTheme("LabelBG")b_a.fgColor=b_a.parent:getTheme("LabelText")
+if
+(
+b_a.parent.bgColor==colors.black)and(b_a.fgColor==colors.black)then b_a.fgColor=colors.lightGray end end end}return setmetatable(a_a,cc)end end
+aa["objects"]["Pane"]=function(...)local ab=da("Object")local bb=da("basaltLogs")
+return
+function(cb)
+local db=ab(cb)local _c="Pane"
+local ac={getType=function(bc)return _c end,setBackground=function(bc,cc,dc,_d)db.setBackground(bc,cc,dc,_d)
+return bc end,init=function(bc)
+if(db.init(bc))then
+bc.bgColor=bc.parent:getTheme("PaneBG")bc.fgColor=bc.parent:getTheme("PaneBG")end end}return setmetatable(ac,db)end end
+aa["objects"]["Program"]=function(...)local ab=da("Object")local bb=da("tHex")
+local cb=da("process")local db=da("utils").getValueFromXML;local _c=string.sub
+return
+function(ac,bc)local cc=ab(ac)
+local dc="Program"cc:setZIndex(5)local _d;local ad;local bd={}
+local function cd(baa,caa,daa,_ba,aba)local bba,cba=1,1
+local dba,_ca=colors.black,colors.white;local aca=false;local bca=false;local cca={}local dca={}local _da={}local ada={}local bda;local cda={}for i=0,15 do local abb=2 ^i
+ada[abb]={bc:getBasaltInstance().getBaseTerm().getPaletteColour(abb)}end;local function dda()
+bda=(" "):rep(daa)
+for n=0,15 do local abb=2 ^n;local bbb=bb[abb]cda[abb]=bbb:rep(daa)end end
+local function __b()dda()local abb=bda
+local bbb=cda[colors.white]local cbb=cda[colors.black]
+for n=1,_ba do
+cca[n]=_c(cca[n]==nil and abb or cca[n]..abb:sub(1,
+daa-cca[n]:len()),1,daa)
+_da[n]=_c(_da[n]==nil and bbb or _da[n]..
+bbb:sub(1,daa-_da[n]:len()),1,daa)
+dca[n]=_c(dca[n]==nil and cbb or dca[n]..
+cbb:sub(1,daa-dca[n]:len()),1,daa)end;cc.updateDraw(cc)end;__b()local function a_b()if
+bba>=1 and cba>=1 and bba<=daa and cba<=_ba then else end end
+local function b_b(abb,bbb,cbb)
+local dbb=bba;local _cb=dbb+#abb-1
+if cba>=1 and cba<=_ba then
+if dbb<=daa and _cb>=1 then
+if dbb==1 and _cb==
+daa then cca[cba]=abb;_da[cba]=bbb;dca[cba]=cbb else local acb,bcb,ccb
+if dbb<1 then local __c=
+1 -dbb+1;local a_c=daa-dbb+1;acb=_c(abb,__c,a_c)
+bcb=_c(bbb,__c,a_c)ccb=_c(cbb,__c,a_c)elseif _cb>daa then local __c=daa-dbb+1;acb=_c(abb,1,__c)
+bcb=_c(bbb,1,__c)ccb=_c(cbb,1,__c)else acb=abb;bcb=bbb;ccb=cbb end;local dcb=cca[cba]local _db=_da[cba]local adb=dca[cba]local bdb,cdb,ddb
+if dbb>1 then local __c=dbb-1;bdb=
+_c(dcb,1,__c)..acb;cdb=_c(_db,1,__c)..bcb
+ddb=_c(adb,1,__c)..ccb else bdb=acb;cdb=bcb;ddb=ccb end
+if _cb=1 and _cb<=_ba then
+cca[newY]=cca[_cb]dca[newY]=dca[_cb]_da[newY]=_da[_cb]else cca[newY]=bbb
+_da[newY]=cbb;dca[newY]=dbb end end end;if(bca)then a_b()end end,isColor=function()return
+bc:getBasaltInstance().getBaseTerm().isColor()end,isColour=function()return
+bc:getBasaltInstance().getBaseTerm().isColor()end,write=function(abb)
+abb=tostring(abb)if(bca)then
+b_b(abb,bb[_ca]:rep(abb:len()),bb[dba]:rep(abb:len()))end end,clearLine=function()
+if
+(bca)then c_b(1,cba,(" "):rep(daa))
+d_b(1,cba,bb[dba]:rep(daa))_ab(1,cba,bb[_ca]:rep(daa))end;if(bca)then a_b()end end,clear=function()
+for n=1,_ba
+do c_b(1,n,(" "):rep(daa))
+d_b(1,n,bb[dba]:rep(daa))_ab(1,n,bb[_ca]:rep(daa))end;if(bca)then a_b()end end,blit=function(abb,bbb,cbb)if
+type(abb)~="string"then
+error("bad argument #1 (expected string, got "..type(abb)..")",2)end;if type(bbb)~="string"then
+error(
+"bad argument #2 (expected string, got "..type(bbb)..")",2)end;if type(cbb)~="string"then
+error(
+"bad argument #3 (expected string, got "..type(cbb)..")",2)end
+if
+#bbb~=#abb or#cbb~=#abb then error("Arguments must be the same length",2)end;if(bca)then b_b(abb,bbb,cbb)end end}return _bb end;cc.width=30;cc.height=12;local dd=cd(1,1,cc.width,cc.height)local __a
+local a_a=false;local b_a={}
+local function c_a(baa)local caa,daa=dd.getCursorPos()
+local _ba,aba=baa:getAnchorPosition()local bba,cba=baa:getSize()
+if(_ba+caa-1 >=1 and
+_ba+caa-1 <=_ba+bba-1 and daa+aba-1 >=1 and
+daa+aba-1 <=aba+cba-1)then
+baa.parent:setCursor(
+baa:isFocused()and dd.getCursorBlink(),_ba+caa-1,daa+aba-1,dd.getTextColor())end end
+local function d_a(baa,caa,...)local daa,_ba=__a:resume(caa,...)
+if(daa==false)and(_ba~=nil)and
+(_ba~="Terminated")then
+local aba=baa:sendEvent("program_error",_ba)
+if(aba~=false)then error("Basalt Program - ".._ba)end end
+if(__a:getStatus()=="dead")then baa:sendEvent("program_done")end end
+local function _aa(baa,caa,daa,_ba,aba)if(__a==nil)then return false end
+if not(__a:isDead())then if not(a_a)then
+local bba,cba=baa:getAbsolutePosition(baa:getAnchorPosition(
+nil,nil,true))d_a(baa,caa,daa,_ba-bba+1,aba-cba+1)
+c_a(baa)end end end
+local function aaa(baa,caa,daa,_ba)if(__a==nil)then return false end
+if not(__a:isDead())then if not(a_a)then if(baa.draw)then
+d_a(baa,caa,daa,_ba)c_a(baa)end end end end
+_d={getType=function(baa)return dc end,show=function(baa)cc.show(baa)
+dd.setBackgroundColor(baa.bgColor)dd.setTextColor(baa.fgColor)
+dd.basalt_setVisible(true)return baa end,hide=function(baa)
+cc.hide(baa)dd.basalt_setVisible(false)return baa end,setPosition=function(baa,caa,daa,_ba)
+cc.setPosition(baa,caa,daa,_ba)
+dd.basalt_reposition(baa:getAnchorPosition())return baa end,setValuesByXMLData=function(baa,caa)
+cc.setValuesByXMLData(baa,caa)if(db("path",caa)~=nil)then ad=db("path",caa)end
+if(
+db("execute",caa)~=nil)then if(db("execute",caa))then
+if(ad~=nil)then baa:execute(ad)end end end end,getBasaltWindow=function()return
+dd end,getBasaltProcess=function()return __a end,setSize=function(baa,caa,daa,_ba)cc.setSize(baa,caa,daa,_ba)
+dd.basalt_resize(baa:getWidth(),baa:getHeight())return baa end,getStatus=function(baa)if(__a~=nil)then return
+__a:getStatus()end;return"inactive"end,setEnviroment=function(baa,caa)bd=
+caa or{}return baa end,execute=function(baa,caa,...)ad=caa or ad
+__a=cb:new(ad,dd,bd,...)dd.setBackgroundColor(colors.black)
+dd.setTextColor(colors.white)dd.clear()dd.setCursorPos(1,1)
+dd.setBackgroundColor(baa.bgColor)dd.setTextColor(baa.fgColor)
+dd.basalt_setVisible(true)d_a(baa)a_a=false
+if(baa.parent~=nil)then
+baa.parent:addEvent("mouse_click",baa)baa.parent:addEvent("mouse_up",baa)
+baa.parent:addEvent("mouse_drag",baa)baa.parent:addEvent("mouse_scroll",baa)
+baa.parent:addEvent("key",baa)baa.parent:addEvent("key_up",baa)
+baa.parent:addEvent("char",baa)baa.parent:addEvent("other_event",baa)end;return baa end,stop=function(baa)
+if(
+__a~=nil)then
+if not(__a:isDead())then d_a(baa,"terminate")if(__a:isDead())then
+if(
+baa.parent~=nil)then baa.parent:setCursor(false)end end end end;baa.parent:removeEvents(baa)return baa end,pause=function(baa,caa)a_a=
+caa or(not a_a)
+if(__a~=nil)then if not(__a:isDead())then if not(a_a)then
+baa:injectEvents(b_a)b_a={}end end end;return baa end,isPaused=function(baa)return
+a_a end,injectEvent=function(baa,caa,daa,_ba,aba,bba,cba)
+if(__a~=nil)then
+if not(__a:isDead())then if(a_a==false)or(cba)then
+d_a(baa,caa,daa,_ba,aba,bba)else
+table.insert(b_a,{event=caa,args={daa,_ba,aba,bba}})end end end;return baa end,getQueuedEvents=function(baa)return
+b_a end,updateQueuedEvents=function(baa,caa)b_a=caa or b_a;return baa end,injectEvents=function(baa,caa)if(__a~=nil)then
+if not
+(__a:isDead())then for daa,_ba in pairs(caa)do
+d_a(baa,_ba.event,table.unpack(_ba.args))end end end;return baa end,mouseHandler=function(baa,caa,daa,_ba)
+if
+(cc.mouseHandler(baa,caa,daa,_ba))then _aa(baa,"mouse_click",caa,daa,_ba)return true end;return false end,mouseUpHandler=function(baa,caa,daa,_ba)
+if
+(cc.mouseUpHandler(baa,caa,daa,_ba))then _aa(baa,"mouse_up",caa,daa,_ba)return true end;return false end,scrollHandler=function(baa,caa,daa,_ba)
+if
+(cc.scrollHandler(baa,caa,daa,_ba))then _aa(baa,"mouse_scroll",caa,daa,_ba)return true end;return false end,dragHandler=function(baa,caa,daa,_ba)
+if
+(cc.dragHandler(baa,caa,daa,_ba))then _aa(baa,"mouse_drag",caa,daa,_ba)return true end;return false end,keyHandler=function(baa,caa,daa)if
+(cc.keyHandler(baa,caa,daa))then aaa(baa,"key",caa,daa)return true end;return
+false end,keyUpHandler=function(baa,caa)if
+(cc.keyUpHandler(baa,caa))then aaa(baa,"key_up",caa)return true end
+return false end,charHandler=function(baa,caa)if
+(cc.charHandler(baa,caa))then aaa(baa,"char",caa)return true end
+return false end,getFocusHandler=function(baa)
+cc.getFocusHandler(baa)
+if(__a~=nil)then
+if not(__a:isDead())then
+if not(a_a)then
+if(baa.parent~=nil)then
+local caa,daa=dd.getCursorPos()local _ba,aba=baa:getAnchorPosition()local bba,cba=baa:getSize()
+if
+(
+_ba+caa-1 >=1 and _ba+caa-1 <=_ba+bba-1 and
+daa+aba-1 >=1 and daa+aba-1 <=aba+cba-1)then
+baa.parent:setCursor(dd.getCursorBlink(),_ba+caa-1,daa+aba-1,dd.getTextColor())end end end end end end,loseFocusHandler=function(baa)
+cc.loseFocusHandler(baa)
+if(__a~=nil)then if not(__a:isDead())then if(baa.parent~=nil)then
+baa.parent:setCursor(false)end end end end,eventHandler=function(baa,caa,daa,_ba,aba,bba)
+cc.eventHandler(baa,caa,daa,_ba,aba,bba)if(__a==nil)then return end
+if(caa=="dynamicValueEvent")then local cba,dba=dd.getSize()
+local _ca,aca=baa:getSize()
+if(cba~=_ca)or(dba~=aca)then dd.basalt_resize(_ca,aca)if not
+(__a:isDead())then d_a(baa,"term_resize")end end
+dd.basalt_reposition(baa:getAnchorPosition())end
+if not(__a:isDead())then
+if not(a_a)then if(caa~="terminate")then
+d_a(baa,caa,daa,_ba,aba,bba)end
+if(baa:isFocused())then
+local cba,dba=baa:getAnchorPosition()local _ca,aca=dd.getCursorPos()
+if(baa.parent~=nil)then
+local bca,cca=baa:getSize()
+if
+(cba+_ca-1 >=1 and cba+_ca-1 <=cba+bca-1 and
+aca+dba-1 >=1 and aca+dba-1 <=dba+cca-1)then
+baa.parent:setCursor(dd.getCursorBlink(),cba+_ca-1,aca+dba-1,dd.getTextColor())end end;if(caa=="terminate")then d_a(baa,caa)
+baa.parent:setCursor(false)return true end end else
+table.insert(b_a,{event=caa,args={daa,_ba,aba,bba}})end end end,draw=function(baa)
+if
+(cc.draw(baa))then
+if(baa.parent~=nil)then local caa,daa=baa:getAnchorPosition()
+local _ba,aba=dd.getCursorPos()local bba,cba=baa:getSize()dd.basalt_reposition(caa,daa)
+dd.basalt_update()
+if
+(caa+_ba-1 >=1 and caa+_ba-1 <=caa+bba-1 and
+aba+daa-1 >=1 and aba+daa-1 <=daa+cba-1)then
+baa.parent:setCursor(baa:isFocused()and dd.getCursorBlink(),
+caa+_ba-1,aba+daa-1,dd.getTextColor())end end end end,onError=function(baa,...)
+for caa,daa in
+pairs(table.pack(...))do if(type(daa)=="function")then
+baa:registerEvent("program_error",daa)end end;if(baa.parent~=nil)then
+baa.parent:addEvent("other_event",baa)end;return baa end,onDone=function(baa,...)
+for caa,daa in
+pairs(table.pack(...))do if(type(daa)=="function")then
+baa:registerEvent("program_done",daa)end end;if(baa.parent~=nil)then
+baa.parent:addEvent("other_event",baa)end;return baa end,init=function(baa)
+if
+(cc.init(baa))then baa.bgColor=baa.parent:getTheme("ProgramBG")end end}return setmetatable(_d,cc)end end
+aa["objects"]["Radio"]=function(...)local ab=da("Object")local bb=da("utils")
+local cb=bb.getValueFromXML
+return
+function(db)local _c=ab(db)local ac="Radio"_c.width=8;_c:setZIndex(5)local bc={}local cc;local dc
+local _d;local ad;local bd;local cd;local dd=true;local __a="\7"local a_a="left"
+local b_a={getType=function(c_a)return ac end,setValuesByXMLData=function(c_a,d_a)
+_c.setValuesByXMLData(c_a,d_a)if(cb("selectionBG",d_a)~=nil)then
+cc=colors[cb("selectionBG",d_a)]end;if(cb("selectionFG",d_a)~=nil)then
+dc=colors[cb("selectionFG",d_a)]end;if(cb("boxBG",d_a)~=nil)then
+_d=colors[cb("boxBG",d_a)]end;if(cb("inactiveBoxBG",d_a)~=nil)then
+bd=colors[cb("inactiveBoxBG",d_a)]end;if(cb("inactiveBoxFG",d_a)~=nil)then
+cd=colors[cb("inactiveBoxFG",d_a)]end;if(cb("boxFG",d_a)~=nil)then
+ad=colors[cb("boxFG",d_a)]end;if(cb("symbol",d_a)~=nil)then
+__a=cb("symbol",d_a)end
+if(d_a["item"]~=nil)then local _aa=d_a["item"]if(
+_aa.properties~=nil)then _aa={_aa}end;for aaa,baa in pairs(_aa)do
+c_a:addItem(cb("text",baa),cb("x",baa),cb("y",baa),colors[cb("bg",baa)],colors[cb("fg",baa)])end end;return c_a end,addItem=function(c_a,d_a,_aa,aaa,baa,caa,...)
+table.insert(bc,{x=
+_aa or 1,y=aaa or 1,text=d_a,bgCol=baa or c_a.bgColor,fgCol=caa or c_a.fgColor,args={...}})if(#bc==1)then c_a:setValue(bc[1])end
+c_a:updateDraw()return c_a end,getAll=function(c_a)return
+bc end,removeItem=function(c_a,d_a)table.remove(bc,d_a)c_a:updateDraw()
+return c_a end,getItem=function(c_a,d_a)return bc[d_a]end,getItemIndex=function(c_a)
+local d_a=c_a:getValue()for _aa,aaa in pairs(bc)do if(aaa==d_a)then return _aa end end end,clear=function(c_a)
+bc={}c_a:setValue({},false)c_a:updateDraw()return c_a end,getItemCount=function(c_a)return
+#bc end,editItem=function(c_a,d_a,_aa,aaa,baa,caa,daa,...)table.remove(bc,d_a)
+table.insert(bc,d_a,{x=aaa or 1,y=baa or 1,text=_aa,bgCol=
+caa or c_a.bgColor,fgCol=daa or c_a.fgColor,args={...}})c_a:updateDraw()return c_a end,selectItem=function(c_a,d_a)c_a:setValue(
+bc[d_a]or{},false)c_a:updateDraw()return c_a end,setActiveSymbol=function(c_a,d_a)
+__a=d_a:sub(1,1)c_a:updateDraw()return c_a end,setSelectedItem=function(c_a,d_a,_aa,aaa,baa,caa)
+cc=d_a or cc;dc=_aa or dc;_d=aaa or _d;ad=baa or ad
+dd=caa~=nil and caa or true;c_a:updateDraw()return c_a end,mouseHandler=function(c_a,d_a,_aa,aaa)
+if(
+#bc>0)then
+local baa,caa=c_a:getAbsolutePosition(c_a:getAnchorPosition())
+for daa,_ba in pairs(bc)do
+if(baa+_ba.x-1 <=_aa)and(
+baa+_ba.x-1 +_ba.text:len()+1 >=_aa)and(
+caa+_ba.y-1 ==aaa)then
+c_a:setValue(_ba)
+local aba=c_a:getEventSystem():sendEvent("mouse_click",c_a,"mouse_click",d_a,_aa,aaa)if(aba==false)then return aba end;if(c_a.parent~=nil)then
+c_a.parent:setFocusedObject(c_a)end;c_a:updateDraw()return true end end end;return false end,draw=function(c_a)
+if(
+c_a.parent~=nil)then local d_a,_aa=c_a:getAnchorPosition()
+for aaa,baa in pairs(bc)do
+if(baa==
+c_a:getValue())then if(a_a=="left")then
+c_a.parent:writeText(baa.x+d_a-1,baa.y+_aa-1,__a,_d,ad)
+c_a.parent:writeText(baa.x+2 +d_a-1,baa.y+_aa-1,baa.text,cc,dc)end else
+c_a.parent:drawBackgroundBox(
+baa.x+d_a-1,baa.y+_aa-1,1,1,bd or c_a.bgColor)
+c_a.parent:writeText(baa.x+2 +d_a-1,baa.y+_aa-1,baa.text,baa.bgCol,baa.fgCol)end end;return true end end,init=function(c_a)
+c_a.parent:addEvent("mouse_click",c_a)
+if(_c.init(c_a))then
+c_a.bgColor=c_a.parent:getTheme("MenubarBG")c_a.fgColor=c_a.parent:getTheme("MenubarFG")
+cc=c_a.parent:getTheme("SelectionBG")dc=c_a.parent:getTheme("SelectionText")
+_d=c_a.parent:getTheme("MenubarBG")ad=c_a.parent:getTheme("MenubarText")end end}return setmetatable(b_a,_c)end end
+aa["objects"]["Progressbar"]=function(...)local ab=da("Object")
+local bb=da("utils").getValueFromXML
+return
+function(cb)local db=ab(cb)local _c="Progressbar"local ac=0;db:setZIndex(5)
+db:setValue(false)db.width=25;db.height=1;local bc;local cc=""local dc=colors.white;local _d=""local ad=0
+local bd={init=function(cd)
+if
+(db.init(cd))then cd.bgColor=cd.parent:getTheme("ProgressbarBG")
+cd.fgColor=cd.parent:getTheme("ProgressbarText")bc=cd.parent:getTheme("ProgressbarActiveBG")end end,getType=function(cd)return
+_c end,setValuesByXMLData=function(cd,dd)db.setValuesByXMLData(cd,dd)if(bb("direction",dd)~=
+nil)then ad=bb("direction",dd)end
+if(
+bb("progressColor",dd)~=nil)then bc=colors[bb("progressColor",dd)]end
+if(bb("progressSymbol",dd)~=nil)then cc=bb("progressSymbol",dd)end;if(bb("backgroundSymbol",dd)~=nil)then
+_d=bb("backgroundSymbol",dd)end
+if
+(bb("progressSymbolColor",dd)~=nil)then dc=colors[bb("progressSymbolColor",dd)]end;if(bb("onDone",dd)~=nil)then
+cd:generateXMLEventFunction(cd.onProgressDone,bb("onDone",dd))end;return cd end,setDirection=function(cd,dd)
+ad=dd;cd:updateDraw()return cd end,setProgressBar=function(cd,dd,__a,a_a)bc=dd or bc
+cc=__a or cc;dc=a_a or dc;cd:updateDraw()return cd end,setBackgroundSymbol=function(cd,dd)
+_d=dd:sub(1,1)cd:updateDraw()return cd end,setProgress=function(cd,dd)if
+(dd>=0)and(dd<=100)and(ac~=dd)then ac=dd;cd:setValue(ac)if(ac==100)then
+cd:progressDoneHandler()end end
+cd:updateDraw()return cd end,getProgress=function(cd)return
+ac end,onProgressDone=function(cd,dd)cd:registerEvent("progress_done",dd)
+return cd end,progressDoneHandler=function(cd)
+cd:sendEvent("progress_done",cd)end,draw=function(cd)
+if(db.draw(cd))then
+if(cd.parent~=nil)then
+local dd,__a=cd:getAnchorPosition()local a_a,b_a=cd:getSize()if(cd.bgColor~=false)then
+cd.parent:drawBackgroundBox(dd,__a,a_a,b_a,cd.bgColor)end;if(_d~="")then
+cd.parent:drawTextBox(dd,__a,a_a,b_a,_d)end;if(cd.fgColor~=false)then
+cd.parent:drawForegroundBox(dd,__a,a_a,b_a,cd.fgColor)end
+if(ad==1)then cd.parent:drawBackgroundBox(dd,__a,a_a,
+b_a/100 *ac,bc)cd.parent:drawForegroundBox(dd,__a,a_a,
+b_a/100 *ac,dc)cd.parent:drawTextBox(dd,__a,a_a,
+b_a/100 *ac,cc)elseif(ad==2)then
+cd.parent:drawBackgroundBox(dd,
+__a+math.ceil(b_a-b_a/100 *ac),a_a,b_a/100 *ac,bc)
+cd.parent:drawForegroundBox(dd,__a+math.ceil(b_a-b_a/100 *ac),a_a,
+b_a/100 *ac,dc)
+cd.parent:drawTextBox(dd,__a+math.ceil(b_a-b_a/100 *ac),a_a,
+b_a/100 *ac,cc)elseif(ad==3)then
+cd.parent:drawBackgroundBox(dd+math.ceil(a_a-a_a/100 *ac),__a,
+a_a/100 *ac,b_a,bc)
+cd.parent:drawForegroundBox(dd+math.ceil(a_a-a_a/100 *ac),__a,
+a_a/100 *ac,b_a,dc)
+cd.parent:drawTextBox(dd+math.ceil(a_a-a_a/100 *ac),__a,
+a_a/100 *ac,b_a,cc)else
+cd.parent:drawBackgroundBox(dd,__a,a_a/100 *ac,b_a,bc)
+cd.parent:drawForegroundBox(dd,__a,a_a/100 *ac,b_a,dc)
+cd.parent:drawTextBox(dd,__a,a_a/100 *ac,b_a,cc)end end end end}return setmetatable(bd,db)end end
+aa["objects"]["Scrollbar"]=function(...)local ab=da("Object")
+local bb=da("utils").getValueFromXML
+return
+function(cb)local db=ab(cb)local _c="Scrollbar"db.width=1;db.height=8;db:setValue(1)
+db:setZIndex(2)local ac="vertical"local bc=" "local cc;local dc="\127"local _d=db.height;local ad=1;local bd=1
+local function cd(__a,a_a,b_a,c_a)
+local d_a,_aa=__a:getAbsolutePosition(__a:getAnchorPosition())local aaa,baa=__a:getSize()
+if(ac=="horizontal")then
+for _index=0,aaa do
+if
+(d_a+_index==b_a)and(_aa<=c_a)and(_aa+baa>c_a)then
+ad=math.min(_index+1,aaa- (bd-1))__a:setValue(_d/aaa* (ad))__a:updateDraw()end end end
+if(ac=="vertical")then
+for _index=0,baa do
+if
+(_aa+_index==c_a)and(d_a<=b_a)and(d_a+aaa>b_a)then ad=math.min(_index+1,baa- (bd-1))
+__a:setValue(_d/baa* (ad))__a:updateDraw()end end end end
+local dd={getType=function(__a)return _c end,setSymbol=function(__a,a_a)bc=a_a:sub(1,1)__a:updateDraw()return __a end,setValuesByXMLData=function(__a,a_a)
+db.setValuesByXMLData(__a,a_a)
+if(bb("maxValue",a_a)~=nil)then _d=bb("maxValue",a_a)end;if(bb("backgroundSymbol",a_a)~=nil)then
+dc=bb("backgroundSymbol",a_a):sub(1,1)end;if(bb("symbol",a_a)~=nil)then
+bc=bb("symbol",a_a):sub(1,1)end;if(bb("barType",a_a)~=nil)then
+ac=bb("barType",a_a):lower()end;if(bb("symbolSize",a_a)~=nil)then
+__a:setSymbolSize(bb("symbolSize",a_a))end;if(bb("symbolColor",a_a)~=nil)then
+cc=colors[bb("symbolColor",a_a)]end;if(bb("index",a_a)~=nil)then
+__a:setIndex(bb("index",a_a))end end,setIndex=function(__a,a_a)
+ad=a_a;if(ad<1)then ad=1 end;local b_a,c_a=__a:getSize()
+ad=math.min(ad,(
+ac=="vertical"and c_a or b_a)- (bd-1))
+__a:setValue(_d/ (ac=="vertical"and c_a or b_a)*ad)__a:updateDraw()return __a end,getIndex=function(__a)return
+ad end,setSymbolSize=function(__a,a_a)bd=tonumber(a_a)or 1
+local b_a,c_a=__a:getSize()
+if(ac=="vertical")then
+__a:setValue(ad-1 * (_d/ (c_a- (bd-1)))- (_d/ (c_a-
+(bd-1))))elseif(ac=="horizontal")then
+__a:setValue(ad-1 * (_d/ (b_a- (bd-1)))- (_d/ (b_a- (
+bd-1))))end;__a:updateDraw()return __a end,setMaxValue=function(__a,a_a)
+_d=a_a;__a:updateDraw()return __a end,setBackgroundSymbol=function(__a,a_a)
+dc=string.sub(a_a,1,1)__a:updateDraw()return __a end,setSymbolColor=function(__a,a_a)cc=a_a
+__a:updateDraw()return __a end,setBarType=function(__a,a_a)ac=a_a:lower()
+__a:updateDraw()return __a end,mouseHandler=function(__a,a_a,b_a,c_a)if(db.mouseHandler(__a,a_a,b_a,c_a))then
+cd(__a,a_a,b_a,c_a)return true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)if
+(db.dragHandler(__a,a_a,b_a,c_a))then cd(__a,a_a,b_a,c_a)return true end
+return false end,scrollHandler=function(__a,a_a,b_a,c_a)
+if
+(db.scrollHandler(__a,a_a,b_a,c_a))then local d_a,_aa=__a:getSize()ad=ad+a_a;if(ad<1)then ad=1 end
+ad=math.min(ad,(
+ac=="vertical"and _aa or d_a)- (bd-1))
+__a:setValue(_d/ (ac=="vertical"and _aa or d_a)*ad)__a:updateDraw()end end,draw=function(__a)
+if
+(db.draw(__a))then
+if(__a.parent~=nil)then local a_a,b_a=__a:getAnchorPosition()
+local c_a,d_a=__a:getSize()
+if(ac=="horizontal")then
+__a.parent:writeText(a_a,b_a,dc:rep(ad-1),__a.bgColor,__a.fgColor)
+__a.parent:writeText(a_a+ad-1,b_a,bc:rep(bd),cc,cc)
+__a.parent:writeText(a_a+ad+bd-1,b_a,dc:rep(c_a- (ad+bd-1)),__a.bgColor,__a.fgColor)end
+if(ac=="vertical")then
+for n=0,d_a-1 do
+if(ad==n+1)then
+for curIndexOffset=0,math.min(bd-1,d_a)do __a.parent:writeText(a_a,b_a+n+
+curIndexOffset,bc,cc,cc)end else if(n+1 ad-1 +bd)then
+__a.parent:writeText(a_a,b_a+n,dc,__a.bgColor,__a.fgColor)end end end end end end end,init=function(__a)
+__a.parent:addEvent("mouse_click",__a)__a.parent:addEvent("mouse_drag",__a)
+__a.parent:addEvent("mouse_scroll",__a)
+if(db.init(__a))then
+__a.bgColor=__a.parent:getTheme("ScrollbarBG")__a.fgColor=__a.parent:getTheme("ScrollbarText")
+cc=__a.parent:getTheme("ScrollbarSymbolColor")end end}return setmetatable(dd,db)end end
+aa["objects"]["Switch"]=function(...)local ab=da("Object")
+local bb=da("utils").getValueFromXML
+return
+function(cb)local db=ab(cb)local _c="Switch"db.width=2;db.height=1
+db.bgColor=colors.lightGray;db.fgColor=colors.gray;db:setValue(false)db:setZIndex(5)
+local ac=colors.black;local bc=colors.red;local cc=colors.green
+local dc={getType=function(_d)return _c end,setSymbolColor=function(_d,ad)ac=ad
+_d:updateDraw()return _d end,setActiveBackground=function(_d,ad)cc=ad;_d:updateDraw()return _d end,setInactiveBackground=function(_d,ad)
+bc=ad;_d:updateDraw()return _d end,setValuesByXMLData=function(_d,ad)
+db.setValuesByXMLData(_d,ad)if(bb("inactiveBG",ad)~=nil)then
+bc=colors[bb("inactiveBG",ad)]end;if(bb("activeBG",ad)~=nil)then
+cc=colors[bb("activeBG",ad)]end;if(bb("symbolColor",ad)~=nil)then
+ac=colors[bb("symbolColor",ad)]end end,mouseHandler=function(_d,ad,bd,cd)
+if
+(db.mouseHandler(_d,ad,bd,cd))then
+local dd,__a=_d:getAbsolutePosition(_d:getAnchorPosition())_d:setValue(not _d:getValue())
+_d:updateDraw()return true end end,draw=function(_d)
+if
+(db.draw(_d))then
+if(_d.parent~=nil)then local ad,bd=_d:getAnchorPosition()
+local cd,dd=_d:getSize()
+_d.parent:drawBackgroundBox(ad,bd,cd,dd,_d.bgColor)
+if(_d:getValue())then
+_d.parent:drawBackgroundBox(ad,bd,1,dd,cc)_d.parent:drawBackgroundBox(ad+1,bd,1,dd,ac)else
+_d.parent:drawBackgroundBox(ad,bd,1,dd,ac)_d.parent:drawBackgroundBox(ad+1,bd,1,dd,bc)end end end end,init=function(_d)
+_d.parent:addEvent("mouse_click",_d)
+if(db.init(_d))then _d.bgColor=_d.parent:getTheme("SwitchBG")
+_d.fgColor=_d.parent:getTheme("SwitchText")ac=_d.parent:getTheme("SwitchBGSymbol")
+bc=_d.parent:getTheme("SwitchInactive")cc=_d.parent:getTheme("SwitchActive")end end}return setmetatable(dc,db)end end
+aa["objects"]["Textfield"]=function(...)local ab=da("Object")local bb=da("tHex")
+local cb=da("utils").getValueFromXML;local db=da("basaltLogs")
+local _c,ac,bc,cc,dc=string.rep,string.find,string.gmatch,string.sub,string.len
+return
+function(_d)local ad=ab(_d)local bd="Textfield"local cd,dd,__a,a_a=1,1,1,1;local b_a={" "}local c_a={""}local d_a={""}
+local _aa={}local aaa={}local baa,caa,daa,_ba;local aba,bba=colors.lightBlue,colors.black;ad.width=30
+ad.height=12;ad:setZIndex(5)local function cba()
+if
+(baa~=nil)and(caa~=nil)and(daa~=nil)and(_ba~=nil)then return true end;return false end
+local function dba()local ada,bda,cda,dda
+if
+(cba())then if(baa>caa)then ada,bda=caa,baa else ada,bda=baa,caa end;if(daa>_ba)then
+cda,dda=_ba,daa else cda,dda=daa,_ba end end;return ada,bda,cda,dda end;local function _ca()end
+local function aca(ada)local bda,cda,dda,__b=dba(ada)
+for n=__b,dda,-1 do
+if(n==dda)or(n==__b)then local a_b=b_a[n]
+local b_b=c_a[n]local c_b=d_a[n]
+if(n==dda)and(n==__b)then a_b=a_b:sub(1,bda-1)..
+a_b:sub(cda+1,a_b:len())b_b=b_b:sub(1,bda-1)..
+b_b:sub(cda+1,b_b:len())c_b=c_b:sub(1,bda-1)..
+c_b:sub(cda+1,c_b:len())elseif(n==bda)then
+a_b=a_b:sub(1,bda)b_b=b_b:sub(1,bda)c_b=c_b:sub(1,bda)elseif(n==dda)then
+a_b=a_b:sub(cda,a_b:len())b_b=b_b:sub(cda,b_b:len())
+c_b=c_b:sub(cda,c_b:len())end;b_a[n]=a_b;c_a[n]=b_b;d_a[n]=c_b else table.remove(b_a,n)
+table.remove(c_a,n)table.remove(d_a,n)end end;__a,a_a=baa,daa;baa,caa,daa,_ba=nil,nil,nil,nil;return ada end
+local function bca(ada,bda)local cda={}
+if(ada:len()>0)then
+for dda in bc(ada,bda)do local __b,a_b=ac(ada,dda)
+if
+(__b~=nil)and(a_b~=nil)then table.insert(cda,__b)table.insert(cda,a_b)
+local b_b=cc(ada,1,(__b-1))local c_b=cc(ada,a_b+1,ada:len())ada=b_b.. (":"):rep(dda:len())..
+c_b end end end;return cda end
+local function cca(ada,bda)bda=bda or a_a
+local cda=bb[ada.fgColor]:rep(d_a[bda]:len())
+local dda=bb[ada.bgColor]:rep(c_a[bda]:len())
+for __b,a_b in pairs(aaa)do local b_b=bca(b_a[bda],a_b[1])
+if(#b_b>0)then
+for x=1,#b_b/2 do
+local c_b=x*2 -1;if(a_b[2]~=nil)then
+cda=cda:sub(1,b_b[c_b]-1)..bb[a_b[2]]:rep(b_b[c_b+1]- (
+b_b[c_b]-1))..
+cda:sub(b_b[c_b+1]+1,cda:len())end;if
+(a_b[3]~=nil)then
+dda=dda:sub(1,b_b[c_b]-1)..
+
+bb[a_b[3]]:rep(b_b[c_b+1]- (b_b[c_b]-1))..dda:sub(b_b[c_b+1]+1,dda:len())end end end end
+for __b,a_b in pairs(_aa)do
+for b_b,c_b in pairs(a_b)do local d_b=bca(b_a[bda],c_b)
+if(#d_b>0)then for x=1,#d_b/2 do
+local _ab=x*2 -1
+cda=cda:sub(1,d_b[_ab]-1)..
+
+bb[__b]:rep(d_b[_ab+1]- (d_b[_ab]-1))..cda:sub(d_b[_ab+1]+1,cda:len())end end end end;d_a[bda]=cda;c_a[bda]=dda;ada:updateDraw()end;local function dca(ada)for n=1,#b_a do cca(ada,n)end end
+local _da={getType=function(ada)return bd end,setBackground=function(ada,bda)
+ad.setBackground(ada,bda)dca(ada)return ada end,setForeground=function(ada,bda)
+ad.setForeground(ada,bda)dca(ada)return ada end,setValuesByXMLData=function(ada,bda)
+ad.setValuesByXMLData(ada,bda)
+if(bda["lines"]~=nil)then local cda=bda["lines"]["line"]if
+(cda.properties~=nil)then cda={cda}end;for dda,__b in pairs(cda)do
+ada:addLine(__b:value())end end
+if(bda["keywords"]~=nil)then
+for cda,dda in pairs(bda["keywords"])do
+if(colors[cda]~=nil)then
+local __b=dda;if(__b.properties~=nil)then __b={__b}end;local a_b={}
+for b_b,c_b in pairs(__b)do
+local d_b=c_b["keyword"]if(c_b["keyword"].properties~=nil)then
+d_b={c_b["keyword"]}end;for _ab,aab in pairs(d_b)do
+table.insert(a_b,aab:value())end end;ada:addKeywords(colors[cda],a_b)end end end
+if(bda["rules"]~=nil)then
+if(bda["rules"]["rule"]~=nil)then
+local cda=bda["rules"]["rule"]if(bda["rules"]["rule"].properties~=nil)then
+cda={bda["rules"]["rule"]}end
+for dda,__b in pairs(cda)do if(cb("pattern",__b)~=nil)then
+ada:addRule(cb("pattern",__b),colors[cb("fg",__b)],colors[cb("bg",__b)])end end end end end,getLines=function(ada)return
+b_a end,getLine=function(ada,bda)return b_a[bda]end,editLine=function(ada,bda,cda)
+b_a[bda]=cda or b_a[bda]cca(ada,bda)ada:updateDraw()return ada end,clear=function(ada)
+b_a={" "}c_a={""}d_a={""}baa,caa,daa,_ba=nil,nil,nil,nil;cd,dd,__a,a_a=1,1,1,1
+ada:updateDraw()return ada end,addLine=function(ada,bda,cda)
+if
+(bda~=nil)then
+if(#b_a==1)and(b_a[1]=="")then b_a[1]=bda
+c_a[1]=bb[ada.bgColor]:rep(bda:len())d_a[1]=bb[ada.fgColor]:rep(bda:len())
+cca(ada,1)return ada end
+if(cda~=nil)then table.insert(b_a,cda,bda)
+table.insert(c_a,cda,bb[ada.bgColor]:rep(bda:len()))
+table.insert(d_a,cda,bb[ada.fgColor]:rep(bda:len()))else table.insert(b_a,bda)
+table.insert(c_a,bb[ada.bgColor]:rep(bda:len()))
+table.insert(d_a,bb[ada.fgColor]:rep(bda:len()))end end;cca(ada,cda or#b_a)ada:updateDraw()return ada end,addKeywords=function(ada,bda,cda)if(
+_aa[bda]==nil)then _aa[bda]={}end;for dda,__b in pairs(cda)do
+table.insert(_aa[bda],__b)end;ada:updateDraw()return ada end,addRule=function(ada,bda,cda,dda)
+table.insert(aaa,{bda,cda,dda})ada:updateDraw()return ada end,editRule=function(ada,bda,cda,dda)for __b,a_b in
+pairs(aaa)do
+if(a_b[1]==bda)then aaa[__b][2]=cda;aaa[__b][3]=dda end end;ada:updateDraw()return ada end,removeRule=function(ada,bda)
+for cda,dda in
+pairs(aaa)do if(dda[1]==bda)then table.remove(aaa,cda)end end;ada:updateDraw()return ada end,setKeywords=function(ada,bda,cda)
+_aa[bda]=cda;ada:updateDraw()return ada end,removeLine=function(ada,bda)
+if(#b_a>1)then table.remove(b_a,
+bda or#b_a)
+table.remove(c_a,bda or#c_a)table.remove(d_a,bda or#d_a)else b_a={" "}c_a={""}d_a={""}end;ada:updateDraw()return ada end,getTextCursor=function(ada)return
+__a,a_a end,getFocusHandler=function(ada)ad.getFocusHandler(ada)
+if(ada.parent~=nil)then
+local bda,cda=ada:getAnchorPosition()if(ada.parent~=nil)then
+ada.parent:setCursor(true,bda+__a-dd,cda+a_a-cd,ada.fgColor)end end end,loseFocusHandler=function(ada)
+ad.loseFocusHandler(ada)
+if(ada.parent~=nil)then ada.parent:setCursor(false)end end,keyHandler=function(ada,bda)
+if
+(ad.keyHandler(ada,event,bda))then local cda,dda=ada:getAnchorPosition()local __b,a_b=ada:getSize()
+if(bda==
+keys.backspace)then
+if(b_a[a_a]=="")then
+if(a_a>1)then table.remove(b_a,a_a)
+table.remove(d_a,a_a)table.remove(c_a,a_a)
+__a=b_a[a_a-1]:len()+1;dd=__a-__b+1;if(dd<1)then dd=1 end;a_a=a_a-1 end elseif(__a<=1)then
+if(a_a>1)then __a=b_a[a_a-1]:len()+1
+dd=__a-__b+1;if(dd<1)then dd=1 end;b_a[a_a-1]=b_a[a_a-1]..b_a[a_a]d_a[
+a_a-1]=d_a[a_a-1]..d_a[a_a]c_a[a_a-1]=c_a[a_a-1]..
+c_a[a_a]table.remove(b_a,a_a)
+table.remove(d_a,a_a)table.remove(c_a,a_a)a_a=a_a-1 end else b_a[a_a]=b_a[a_a]:sub(1,__a-2)..
+b_a[a_a]:sub(__a,b_a[a_a]:len())
+d_a[a_a]=d_a[a_a]:sub(1,
+__a-2)..d_a[a_a]:sub(__a,d_a[a_a]:len())c_a[a_a]=c_a[a_a]:sub(1,__a-2)..
+c_a[a_a]:sub(__a,c_a[a_a]:len())if(__a>1)then
+__a=__a-1 end;if(dd>1)then if(__ab_a[a_a]:len())then
+if(
+b_a[a_a+1]~=nil)then b_a[a_a]=b_a[a_a]..b_a[a_a+1]
+table.remove(b_a,a_a+1)table.remove(c_a,a_a+1)table.remove(d_a,a_a+1)end else b_a[a_a]=b_a[a_a]:sub(1,__a-1)..
+b_a[a_a]:sub(__a+1,b_a[a_a]:len())
+d_a[a_a]=d_a[a_a]:sub(1,
+__a-1)..d_a[a_a]:sub(__a+1,d_a[a_a]:len())c_a[a_a]=c_a[a_a]:sub(1,__a-1)..
+c_a[a_a]:sub(__a+1,c_a[a_a]:len())end end;cca(ada)end
+if(bda==keys.enter)then
+table.insert(b_a,a_a+1,b_a[a_a]:sub(__a,b_a[a_a]:len()))
+table.insert(d_a,a_a+1,d_a[a_a]:sub(__a,d_a[a_a]:len()))
+table.insert(c_a,a_a+1,c_a[a_a]:sub(__a,c_a[a_a]:len()))b_a[a_a]=b_a[a_a]:sub(1,__a-1)
+d_a[a_a]=d_a[a_a]:sub(1,__a-1)c_a[a_a]=c_a[a_a]:sub(1,__a-1)a_a=a_a+1;__a=1;dd=1;if(a_a-cd>=
+a_b)then cd=cd+1 end;ada:setValue("")end
+if(bda==keys.up)then
+if(a_a>1)then a_a=a_a-1;if(__a>b_a[a_a]:len()+1)then __a=
+b_a[a_a]:len()+1 end
+if(dd>1)then if(__a1)then if(a_ab_a[a_a]:len()+1)then __a=b_a[a_a]:len()+1 end
+if(dd>1)then if
+(__a=cd+a_b)then cd=cd+1 end end end
+if(bda==keys.right)then __a=__a+1
+if(a_a<#b_a)then if
+(__a>b_a[a_a]:len()+1)then __a=1;a_a=a_a+1 end elseif(__a>b_a[a_a]:len())then __a=
+b_a[a_a]:len()+1 end;if(__a<1)then __a=1 end
+if(__a=__b+dd)then dd=__a-__b+1 end;if(dd<1)then dd=1 end end
+if(bda==keys.left)then __a=__a-1;if(__a>=1)then
+if(__a=__b+dd)then dd=__a end end
+if(a_a>1)then if(__a<1)then a_a=a_a-1
+__a=b_a[a_a]:len()+1;dd=__a-__b+1 end end;if(__a<1)then __a=1 end;if(dd<1)then dd=1 end end
+if not
+( (cda+__a-dd>=cda and cda+__a-dd=dda and dda+a_a-cd
+ada:getX()+__b-1)then b_b=ada:getX()+__b-1 end
+local c_b=(a_a-cd=__b+dd)then dd=dd+1 end;cca(ada)
+ada:setValue("")
+if not
+( (cda+__a-dd>=cda and cda+__a-dd=dda and dda+a_a-cd
+ada:getX()+__b-1)then b_b=ada:getX()+__b-1 end
+local c_b=(a_a-cdb_b+cda- (__b+1)+dd)and(b_bb_a[a_a]:len())then __a=
+b_a[a_a]:len()+1;caa=__a end;if(__a#b_a- (_ab-1))then cd=#b_a- (_ab-1)end;if
+(cd<1)then cd=1 end
+if
+
+(__b+__a-dd>=__b and __b+__a-dd<__b+d_b)and(c_b+a_a-cd>=c_b and c_b+a_a-cd
+b_a[a_a]:len())then __a=b_a[a_a]:len()+1;baa=__a end;if(__ab_a[_ba]:len())then caa=
+b_a[_ba]:len()+1 end;if(baa==caa)and(daa==_ba)then baa,caa,daa,_ba=
+nil,nil,nil,nil end
+ada:updateDraw()end;return true end end,eventHandler=function(ada,bda,cda,dda,__b,a_b)
+if
+(ad.eventHandler(ada,bda,cda,dda,__b,a_b))then
+if(bda=="paste")then
+if(ada:isFocused())then local b_b,c_b=ada:getSize()b_a[a_a]=b_a[a_a]:sub(1,
+__a-1)..
+cda..b_a[a_a]:sub(__a,b_a[a_a]:len())
+d_a[a_a]=d_a[a_a]:sub(1,
+__a-1)..bb[ada.fgColor]:rep(cda:len())..
+d_a[a_a]:sub(__a,d_a[a_a]:len())
+c_a[a_a]=c_a[a_a]:sub(1,__a-1)..
+
+bb[ada.bgColor]:rep(cda:len())..c_a[a_a]:sub(__a,c_a[a_a]:len())__a=__a+cda:len()
+if(__a>=b_b+dd)then dd=(__a+1)-b_b end;local d_b,_ab=ada:getAnchorPosition()
+ada.parent:setCursor(true,d_b+__a-dd,_ab+
+a_a-cd,ada.fgColor)cca(ada)ada:updateDraw()end end end end,draw=function(ada)
+if
+(ad.draw(ada))then
+if(ada.parent~=nil)then local bda,cda=ada:getAnchorPosition()
+local dda,__b=ada:getSize()
+for n=1,__b do local a_b=""local b_b=""local c_b=""
+if(b_a[n+cd-1]~=nil)then a_b=b_a[n+cd-1]c_b=d_a[
+n+cd-1]b_b=c_a[n+cd-1]end;a_b=a_b:sub(dd,dda+dd-1)
+b_b=b_b:sub(dd,dda+dd-1)c_b=c_b:sub(dd,dda+dd-1)local d_b=dda-a_b:len()if(d_b<0)then
+d_b=0 end;a_b=a_b.._c(ada.bgSymbol,d_b)b_b=b_b..
+_c(bb[ada.bgColor],d_b)
+c_b=c_b.._c(bb[ada.fgColor],d_b)ada.parent:setText(bda,cda+n-1,a_b)ada.parent:setBG(bda,
+cda+n-1,b_b)
+ada.parent:setFG(bda,cda+n-1,c_b)end
+if
+(baa~=nil)and(caa~=nil)and(daa~=nil)and(_ba~=nil)then local a_b,b_b,c_b,d_b=dba(ada)
+for n=c_b,d_b do local _ab=b_a[n]:len()local aab=0
+if
+(n==c_b)and(n==d_b)then aab=a_b-1;_ab=_ab- (a_b-1)- (_ab-b_b)elseif(n==d_b)then
+_ab=_ab- (_ab-b_b)elseif(n==c_b)then _ab=_ab- (a_b-1)aab=a_b-1 end
+ada.parent:setBG(bda+aab,cda+n-1,_c(bb[aba],_ab))
+ada.parent:setFG(bda+aab,cda+n-1,_c(bb[bba],_ab))end end
+if(ada:isFocused())then local a_b,b_b=ada:getAnchorPosition()end end end end,init=function(ada)
+ada.parent:addEvent("mouse_click",ada)ada.parent:addEvent("mouse_up",ada)
+ada.parent:addEvent("mouse_scroll",ada)ada.parent:addEvent("mouse_drag",ada)
+ada.parent:addEvent("key",ada)ada.parent:addEvent("char",ada)
+ada.parent:addEvent("other_event",ada)
+if(ad.init(ada))then
+ada.bgColor=ada.parent:getTheme("TextfieldBG")ada.fgColor=ada.parent:getTheme("TextfieldText")end end}return setmetatable(_da,ad)end end
+aa["objects"]["Timer"]=function(...)local ab=da("basaltEvent")
+local bb=da("utils").getValueFromXML
+return
+function(cb)local db="Timer"local _c=0;local ac=0;local bc=0;local cc;local dc=ab()local _d=false
+local ad=function(cd,dd,__a)
+local a_a=function(b_a)
+if(b_a:sub(1,1)=="#")then
+local c_a=cd:getBaseFrame():getDeepObject(b_a:sub(2,b_a:len()))
+if(c_a~=nil)and(c_a.internalObjetCall~=nil)then dd(cd,function()
+c_a:internalObjetCall()end)end else
+dd(cd,cd:getBaseFrame():getVariable(b_a))end end;if(type(__a)=="string")then a_a(__a)elseif(type(__a)=="table")then
+for b_a,c_a in pairs(__a)do a_a(c_a)end end;return cd end
+local bd={name=cb,getType=function(cd)return db end,setValuesByXMLData=function(cd,dd)
+if(bb("time",dd)~=nil)then _c=bb("time",dd)end;if(bb("repeat",dd)~=nil)then ac=bb("repeat",dd)end
+if(
+bb("start",dd)~=nil)then if(bb("start",dd))then cd:start()end end;if(bb("onCall",dd)~=nil)then
+ad(cd,cd.onCall,bb("onCall",dd))end;return cd end,getBaseFrame=function(cd)
+if(
+cd.parent~=nil)then return cd.parent:getBaseFrame()end;return cd end,getZIndex=function(cd)return 1 end,getName=function(cd)
+return cd.name end,setTime=function(cd,dd,__a)_c=dd or 0;ac=__a or 1;return cd end,start=function(cd)if(_d)then
+os.cancelTimer(cc)end;bc=ac;cc=os.startTimer(_c)_d=true
+cd.parent:addEvent("other_event",cd)return cd end,isActive=function(cd)return _d end,cancel=function(cd)if(
+cc~=nil)then os.cancelTimer(cc)end;_d=false
+cd.parent:removeEvent("other_event",cd)return cd end,onCall=function(cd,dd)
+dc:registerEvent("timed_event",dd)return cd end,eventHandler=function(cd,dd,__a)
+if
+dd=="timer"and __a==cc and _d then dc:sendEvent("timed_event",cd)
+if(bc>=1)then bc=bc-1;if(bc>=1)then
+cc=os.startTimer(_c)end elseif(bc==-1)then cc=os.startTimer(_c)end end end}bd.__index=bd;return bd end end
+aa["objects"]["Thread"]=function(...)local ab=da("utils").getValueFromXML
+return
+function(bb)local cb
+local db="Thread"local _c;local ac;local bc=false;local cc
+local dc=function(_d,ad)
+if(ad:sub(1,1)=="#")then
+local bd=_d:getBaseFrame():getDeepObject(ad:sub(2,ad:len()))
+if(bd~=nil)and(bd.internalObjetCall~=nil)then return(function()
+bd:internalObjetCall()end)end else return _d:getBaseFrame():getVariable(ad)end;return _d end
+cb={name=bb,getType=function(_d)return db end,getZIndex=function(_d)return 1 end,getName=function(_d)return _d.name end,getBaseFrame=function(_d)if
+(_d.parent~=nil)then return _d.parent:getBaseFrame()end
+return _d end,setValuesByXMLData=function(_d,ad)local bd;if(ab("thread",ad)~=nil)then
+bd=dc(_d,ab("thread",ad))end
+if(ab("start",ad)~=nil)then if
+(ab("start",ad))and(bd~=nil)then _d:start(bd)end end;return _d end,start=function(_d,ad)
+if(
+ad==nil)then error("Function provided to thread is nil")end;_c=ad;ac=coroutine.create(_c)bc=true;cc=nil
+local bd,cd=coroutine.resume(ac)cc=cd;if not(bd)then if(cd~="Terminated")then
+error("Thread Error Occurred - "..cd)end end
+_d.parent:addEvent("mouse_click",_d)_d.parent:addEvent("mouse_up",_d)
+_d.parent:addEvent("mouse_scroll",_d)_d.parent:addEvent("mouse_drag",_d)
+_d.parent:addEvent("key",_d)_d.parent:addEvent("key_up",_d)
+_d.parent:addEvent("char",_d)_d.parent:addEvent("other_event",_d)return _d end,getStatus=function(_d,ad)if(
+ac~=nil)then return coroutine.status(ac)end;return nil end,stop=function(_d,ad)
+bc=false;_d.parent:removeEvent("mouse_click",_d)
+_d.parent:removeEvent("mouse_up",_d)_d.parent:removeEvent("mouse_scroll",_d)
+_d.parent:removeEvent("mouse_drag",_d)_d.parent:removeEvent("key",_d)
+_d.parent:removeEvent("key_up",_d)_d.parent:removeEvent("char",_d)
+_d.parent:removeEvent("other_event",_d)return _d end,mouseHandler=function(_d,...)
+_d:eventHandler("mouse_click",...)end,mouseUpHandler=function(_d,...)_d:eventHandler("mouse_up",...)end,mouseScrollHandler=function(_d,...)
+_d:eventHandler("mouse_scroll",...)end,mouseDragHandler=function(_d,...)
+_d:eventHandler("mouse_drag",...)end,mouseMoveHandler=function(_d,...)
+_d:eventHandler("mouse_move",...)end,keyHandler=function(_d,...)_d:eventHandler("key",...)end,keyUpHandler=function(_d,...)
+_d:eventHandler("key_up",...)end,charHandler=function(_d,...)_d:eventHandler("char",...)end,eventHandler=function(_d,ad,...)
+if
+(bc)then
+if(coroutine.status(ac)=="suspended")then if(cc~=nil)then if(ad~=cc)then return end;cc=
+nil end
+local bd,cd=coroutine.resume(ac,ad,...)cc=cd;if not(bd)then if(cd~="Terminated")then
+error("Thread Error Occurred - "..cd)end end else
+_d:stop()end end end}cb.__index=cb;return cb end end
+aa["objects"]["Slider"]=function(...)local ab=da("Object")
+local bb=da("basaltLogs")local cb=da("utils").getValueFromXML
+return
+function(db)local _c=ab(db)local ac="Slider"
+_c.width=8;_c.height=1;_c:setValue(1)local bc="horizontal"local cc=" "local dc;local _d="\140"
+local ad=_c.width;local bd=1;local cd=1
+local function dd(a_a,b_a,c_a,d_a)
+local _aa,aaa=a_a:getAbsolutePosition(a_a:getAnchorPosition())local baa,caa=a_a:getSize()
+if(bc=="horizontal")then
+for _index=0,baa do
+if
+(_aa+_index==c_a)and(aaa<=d_a)and(aaa+caa>d_a)then
+bd=math.min(_index+1,baa- (cd-1))a_a:setValue(ad/baa* (bd))a_a:updateDraw()end end end
+if(bc=="vertical")then
+for _index=0,caa do
+if
+(aaa+_index==d_a)and(_aa<=c_a)and(_aa+baa>c_a)then bd=math.min(_index+1,caa- (cd-1))
+a_a:setValue(ad/caa* (bd))a_a:updateDraw()end end end end
+local __a={getType=function(a_a)return ac end,setSymbol=function(a_a,b_a)cc=b_a:sub(1,1)a_a:updateDraw()return a_a end,setValuesByXMLData=function(a_a,b_a)
+_c.setValuesByXMLData(a_a,b_a)
+if(cb("maxValue",b_a)~=nil)then ad=cb("maxValue",b_a)end;if(cb("backgroundSymbol",b_a)~=nil)then
+_d=cb("backgroundSymbol",b_a):sub(1,1)end;if(cb("barType",b_a)~=nil)then
+bc=cb("barType",b_a):lower()end;if(cb("symbol",b_a)~=nil)then
+cc=cb("symbol",b_a):sub(1,1)end;if(cb("symbolSize",b_a)~=nil)then
+a_a:setSymbolSize(cb("symbolSize",b_a))end;if(cb("symbolColor",b_a)~=nil)then
+dc=colors[cb("symbolColor",b_a)]end;if(cb("index",b_a)~=nil)then
+a_a:setIndex(cb("index",b_a))end end,setIndex=function(a_a,b_a)
+bd=b_a;if(bd<1)then bd=1 end;local c_a,d_a=a_a:getSize()
+bd=math.min(bd,(
+bc=="vertical"and d_a or c_a)- (cd-1))
+a_a:setValue(ad/ (bc=="vertical"and d_a or c_a)*bd)a_a:updateDraw()return a_a end,getIndex=function(a_a)return
+bd end,setSymbolSize=function(a_a,b_a)cd=tonumber(b_a)or 1
+if(bc=="vertical")then
+a_a:setValue(bd-1 * (ad/ (h- (cd-
+1)))- (ad/ (h- (cd-1))))elseif(bc=="horizontal")then
+a_a:setValue(bd-1 * (ad/ (w- (cd-1)))- (ad/
+(w- (cd-1))))end;a_a:updateDraw()return a_a end,setMaxValue=function(a_a,b_a)
+ad=b_a;return a_a end,setBackgroundSymbol=function(a_a,b_a)_d=string.sub(b_a,1,1)
+a_a:updateDraw()return a_a end,setSymbolColor=function(a_a,b_a)dc=b_a;a_a:updateDraw()
+return a_a end,setBarType=function(a_a,b_a)bc=b_a:lower()a_a:updateDraw()
+return a_a end,mouseHandler=function(a_a,b_a,c_a,d_a)if(_c.mouseHandler(a_a,b_a,c_a,d_a))then
+dd(a_a,b_a,c_a,d_a)return true end;return false end,dragHandler=function(a_a,b_a,c_a,d_a)if
+(_c.dragHandler(a_a,b_a,c_a,d_a))then dd(a_a,b_a,c_a,d_a)return true end
+return false end,scrollHandler=function(a_a,b_a,c_a,d_a)
+if
+(_c.scrollHandler(a_a,b_a,c_a,d_a))then local _aa,aaa=a_a:getSize()bd=bd+b_a;if(bd<1)then bd=1 end
+bd=math.min(bd,(
+bc=="vertical"and aaa or _aa)- (cd-1))
+a_a:setValue(ad/ (bc=="vertical"and aaa or _aa)*bd)a_a:updateDraw()return true end;return false end,draw=function(a_a)
+if
+(_c.draw(a_a))then
+if(a_a.parent~=nil)then local b_a,c_a=a_a:getAnchorPosition()
+local d_a,_aa=a_a:getSize()
+if(bc=="horizontal")then
+a_a.parent:writeText(b_a,c_a,_d:rep(bd-1),a_a.bgColor,a_a.fgColor)
+a_a.parent:writeText(b_a+bd-1,c_a,cc:rep(cd),dc,dc)
+a_a.parent:writeText(b_a+bd+cd-1,c_a,_d:rep(d_a- (bd+cd-1)),a_a.bgColor,a_a.fgColor)end
+if(bc=="vertical")then
+for n=0,_aa-1 do
+if(bd==n+1)then
+for curIndexOffset=0,math.min(cd-1,_aa)do a_a.parent:writeText(b_a,c_a+n+
+curIndexOffset,cc,dc,dc)end else if(n+1 bd-1 +cd)then
+a_a.parent:writeText(b_a,c_a+n,_d,a_a.bgColor,a_a.fgColor)end end end end end end end,init=function(a_a)
+a_a.parent:addEvent("mouse_click",a_a)a_a.parent:addEvent("mouse_drag",a_a)
+a_a.parent:addEvent("mouse_scroll",a_a)
+if(_c.init(a_a))then
+a_a.bgColor=a_a.parent:getTheme("SliderBG")a_a.fgColor=a_a.parent:getTheme("SliderText")
+dc=a_a.parent:getTheme("SliderSymbolColor")end end}return setmetatable(__a,_c)end end;aa["libraries"]={}
+aa["libraries"]["basaltDraw"]=function(...)
+local ab=da("tHex")local bb,cb=string.sub,string.rep
+return
+function(db)local _c=db or term.current()
+local ac;local bc,cc=_c.getSize()local dc={}local _d={}local ad={}local bd={}local cd={}local dd={}local __a;local a_a={}local function b_a()
+__a=cb(" ",bc)
+for n=0,15 do local daa=2 ^n;local _ba=ab[daa]a_a[daa]=cb(_ba,bc)end end;b_a()
+local function c_a()b_a()local daa=__a
+local _ba=a_a[colors.white]local aba=a_a[colors.black]
+for currentY=1,cc do
+dc[currentY]=bb(
+dc[currentY]==nil and daa or
+dc[currentY]..daa:sub(1,bc-dc[currentY]:len()),1,bc)
+ad[currentY]=bb(ad[currentY]==nil and _ba or ad[currentY].._ba:sub(1,bc-
+ad[currentY]:len()),1,bc)
+_d[currentY]=bb(_d[currentY]==nil and aba or _d[currentY]..aba:sub(1,bc-
+_d[currentY]:len()),1,bc)end end;c_a()
+local function d_a(daa,_ba,aba)
+if(_ba>=1)and(_ba<=cc)then
+if
+(daa+aba:len()>0)and(daa<=bc)then local bba=dc[_ba]local cba;local dba=daa+#aba-1
+if(daa<1)then local _ca=1 -daa+1
+local aca=bc-daa+1;aba=bb(aba,_ca,aca)elseif(dba>bc)then local _ca=bc-daa+1;aba=bb(aba,1,_ca)end
+if(daa>1)then local _ca=daa-1;cba=bb(bba,1,_ca)..aba else cba=aba end;if dba=1)and(_ba<=cc)then
+if(daa+aba:len()>0)and(daa<=bc)then
+local bba=_d[_ba]local cba;local dba=daa+#aba-1
+if(daa<1)then
+aba=bb(aba,1 -daa+1,bc-daa+1)elseif(dba>bc)then aba=bb(aba,1,bc-daa+1)end
+if(daa>1)then cba=bb(bba,1,daa-1)..aba else cba=aba end;if dba=1)and(_ba<=cc)then
+if(daa+aba:len()>0)and(daa<=bc)then
+local bba=ad[_ba]local cba;local dba=daa+#aba-1
+if(daa<1)then local _ca=1 -daa+1;local aca=bc-daa+1
+aba=bb(aba,_ca,aca)elseif(dba>bc)then local _ca=bc-daa+1;aba=bb(aba,1,_ca)end
+if(daa>1)then local _ca=daa-1;cba=bb(bba,1,_ca)..aba else cba=aba end;if dba=1)and(_ba<=cc)then
+if(
+daa+aba:len()>0)and(daa<=bc)then local dba=dc[_ba]local _ca=ad[_ba]local aca=_d[_ba]
+local bca,cca,dca;local _da=daa+#aba-1
+if(daa<1)then local ada=1 -daa+1;local bda=bc-daa+1
+aba=bb(aba,ada,bda)bba=bb(bba,ada,bda)cba=bb(cba,ada,bda)elseif(_da>bc)then local ada=bc-daa+1
+aba=bb(aba,1,ada)bba=bb(bba,1,ada)cba=bb(cba,1,ada)end
+if(daa>1)then local ada=daa-1;bca=bb(dba,1,ada)..aba
+cca=bb(_ca,1,ada)..bba;dca=bb(aca,1,ada)..cba else bca=aba;cca=bba;dca=cba end
+if _da_ca and dca or _ca end;_ba=_ba>dba and _ba or dba;aba=aba+_ca end;dd,__a=_ba,aba end;_aa()
+local function aaa()local _ba=0;local aba,bba=0,0
+for cba,dba in pairs(bc)do local _ca=0;local aca=0
+for bca,cca in pairs(dba)do
+local dca,_da=cca.getSize()if(cc-_ca>=1)and(cc-_ca<=dca)then aba=bca end;cca.setCursorPos(
+cc-_ca,dc-_ba)_ca=_ca+dca
+if(aca<_da)then aca=_da end end;if(dc-_ba>=1)and(dc-_ba<=aca)then bba=cba end
+_ba=_ba+aca end;_d,ad=aba,bba end;aaa()
+local function baa(_ba,...)local aba={...}return
+function()for bba,cba in pairs(bc)do for dba,_ca in pairs(cba)do
+_ca[_ba](table.unpack(aba))end end end end
+local function caa()baa("setCursorBlink",false)()
+if not(a_a)then return end;if(bc[ad]==nil)then return end;local _ba=bc[ad][_d]
+if(_ba==nil)then return end;_ba.setCursorBlink(a_a)end
+local function daa(_ba,aba,bba)if(bc[ad]==nil)then return end;local cba=bc[ad][_d]
+if(cba==nil)then return end;cba.blit(_ba,aba,bba)local dba,_ca=cba.getSize()
+if
+(cb(_ba)+cc>dba)then local aca=bc[ad][_d+1]if(aca~=nil)then aca.blit(_ba,aba,bba)_d=_d+1;cc=cc+
+cb(_ba)end end;aaa()end
+return
+{clear=baa("clear"),setCursorBlink=function(_ba)a_a=_ba;caa()end,getCursorBlink=function()return a_a end,getCursorPos=function()return cc,dc end,setCursorPos=function(_ba,aba)
+cc,dc=_ba,aba;aaa()caa()end,setTextScale=function(_ba)
+baa("setTextScale",_ba)()_aa()aaa()b_a=_ba end,getTextScale=function()return b_a end,blit=function(_ba,aba,bba)
+daa(_ba,aba,bba)end,write=function(_ba)_ba=tostring(_ba)local aba=cb(_ba)
+daa(_ba,db(ab[c_a],aba),db(ab[d_a],aba))end,getSize=function()return dd,__a end,setBackgroundColor=function(_ba)
+baa("setBackgroundColor",_ba)()d_a=_ba end,setTextColor=function(_ba)
+baa("setTextColor",_ba)()c_a=_ba end,calculateClick=function(_ba,aba,bba)local cba=0
+for dba,_ca in pairs(bc)do local aca=0;local bca=0
+for cca,dca in pairs(_ca)do
+local _da,ada=dca.getSize()if(dca.name==_ba)then return aba+aca,bba+cba end
+aca=aca+_da;if(ada>bca)then bca=ada end end;cba=cba+bca end;return aba,bba end}end end
+aa["libraries"]["bigfont"]=function(...)local ab=da("tHex")
+local bb={{"\32\32\32\137\156\148\158\159\148\135\135\144\159\139\32\136\157\32\159\139\32\32\143\32\32\143\32\32\32\32\32\32\32\32\147\148\150\131\148\32\32\32\151\140\148\151\140\147","\32\32\32\149\132\149\136\156\149\144\32\133\139\159\129\143\159\133\143\159\133\138\32\133\138\32\133\32\32\32\32\32\32\150\150\129\137\156\129\32\32\32\133\131\129\133\131\132","\32\32\32\130\131\32\130\131\32\32\129\32\32\32\32\130\131\32\130\131\32\32\32\32\143\143\143\32\32\32\32\32\32\130\129\32\130\135\32\32\32\32\131\32\32\131\32\131","\139\144\32\32\143\148\135\130\144\149\32\149\150\151\149\158\140\129\32\32\32\135\130\144\135\130\144\32\149\32\32\139\32\159\148\32\32\32\32\159\32\144\32\148\32\147\131\132","\159\135\129\131\143\149\143\138\144\138\32\133\130\149\149\137\155\149\159\143\144\147\130\132\32\149\32\147\130\132\131\159\129\139\151\129\148\32\32\139\131\135\133\32\144\130\151\32","\32\32\32\32\32\32\130\135\32\130\32\129\32\129\129\131\131\32\130\131\129\140\141\132\32\129\32\32\129\32\32\32\32\32\32\32\131\131\129\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\159\154\133\133\133\144\152\141\132\133\151\129\136\153\32\32\154\32\159\134\129\130\137\144\159\32\144\32\148\32\32\32\32\32\32\32\32\32\32\32\151\129","\32\32\32\32\133\32\32\32\32\145\145\132\141\140\132\151\129\144\150\146\129\32\32\32\138\144\32\32\159\133\136\131\132\131\151\129\32\144\32\131\131\129\32\144\32\151\129\32","\32\32\32\32\129\32\32\32\32\130\130\32\32\129\32\129\32\129\130\129\129\32\32\32\32\130\129\130\129\32\32\32\32\32\32\32\32\133\32\32\32\32\32\129\32\129\32\32","\150\156\148\136\149\32\134\131\148\134\131\148\159\134\149\136\140\129\152\131\32\135\131\149\150\131\148\150\131\148\32\148\32\32\148\32\32\152\129\143\143\144\130\155\32\134\131\148","\157\129\149\32\149\32\152\131\144\144\131\148\141\140\149\144\32\149\151\131\148\32\150\32\150\131\148\130\156\133\32\144\32\32\144\32\130\155\32\143\143\144\32\152\129\32\134\32","\130\131\32\131\131\129\131\131\129\130\131\32\32\32\129\130\131\32\130\131\32\32\129\32\130\131\32\130\129\32\32\129\32\32\133\32\32\32\129\32\32\32\130\32\32\32\129\32","\150\140\150\137\140\148\136\140\132\150\131\132\151\131\148\136\147\129\136\147\129\150\156\145\138\143\149\130\151\32\32\32\149\138\152\129\149\32\32\157\152\149\157\144\149\150\131\148","\149\143\142\149\32\149\149\32\149\149\32\144\149\32\149\149\32\32\149\32\32\149\32\149\149\32\149\32\149\32\144\32\149\149\130\148\149\32\32\149\32\149\149\130\149\149\32\149","\130\131\129\129\32\129\131\131\32\130\131\32\131\131\32\131\131\129\129\32\32\130\131\32\129\32\129\130\131\32\130\131\32\129\32\129\131\131\129\129\32\129\129\32\129\130\131\32","\136\140\132\150\131\148\136\140\132\153\140\129\131\151\129\149\32\149\149\32\149\149\32\149\137\152\129\137\152\129\131\156\133\149\131\32\150\32\32\130\148\32\152\137\144\32\32\32","\149\32\32\149\159\133\149\32\149\144\32\149\32\149\32\149\32\149\150\151\129\138\155\149\150\130\148\32\149\32\152\129\32\149\32\32\32\150\32\32\149\32\32\32\32\32\32\32","\129\32\32\130\129\129\129\32\129\130\131\32\32\129\32\130\131\32\32\129\32\129\32\129\129\32\129\32\129\32\131\131\129\130\131\32\32\32\129\130\131\32\32\32\32\140\140\132","\32\154\32\159\143\32\149\143\32\159\143\32\159\144\149\159\143\32\159\137\145\159\143\144\149\143\32\32\145\32\32\32\145\149\32\144\32\149\32\143\159\32\143\143\32\159\143\32","\32\32\32\152\140\149\151\32\149\149\32\145\149\130\149\157\140\133\32\149\32\154\143\149\151\32\149\32\149\32\144\32\149\149\153\32\32\149\32\149\133\149\149\32\149\149\32\149","\32\32\32\130\131\129\131\131\32\130\131\32\130\131\129\130\131\129\32\129\32\140\140\129\129\32\129\32\129\32\137\140\129\130\32\129\32\130\32\129\32\129\129\32\129\130\131\32","\144\143\32\159\144\144\144\143\32\159\143\144\159\138\32\144\32\144\144\32\144\144\32\144\144\32\144\144\32\144\143\143\144\32\150\129\32\149\32\130\150\32\134\137\134\134\131\148","\136\143\133\154\141\149\151\32\129\137\140\144\32\149\32\149\32\149\154\159\133\149\148\149\157\153\32\154\143\149\159\134\32\130\148\32\32\149\32\32\151\129\32\32\32\32\134\32","\133\32\32\32\32\133\129\32\32\131\131\32\32\130\32\130\131\129\32\129\32\130\131\129\129\32\129\140\140\129\131\131\129\32\130\129\32\129\32\130\129\32\32\32\32\32\129\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32","\32\32\32\32\145\32\159\139\32\151\131\132\155\143\132\134\135\145\32\149\32\158\140\129\130\130\32\152\147\155\157\134\32\32\144\144\32\32\32\32\32\32\152\131\155\131\131\129","\32\32\32\32\149\32\149\32\145\148\131\32\149\32\149\140\157\132\32\148\32\137\155\149\32\32\32\149\154\149\137\142\32\153\153\32\131\131\149\131\131\129\149\135\145\32\32\32","\32\32\32\32\129\32\130\135\32\131\131\129\134\131\132\32\129\32\32\129\32\131\131\32\32\32\32\130\131\129\32\32\32\32\129\129\32\32\32\32\32\32\130\131\129\32\32\32","\150\150\32\32\148\32\134\32\32\132\32\32\134\32\32\144\32\144\150\151\149\32\32\32\32\32\32\145\32\32\152\140\144\144\144\32\133\151\129\133\151\129\132\151\129\32\145\32","\130\129\32\131\151\129\141\32\32\142\32\32\32\32\32\149\32\149\130\149\149\32\143\32\32\32\32\142\132\32\154\143\133\157\153\132\151\150\148\151\158\132\151\150\148\144\130\148","\32\32\32\140\140\132\32\32\32\32\32\32\32\32\32\151\131\32\32\129\129\32\32\32\32\134\32\32\32\32\32\32\32\129\129\32\129\32\129\129\130\129\129\32\129\130\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\150\151\129\150\131\132\140\143\144\143\141\145\137\140\148\141\141\144\157\142\32\159\140\32\151\134\32\157\141\32","\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\151\151\32\154\143\132\157\140\32\157\140\32\157\140\32\157\140\32\32\149\32\32\149\32\32\149\32\32\149\32","\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\131\129\32\134\32\131\131\129\131\131\129\131\131\129\131\131\129\130\131\32\130\131\32\130\131\32\130\131\32","\151\131\148\152\137\145\155\140\144\152\142\145\153\140\132\153\137\32\154\142\144\155\159\132\150\156\148\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\136\32\151\140\132","\151\32\149\151\155\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\152\137\144\157\129\149\149\32\149\149\32\149\149\32\149\149\32\149\130\150\32\32\157\129\149\32\149","\131\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\129\32\130\131\32\133\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\159\159\144\152\140\144\156\143\32\159\141\129\153\140\132\157\141\32\130\145\32\32\147\32\136\153\32\130\146\32","\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\149\157\134\154\143\132\157\140\133\157\140\133\157\140\133\157\140\133\32\149\32\32\149\32\32\149\32\32\149\32","\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\130\131\32\134\32\130\131\129\130\131\129\130\131\129\130\131\129\32\129\32\32\129\32\32\129\32\32\129\32","\159\134\144\137\137\32\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\32\132\32\159\143\32\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\138\32\146\130\144","\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\131\147\129\138\134\149\149\32\149\149\32\149\149\32\149\149\32\149\154\143\149\32\157\129\154\143\149","\130\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\129\130\131\129\130\131\129\130\131\129\140\140\129\130\131\32\140\140\129"},{"000110000110110000110010101000000010000000100101","000000110110000000000010101000000010000000100101","000000000000000000000000000000000000000000000000","100010110100000010000110110000010100000100000110","000000110000000010110110000110000000000000110000","000000000000000000000000000000000000000000000000","000000110110000010000000100000100000000000000010","000000000110110100010000000010000000000000000100","000000000000000000000000000000000000000000000000","010000000000100110000000000000000000000110010000","000000000000000000000000000010000000010110000000","000000000000000000000000000000000000000000000000","011110110000000100100010110000000100000000000000","000000000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110000110110000000000000000000010100100010000000","000010000000000000110110000000000100010010000000","000000000000000000000000000000000000000000000000","010110010110100110110110010000000100000110110110","000000000000000000000110000000000110000000000000","000000000000000000000000000000000000000000000000","010100010110110000000000000000110000000010000000","110110000000000000110000110110100000000010000000","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","100100100100100100100100100100100100100100100100","000000110100110110000010000011110000000000011000","000000000100000000000010000011000110000000001000","000000000000000000000000000000000000000000000000","010000100100000000000000000100000000010010110000","000000000000000000000000000000110110110110110000","000000000000000000000000000000000000000000000000","110110110110110110000000110110110110110110110110","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","000000000000110110000110010000000000000000010010","000010000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110110110110000000000000","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110000000000000000010000","000000000000000000000000100000000000000110000110","000000000000000000000000000000000000000000000000"}}local cb={}local db={}
+do local bc=0;local cc=#bb[1]local dc=#bb[1][1]
+for i=1,cc,3 do
+for j=1,dc,3 do
+local _d=string.char(bc)local ad={}ad[1]=bb[1][i]:sub(j,j+2)
+ad[2]=bb[1][i+1]:sub(j,j+2)ad[3]=bb[1][i+2]:sub(j,j+2)local bd={}bd[1]=bb[2][i]:sub(j,
+j+2)bd[2]=bb[2][i+1]:sub(j,j+2)bd[3]=bb[2][
+i+2]:sub(j,j+2)db[_d]={ad,bd}bc=bc+1 end end;cb[1]=db end
+local function _c(bc,cc)local dc={["0"]="1",["1"]="0"}if bc<=#cb then return true end
+for f=#cb+1,bc do local _d={}local ad=cb[
+f-1]
+for char=0,255 do local bd=string.char(char)local cd={}local dd={}
+local __a=ad[bd][1]local a_a=ad[bd][2]
+for i=1,#__a do local b_a,c_a,d_a,_aa,aaa,baa={},{},{},{},{},{}
+for j=1,#__a[1]do
+local caa=db[__a[i]:sub(j,j)][1]table.insert(b_a,caa[1])
+table.insert(c_a,caa[2])table.insert(d_a,caa[3])
+local daa=db[__a[i]:sub(j,j)][2]
+if a_a[i]:sub(j,j)=="1"then
+table.insert(_aa,(daa[1]:gsub("[01]",dc)))
+table.insert(aaa,(daa[2]:gsub("[01]",dc)))
+table.insert(baa,(daa[3]:gsub("[01]",dc)))else table.insert(_aa,daa[1])
+table.insert(aaa,daa[2])table.insert(baa,daa[3])end end;table.insert(cd,table.concat(b_a))
+table.insert(cd,table.concat(c_a))table.insert(cd,table.concat(d_a))
+table.insert(dd,table.concat(_aa))table.insert(dd,table.concat(aaa))
+table.insert(dd,table.concat(baa))end;_d[bd]={cd,dd}if cc then cc="Font"..f.."Yeld"..char
+os.queueEvent(cc)os.pullEvent(cc)end end;cb[f]=_d end;return true end
+local function ac(bc,cc,dc,_d,ad)
+if not type(cc)=="string"then error("Not a String",3)end
+local bd=type(dc)=="string"and dc:sub(1,1)or ab[dc]or
+error("Wrong Front Color",3)
+local cd=type(_d)=="string"and _d:sub(1,1)or ab[_d]or
+error("Wrong Back Color",3)if(cb[bc]==nil)then _c(3,false)end;local dd=cb[bc]or
+error("Wrong font size selected",3)if cc==""then
+return{{""},{""},{""}}end;local __a={}
+for baa in cc:gmatch('.')do table.insert(__a,baa)end;local a_a={}local b_a=#dd[__a[1]][1]
+for nLine=1,b_a do local baa={}
+for i=1,#__a do baa[i]=dd[__a[i]]and
+dd[__a[i]][1][nLine]or""end;a_a[nLine]=table.concat(baa)end;local c_a={}local d_a={}local _aa={["0"]=bd,["1"]=cd}local aaa={["0"]=cd,["1"]=bd}
+for nLine=1,b_a do
+local baa={}local caa={}
+for i=1,#__a do
+local daa=dd[__a[i]]and dd[__a[i]][2][nLine]or""
+baa[i]=daa:gsub("[01]",
+ad and{["0"]=dc:sub(i,i),["1"]=_d:sub(i,i)}or _aa)
+caa[i]=daa:gsub("[01]",
+ad and{["0"]=_d:sub(i,i),["1"]=dc:sub(i,i)}or aaa)end;c_a[nLine]=table.concat(baa)
+d_a[nLine]=table.concat(caa)end;return{a_a,c_a,d_a}end;return ac end
+aa["libraries"]["bimg"]=function(...)local ab,bb=string.sub,string.rep
+local function cb(db,_c)local ac,bc=0,0
+local cc,dc,_d={},{},{}local ad,bd=1,1;local cd={}
+local function dd()
+for y=1,bc do if(cc[y]==nil)then cc[y]=bb(" ",ac)else cc[y]=cc[y]..
+bb(" ",ac-#cc[y])end;if
+(dc[y]==nil)then dc[y]=bb("0",ac)else
+dc[y]=dc[y]..bb("0",ac-#dc[y])end
+if(_d[y]==nil)then _d[y]=bb("f",ac)else _d[y]=
+_d[y]..bb("f",ac-#_d[y])end end end
+local __a=function(d_a,_aa,aaa)ad=_aa or ad;bd=aaa or bd
+if(cc[bd]==nil)then cc[bd]=bb(" ",ad-1)..d_a..
+bb(" ",ac- (#d_a+ad))else cc[bd]=
+ab(cc[bd],1,ad-1)..
+bb(" ",ad-#cc[bd])..d_a..ab(cc[bd],ad+#d_a,ac)end;if(#cc[bd]>ac)then ac=#cc[bd]end;if(bd>bc)then bc=bd end
+_c.updateSize(ac,bc)end
+local a_a=function(d_a,_aa,aaa)ad=_aa or ad;bd=aaa or bd
+if(_d[bd]==nil)then _d[bd]=bb("f",ad-1)..d_a..
+bb("f",ac- (#d_a+ad))else _d[bd]=
+ab(_d[bd],1,ad-1)..
+bb("f",ad-#_d[bd])..d_a..ab(_d[bd],ad+#d_a,ac)end;if(#_d[bd]>ac)then ac=#_d[bd]end;if(bd>bc)then bc=bd end
+_c.updateSize(ac,bc)end
+local b_a=function(d_a,_aa,aaa)ad=_aa or ad;bd=aaa or bd
+if(dc[bd]==nil)then dc[bd]=bb("0",ad-1)..d_a..
+bb("0",ac- (#d_a+ad))else dc[bd]=
+ab(dc[bd],1,ad-1)..
+bb("0",ad-#dc[bd])..d_a..ab(dc[bd],ad+#d_a,ac)end;if(#dc[bd]>ac)then ac=#dc[bd]end;if(bd>bc)then bc=bd end
+_c.updateSize(ac,bc)end
+local function c_a(d_a)cd={}cc,dc,_d={},{},{}
+for _aa,aaa in pairs(db)do if(type(_aa)=="string")then cd[_aa]=aaa else
+cc[_aa],dc[_aa],_d[_aa]=aaa[1],aaa[2],aaa[3]end end;_c.updateSize(ac,bc)end;if(db~=nil)then ac=#db[1][1]bc=#db;c_a(db)end
+return
+{recalculateSize=dd,setFrame=c_a,getFrame=function()local d_a={}
+for _aa,aaa in
+pairs(cc)do table.insert(d_a,{aaa,dc[_aa],_d[_aa]})end;for _aa,aaa in pairs(cd)do d_a[_aa]=aaa end;return d_a,ac,bc end,getImage=function()
+local d_a={}for _aa,aaa in pairs(cc)do
+table.insert(d_a,{aaa,dc[_aa],_d[_aa]})end;return d_a end,setFrameData=function(d_a,_aa)
+if(
+_aa~=nil)then cd[d_a]=_aa else if(type(d_a)=="table")then cd=d_a end end end,setFrameImage=function(d_a)
+for _aa,aaa in pairs(d_a.t)do
+cc[_aa]=d_a.t[_aa]dc[_aa]=d_a.fg[_aa]_d[_aa]=d_a.bg[_aa]end end,getFrameImage=function()
+return{t=cc,fg=dc,bg=_d}end,getFrameData=function(d_a)return(d_a~=nil and cd[d_a]or cd)end,blit=function(d_a,_aa,aaa,baa,caa)
+__a(d_a,baa,caa)b_a(_aa,baa,caa)a_a(aaa,baa,caa)end,text=__a,fg=b_a,bg=a_a,getSize=function()return
+ac,bc end,setSize=function(d_a,_aa)local aaa,baa,caa={},{},{}
+for _y=1,_aa do
+if(cc[_y]~=nil)then aaa[_y]=ab(cc[_y],1,d_a)..bb(" ",
+d_a-ac)else aaa[_y]=bb(" ",d_a)end;if(dc[_y]~=nil)then
+baa[_y]=ab(dc[_y],1,d_a)..bb("0",d_a-ac)else baa[_y]=bb("0",d_a)end;if
+(_d[_y]~=nil)then caa[_y]=ab(_d[_y],1,d_a)..bb("f",d_a-ac)else
+caa[_y]=bb("f",d_a)end end;cc,dc,_d=aaa,baa,caa;ac,bc=d_a,_aa end}end
+return
+function(db)local _c={}
+local ac={creator="Bimg Library by NyoriE",date=os.date("!%Y-%m-%dT%TZ")}local bc,cc=0,0;local dc={}
+local function _d(cd,dd)cd=cd or#_c+1
+table.insert(_c,cd,cb(dd,dc))if(dd==nil)then _c[cd].setSize(bc,cc)end end;local function ad(cd)table.remove(_c,cd or#_c)end
+local function bd(cd,dd)
+local __a=_c[cd]
+if(__a~=nil)then local a_a=cd+dd;if(a_a>=1)and(a_a<=#_c)then table.remove(_c,cd)
+table.insert(_c,a_a,__a)end end end
+dc={updateSize=function(cd,dd,__a)local a_a=__a==true and true or false
+if(cd>bc)then a_a=true;bc=cd end;if(dd>cc)then a_a=true;cc=dd end
+if(a_a)then for b_a,c_a in pairs(_c)do c_a.setSize(bc,cc)
+c_a.recalculateSize()end end end,text=function(cd,dd,__a,a_a)
+local b_a=_c[cd]if(b_a==nil)then b_a=_d(cd)end;b_a.text(dd,__a,a_a)end,fg=function(cd,dd,__a,a_a)
+local b_a=_c[cd]if(b_a==nil)then b_a=_d(cd)end;b_a.fg(dd,__a,a_a)end,bg=function(cd,dd,__a,a_a)
+local b_a=_c[cd]if(b_a==nil)then b_a=_d(cd)end;b_a.bg(dd,__a,a_a)end,blit=function(cd,dd,__a,a_a,b_a,c_a)
+local d_a=_c[cd]if(d_a==nil)then d_a=_d(cd)end;d_a.blit(dd,__a,a_a,b_a,c_a)end,setSize=function(cd,dd)
+bc=cd;cc=dd;for __a,a_a in pairs(_c)do a_a.setSize(cd,dd)end end,getFrame=function(cd)if(
+_c[cd]~=nil)then return _c[cd].getFrame()end end,getFrameObjects=function()return
+_c end,getFrames=function()local cd={}for dd,__a in pairs(_c)do local a_a=__a.getFrame()
+table.insert(cd,a_a)end;return cd end,getFrameObject=function(cd)return
+_c[cd]end,addFrame=function(cd)local dd=cb()if(#_c<=1)then
+if(ac.animated==nil)then ac.animated=true end
+if(ac.secondsPerFrame==nil)then ac.secondsPerFrame=0.2 end end;_d(cd)return dd end,removeFrame=function(cd)
+ad(cd)
+if(#_c<=1)then if(ac.animated==nil)then ac.animated=true end;if
+(ac.secondsPerFrame==nil)then ac.secondsPerFrame=0.2 end end end,moveFrame=bd,setFrameData=function(cd,dd,__a)
+if(
+_c[cd]~=nil)then _c[cd].setFrameData(dd,__a)end end,getFrameData=function(cd,dd)return _c[cd]~=nil and
+_c[cd].getFrameData(dd)end,getSize=function()return
+bc,cc end,setAnimation=function(cd)ac.animation=cd end,setMetadata=function(cd,dd)if(dd~=nil)then ac[cd]=dd else if(
+type(cd)=="table")then ac=cd end end end,getMetadata=function(cd)return
+cd~=nil and ac[cd]or ac end,createBimg=function()
+local cd={}
+for dd,__a in pairs(_c)do local a_a=__a.getFrame()table.insert(cd,a_a)end;for dd,__a in pairs(ac)do cd[dd]=__a end;cd.width=bc;cd.height=cc;return cd end}
+if(db~=nil)then for cd,dd in pairs(db)do
+if(type(cd)=="string")then ac[cd]=dd else _d(cd,dd)end end
+if
+(ac.width==nil)or(ac.height==nil)then for cd,dd in pairs(_c)do local __a,a_a=dd.getSize()if(__a>bc)then __a=bc end
+if(a_a>cc)then a_a=cc end end
+dc.updateSize(bc,cc,true)end else _d(1)end;return dc end end
+aa["libraries"]["basaltLogs"]=function(...)local ab=""local bb="basaltLog.txt"local cb="Debug"
+fs.delete(
+ab~=""and ab.."/"..bb or bb)
+local db={__call=function(_c,ac,bc)if(ac==nil)then return end
+local cc=ab~=""and ab.."/"..bb or bb
+local dc=fs.open(cc,fs.exists(cc)and"a"or"w")
+dc.writeLine("[Basalt][".. (bc and bc or cb).."]: "..tostring(ac))dc.close()end}return setmetatable({},db)end
+aa["libraries"]["images"]=function(...)local ab,bb=string.sub,math.floor;local function cb(ad)return
+{[1]={{},{},paintutils.loadImage(ad)}},"bimg"end;local function db(ad)return
+paintutils.loadImage(ad),"nfp"end
+local function _c(ad)
+local bd=fs.open(ad,"rb")local cd=textutils.unserialize(bd.readAll())
+bd.close()if(cd~=nil)then return cd,"bimg"end end;local function ac(ad)end;local function bc(ad)end;local function cc(ad,bd)
+if(bd==nil)then if(ad:find(".bimg"))then return _c(ad)elseif
+(ad:find(".bbf"))then return ac(ad)else return db(ad)end end end
+local function dc(ad,bd)if(
+bd==nil)then
+if(ad:find(".bimg"))then return _c(ad)elseif(ad:find(".bbf"))then return bc(ad)else return cb(ad)end end end
+local function _d(ad,bd,cd)
+local dd,__a=ad.width or#ad[1][1][1],ad.height or#ad[1]local a_a={}
+for b_a,c_a in pairs(ad)do
+if(type(b_a)=="number")then local d_a={}
+for y=1,cd do local _aa,aaa,baa="","",""
+local caa=bb(y/cd*__a+0.5)
+if(c_a[caa]~=nil)then
+for x=1,bd do local daa=bb(x/bd*dd+0.5)_aa=_aa..
+ab(c_a[caa][1],daa,daa)
+aaa=aaa..ab(c_a[caa][2],daa,daa)baa=baa..ab(c_a[caa][3],daa,daa)end;table.insert(d_a,{_aa,aaa,baa})end end;table.insert(a_a,b_a,d_a)else a_a[b_a]=c_a end end;a_a.width=bd;a_a.height=cd;return a_a end
+return{loadNFP=db,loadBIMG=_c,loadImage=cc,resizeBIMG=_d,loadImageAsBimg=dc}end
+aa["libraries"]["layout"]=function(...)
+local function ab(cb)local db={}db.___value=nil;db.___name=cb
+db.___children={}db.___props={}function db:value()return self.___value end;function db:setValue(_c)
+self.___value=_c end;function db:name()return self.___name end;function db:setName(_c)
+self.___name=_c end;function db:children()return self.___children end;function db:numChildren()return
+#self.___children end
+function db:addChild(_c)
+if
+self[_c:name()]~=nil then if
+type(self[_c:name()].name)=="function"then local ac={}table.insert(ac,self[_c:name()])
+self[_c:name()]=ac end
+table.insert(self[_c:name()],_c)else self[_c:name()]=_c end;table.insert(self.___children,_c)end;function db:properties()return self.___props end;function db:numProperties()
+return#self.___props end
+function db:addProperty(_c,ac)local bc="@".._c
+if self[bc]~=nil then if
+type(self[bc])=="string"then local cc={}table.insert(cc,self[bc])
+self[bc]=cc end
+table.insert(self[bc],ac)else self[bc]=ac end
+table.insert(self.___props,{name=_c,value=self[_c]})end;return db end;local bb={}
+function bb:ToXmlString(cb)cb=string.gsub(cb,"&","&")
+cb=string.gsub(cb,"<","<")cb=string.gsub(cb,">",">")
+cb=string.gsub(cb,"\"",""")
+cb=string.gsub(cb,"([^%w%&%;%p%\t% ])",function(db)
+return string.format("&#x%X;",string.byte(db))end)return cb end
+function bb:FromXmlString(cb)
+cb=string.gsub(cb,"&#x([%x]+)%;",function(db)
+return string.char(tonumber(db,16))end)
+cb=string.gsub(cb,"&#([0-9]+)%;",function(db)return string.char(tonumber(db,10))end)cb=string.gsub(cb,""","\"")
+cb=string.gsub(cb,"'","'")cb=string.gsub(cb,">",">")
+cb=string.gsub(cb,"<","<")cb=string.gsub(cb,"&","&")return cb end;function bb:ParseArgs(cb,db)
+string.gsub(db,"(%w+)=([\"'])(.-)%2",function(_c,ac,bc)
+cb:addProperty(_c,self:FromXmlString(bc))end)end
+function bb:ParseXmlText(cb)
+local db={}local _c=ab()table.insert(db,_c)local ac,bc,cc,dc,_d;local ad,bd=1,1
+while true do
+ac,bd,bc,cc,dc,_d=string.find(cb,"<(%/?)([%w_:]+)(.-)(%/?)>",ad)if not ac then break end;local dd=string.sub(cb,ad,ac-1)
+if not
+string.find(dd,"^%s*$")then
+local __a=(_c:value()or"")..self:FromXmlString(dd)db[#db]:setValue(__a)end
+if _d=="/"then local __a=ab(cc)self:ParseArgs(__a,dc)
+_c:addChild(__a)elseif bc==""then local __a=ab(cc)self:ParseArgs(__a,dc)
+table.insert(db,__a)_c=__a else local __a=table.remove(db)_c=db[#db]
+if#db<1 then error("XmlParser: nothing to close with "..
+cc)end;if __a:name()~=cc then
+error("XmlParser: trying to close "..__a.name.." with "..cc)end;_c:addChild(__a)end;ad=bd+1 end;local cd=string.sub(cb,ad)if#db>1 then
+error("XmlParser: unclosed "..db[#db]:name())end;return _c end
+function bb:loadFile(cb,db)if not db then db=system.ResourceDirectory end
+local _c=system.pathForFile(cb,db)local ac,bc=io.open(_c,"r")
+if ac and not bc then local cc=ac:read("*a")
+io.close(ac)return self:ParseXmlText(cc),nil else print(bc)return nil end end;return bb end
+aa["libraries"]["module"]=function(...)return function(ab)local bb,cb=pcall(da,ab)
+return bb and cb or nil end end
+aa["libraries"]["process"]=function(...)local ab={}local bb={}local cb=0
+local db=dofile("rom/modules/main/cc/require.lua").make
+function bb:new(_c,ac,bc,...)local cc={...}
+local dc=setmetatable({path=_c},{__index=self})dc.window=ac;ac.current=term.current;ac.redirect=term.redirect
+dc.processId=cb
+if(type(_c)=="string")then
+dc.coroutine=coroutine.create(function()
+local _d=shell.resolveProgram(_c)local ad=setmetatable(bc,{__index=_ENV})ad.shell=shell
+ad.basaltProgram=true;ad.arg={[0]=_c,table.unpack(cc)}
+ad.require,ad.package=db(ad,fs.getDir(_d))
+if(fs.exists(_d))then local bd=fs.open(_d,"r")local cd=bd.readAll()
+bd.close()local dd=load(cd,_c,"bt",ad)if(dd~=nil)then return dd()end end end)elseif(type(_c)=="function")then
+dc.coroutine=coroutine.create(function()
+_c(table.unpack(cc))end)else return end;ab[cb]=dc;cb=cb+1;return dc end
+function bb:resume(_c,...)local ac=term.current()term.redirect(self.window)
+if(
+self.filter~=nil)then if(_c~=self.filter)then return end;self.filter=nil end;local bc,cc=coroutine.resume(self.coroutine,_c,...)if bc then
+self.filter=cc else printError(cc)end;term.redirect(ac)
+return bc,cc end
+function bb:isDead()
+if(self.coroutine~=nil)then
+if
+(coroutine.status(self.coroutine)=="dead")then table.remove(ab,self.processId)return true end else return true end;return false end
+function bb:getStatus()if(self.coroutine~=nil)then
+return coroutine.status(self.coroutine)end;return nil end
+function bb:start()coroutine.resume(self.coroutine)end;return bb end
+aa["libraries"]["tHex"]=function(...)
+return
+{[colors.white]="0",[colors.orange]="1",[colors.magenta]="2",[colors.lightBlue]="3",[colors.yellow]="4",[colors.lime]="5",[colors.pink]="6",[colors.gray]="7",[colors.lightGray]="8",[colors.cyan]="9",[colors.purple]="a",[colors.blue]="b",[colors.brown]="c",[colors.green]="d",[colors.red]="e",[colors.black]="f"}end
+aa["libraries"]["utils"]=function(...)
+local ab,bb,cb=string.sub,string.find,string.reverse
+local function db(ad,bd)local cd={}if ad==""or bd==""then return cd end;local dd=1
+local __a,a_a=bb(ad,bd,dd)while __a do table.insert(cd,ab(ad,dd,__a-1))dd=a_a+1
+__a,a_a=bb(ad,bd,dd)end
+table.insert(cd,ab(ad,dd))return cd end
+local _c={[0]={8,4,3,6,5},{4,14,8,7},{6,10,8,7},{9,11,8,0},{1,14,8,0},{13,12,8,0},{2,10,8,0},{15,8,10,11,12,14},{0,7,1,9,2,13},{3,11,8,7},{2,6,7,15},{9,3,7,15},{13,5,7,15},{5,12,8,7},{1,4,7,15},{7,10,11,12,14}}local ac,bc,cc={},{},{}for i=0,15 do bc[2 ^i]=i end
+do local ad="0123456789abcdef"
+for i=1,16 do ac[ad:sub(i,i)]=
+i-1;ac[i-1]=ad:sub(i,i)
+cc[ad:sub(i,i)]=2 ^ (i-1)cc[2 ^ (i-1)]=ad:sub(i,i)local bd=_c[i-1]for i=1,#bd do
+bd[i]=2 ^bd[i]end end end
+local function dc(ad)local bd=_c[bc[ad[#ad][1]]]
+for j=1,#bd do local cd=bd[j]for i=1,#ad-1 do if
+ad[i][1]==cd then return i end end end;return 1 end
+local function _d(ad,bd)
+if not bd then local dd={}bd={}for i=1,6 do local __a=ad[i]local a_a=bd[__a]
+bd[__a],dd[i]=a_a and(a_a+1)or 1,__a end;ad=dd end;local cd={}for dd,__a in pairs(bd)do cd[#cd+1]={dd,__a}end
+if#cd>1 then
+while
+#cd>2 do
+table.sort(cd,function(d_a,_aa)return d_a[2]>_aa[2]end)local __a,a_a=dc(cd),#cd;local b_a,c_a=cd[a_a][1],cd[__a][1]
+for i=1,6 do if ad[i]==b_a then
+ad[i]=c_a;cd[__a][2]=cd[__a][2]+1 end end;cd[a_a]=nil end;local dd=128
+for i=1,#ad-1 do if ad[i]~=ad[6]then dd=dd+2 ^ (i-1)end end;return string.char(dd),
+cc[cd[1][1]==ad[6]and cd[2][1]or cd[1][1]],cc[ad[6]]else
+return"\128",cc[ad[1]],cc[ad[1]]end end
+return
+{getTextHorizontalAlign=function(ad,bd,cd,dd)ad=ab(ad,1,bd)local __a=bd-string.len(ad)
+if(cd=="right")then ad=string.rep(
+dd or" ",__a)..ad elseif(cd=="center")then
+ad=string.rep(dd or" ",math.floor(
+__a/2))..ad..
+string.rep(dd or" ",math.floor(__a/2))
+ad=ad.. (string.len(ad)
+bd do local b_a=bb(cb(ab(a_a,1,bd))," ")if not b_a then b_a=bd else
+b_a=bd-b_a+1 end;local c_a=ab(a_a,1,b_a)
+table.insert(dd,c_a)a_a=ab(a_a,b_a+1)end;if#a_a>0 then table.insert(dd,a_a)end end;return dd end,getValueFromXML=function(ad,bd)
+local cd;if(type(bd)~="table")then return end;if(bd[ad]~=nil)then
+if
+(type(bd[ad])=="table")then if(bd[ad].value~=nil)then cd=bd[ad]:value()end end end;if(cd==nil)then
+cd=bd["@"..ad]end;if(cd=="true")then cd=true elseif(cd=="false")then cd=false elseif(tonumber(cd)~=nil)then
+cd=tonumber(cd)end;return cd end,numberFromString=function(ad)return load(
+"return "..ad)()end,uuid=function()
+local ad=math.random
+local function bd()local cd='xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx'return
+string.gsub(cd,'[xy]',function(dd)local __a=
+(dd=='x')and ad(0,0xf)or ad(8,0xb)
+return string.format('%x',__a)end)end;return bd()end,array=function(ad,bd)return
+load(
+"return {"..
+("nil,"):rep(ad).. ("[0]=nil,"):rep(bd).."}")()end,shrink=function(ad,bd)local cd,dd,__a,a_a={{},{},{}},0,
+#ad+#ad%3,bd or colours.black;for i=1,#ad do if
+#ad[i]>dd then dd=#ad[i]end end
+for y=0,__a-1,3 do
+local b_a,c_a,d_a,_aa={},{},{},1
+for x=0,dd-1,2 do local aaa,baa={},{}
+for yy=1,3 do
+for xx=1,2 do
+aaa[#aaa+1]=(ad[y+yy]and ad[y+yy][x+xx])and
+(ad[y+
+yy][x+xx]==0 and a_a or ad[y+yy][x+xx])or a_a;baa[aaa[#aaa]]=
+baa[aaa[#aaa]]and(baa[aaa[#aaa]]+1)or 1 end end;b_a[_aa],c_a[_aa],d_a[_aa]=_d(aaa,baa)_aa=_aa+1 end
+cd[1][#cd[1]+1],cd[2][#cd[2]+1],cd[3][#cd[3]+1]=table.concat(b_a),table.concat(c_a),table.concat(d_a)end;cd.width,cd.height=#cd[1][1],#cd[1]return cd end}end;return aa["main"]()
\ No newline at end of file