Mercurial > dwindows

comparison android/DWindows.kt @ 2481:94f0d61d6953

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Android: Initial commit of signal handlers, connecting buttons to the new system.
author bsmith@81767d24-ef19-dc11-ae90-00e081727c95
date Mon, 26 Apr 2021 11:01:58 +0000
parents 878d36588aaa
children 4888503c3e3e
comparison
equal deleted inserted replaced
2480:878d36588aaa 2481:94f0d61d6953
127 127
128 fun buttonNew(text: String, cid: Int): Button 128 fun buttonNew(text: String, cid: Int): Button
129 { 129 {
130 val button = Button(this) 130 val button = Button(this)
131 button.text = text 131 button.text = text
132 button.setOnClickListener { eventHandler(button, button, 8, "", "", 0, 0, 0, 0) }
132 return button 133 return button
133 } 134 }
134 135
135 fun entryfieldNew(text: String, cid: Int, password: Int): EditText 136 fun entryfieldNew(text: String, cid: Int, password: Int): EditText
136 { 137 {
144 145
145 fun radioButtonNew(text: String, cid: Int): RadioButton 146 fun radioButtonNew(text: String, cid: Int): RadioButton
146 { 147 {
147 val radiobutton = RadioButton(this) 148 val radiobutton = RadioButton(this)
148 radiobutton.text = text 149 radiobutton.text = text
150 radiobutton.setOnClickListener { eventHandler(radiobutton, radiobutton, 8, "", "", 0, 0, 0, 0) }
149 return radiobutton 151 return radiobutton
150 } 152 }
151 153
152 fun checkboxNew(text: String, cid: Int): CheckBox 154 fun checkboxNew(text: String, cid: Int): CheckBox
153 { 155 {
166 /* 168 /*
167 * Native methods that are implemented by the 'dwindows' native library, 169 * Native methods that are implemented by the 'dwindows' native library,
168 * which is packaged with this application. 170 * which is packaged with this application.
169 */ 171 */
170 external fun dwindowsInit(dataDir: String): String 172 external fun dwindowsInit(dataDir: String): String
173 external fun eventHandler(obj1: Any, obj2: Any, message: Int, str1: String, str2: String, int1: Int, int2: Int, int3: Int, int4: Int): Int
171 174
172 companion object 175 companion object
173 { 176 {
174 // Used to load the 'dwindows' library on application startup. 177 // Used to load the 'dwindows' library on application startup.
175 init 178 init