Rev 9197 | Rev 9210 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9197 | Rev 9208 | ||
---|---|---|---|
Line 38... | Line 38... | ||
38 | blur_border_color, |
38 | blur_border_color, |
39 | text_color*, |
39 | text_color*, |
40 | max: INTEGER; |
40 | max: INTEGER; |
41 | text*: INTEGER; |
41 | text*: INTEGER; |
42 | mouse_variable: tEditBox; |
42 | mouse_variable: tEditBox; |
43 | flags*, |
43 | flags*: SET; |
Line 44... | Line 44... | ||
44 | 44 | ||
45 | size, |
45 | size, |
46 | pos: INTEGER; |
46 | pos: INTEGER; |
47 | (* The following struct members are not used by the users of API *) |
47 | (* The following struct members are not used by the users of API *) |
Line 127... | Line 127... | ||
127 | new_textbox.text_color := 0; |
127 | new_textbox.text_color := 0; |
128 | new_textbox.max := max_chars; |
128 | new_textbox.max := max_chars; |
129 | new_textbox.text := KOSAPI.malloc(max_chars + 2); |
129 | new_textbox.text := KOSAPI.malloc(max_chars + 2); |
130 | ASSERT(new_textbox.text # 0); |
130 | ASSERT(new_textbox.text # 0); |
131 | new_textbox.mouse_variable := editbox_interlock; |
131 | new_textbox.mouse_variable := editbox_interlock; |
132 | new_textbox.flags := 0 |
132 | new_textbox.flags := {} |
Line 133... | Line 133... | ||
133 | 133 | ||
134 | RETURN new_textbox |
134 | RETURN new_textbox |