FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
livecode/tests/lcs/core/interface/group.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
/
group.livecodescript
Copy path
More file actions
More file actions
Latest commit
History
History
History
67 lines (54 loc) · 1.94 KB
Breadcrumbs
livecode
/
tests
/
lcs
/
core
/
interface
/
group.livecodescript
Copy path
File metadata and controls
67 lines (54 loc) · 1.94 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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
script
"CoreInterfaceGroup"
/*
Copyright (C) 2015 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
TestGroupSelection
create
stack
"Test"
set
the
defaultStack
to
"Test"
select
empty
get
"ThisIsNotEmpty"
group
TestAssert
"Group empty selection sets it to empty"
,
it
is
empty
create
button
"A"
create
button
"B"
select button
"A"
and
button
"B"
set
the
name
of
the
templateGroup
to
"NewGroup"
get
"ThisIsNotEmpty"
group
TestAssert
"Group selection sets it to new group"
,
the
short
name
of
it
is
"NewGroup"
delete
stack
"Test"
end
TestGroupSelection
on
TestGroupByScript
create
stack
"Test"
set
the
defaultStack
to
"Test"
create
button
"A"
create
button
"B"
set
the
name
of
the
templateGroup
to
"NewGroup"
get
"ThisIsNotEmpty"
group button
"A"
and
button
"B"
TestAssert
"Group objects sets it to new group"
,
the
short
name
of
it
is
"NewGroup"
delete
stack
"Test"
end
TestGroupByScript
on
TestGroupUndo_Bug20642
create
stack
"Test"
set
the
defaultStack
to
"Test"
repeat
for
each
item
tControlType
in
"button,graphic,image,scrollbar,eps,player,field,group"
do
format
(
"create %s \"
A\
"", tControlType)
select control
"A"
group
select
it
delete
undo
TestAssert
format
(
"Undo grouped %s deletion does not crash"
,
tControlType
),
the
short
name
of
control
"A"
is
"A"
delete
the
first
group
end repeat
end
TestGroupUndo_Bug20642
Back
|
FazBrowse Home
|
New Git URL