FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
livecode/tests/lcs/core/interface/type.livecodescript at develop · livecode/livecode · GitHub
Uh oh!
There was an error while loading.
Please reload this page
.
This repository was archived by the owner on Aug 31, 2021. It is now read-only.
livecode
/
livecode
Public archive
Notifications
You must be signed in to change notification settings
Fork
223
Star
517
Code
Pull requests
189
Actions
Security and quality
0
Insights
Additional navigation options
Code
Pull requests
Actions
Security and quality
Insights
Expand file tree
Breadcrumbs
livecode
/
tests
/
lcs
/
core
/
interface
/
type.livecodescript
Copy path
More file actions
More file actions
Latest commit
History
History
History
53 lines (42 loc) · 2.04 KB
Breadcrumbs
livecode
/
tests
/
lcs
/
core
/
interface
/
type.livecodescript
Copy path
File metadata and controls
53 lines (42 loc) · 2.04 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
script
"CoreType"
/*
Copyright (C) 2017 LiveCode Ltd.
This file is part of LiveCode.
LiveCode is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License v3 as published by the Free
Software Foundation.
LiveCode is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with LiveCode. If not see <http://www.gnu.org/licenses/>.
*/
on
TestType
TestSkipIfNot
"wait"
create
stack
"Test"
set
the
defaultStack
to
"Test"
set
the
script
of
stack
"Test"
to
\
"on rawKeyDown pKeyCode; set the uKeyCode of me to pKeyCode; pass rawKeyDown; end rawKeyDown"
&
return
&
\
"on keyDown pChar; set the uChar of me to pChar pass keyDown; end keyDown"
TestAssert
"stack script compiled okay"
,
the
result
is
empty
type
"a"
TestAssert
"type ascii char 'a' maps correctly"
, \
the
uKeyCode
of
stack
"Test"
is
charToNum
(
"a"
)
and
\
the
uChar
of
stack
"Test"
is
"a"
type
"A"
TestAssert
"type ascii char 'A' maps correctly"
, \
the
uKeyCode
of
stack
"Test"
is
charToNum
(
"A"
)
and
\
the
uChar
of
stack
"Test"
is
"A"
type
numToCodepoint
(
0x00E9
)
--
code for lower case E-acute
TestAssert
"type native char"
&&
numToCodepoint
(
0x00E9
)
&&
"maps correctly"
, \
the
uKeyCode
of
stack
"Test"
is
charToNum
(
numToCodepoint
(
0x00E9
))
and
\
the
uChar
of
stack
"Test"
is
numToCodepoint
(
0x00E9
)
type
numToCodepoint
(
0x431
)
--
code for Cyrillic Be
TestAssert
"type bmp char"
&&
numToCodepoint
(
0x431
)
&&
"maps correctly"
, \
the
uKeyCode
of
stack
"Test"
is
(
0x431
bitOr
2
^
24
)
and
\
the
uChar
of
stack
"Test"
is
numToCodepoint
(
0x431
)
type
numToCodepoint
(
0x1D110
)
--
code for music fermata
TestAssert
"type smp char"
&&
numToCodepoint
(
0x1D110
)
&&
"maps correctly"
, \
the
uKeyCode
of
stack
"Test"
is
(
0x1D110
bitOr
2
^
24
)
and
\
the
uChar
of
stack
"Test"
is
numToCodepoint
(
0x1D110
)
end
TestType
Back
|
FazBrowse Home
|
New Git URL