Imported Tk 8.6.9
This commit is contained in:
@@ -161,8 +161,7 @@ test clipboard-4.3 {ClipboardLostSel procedure} -setup {
|
||||
clipboard append "Test"
|
||||
clipboard append -t TEST "Test2"
|
||||
selection clear -s CLIPBOARD
|
||||
catch {clipboard get}
|
||||
clipboard get -t TEST
|
||||
clipboard get -t TEST
|
||||
} -cleanup {
|
||||
clipboard clear
|
||||
} -returnCodes error -result {CLIPBOARD selection doesn't exist or form "TEST" not defined}
|
||||
@@ -184,8 +183,7 @@ test clipboard-4.5 {ClipboardLostSel procedure} -setup {
|
||||
clipboard append -t TEST "Test2"
|
||||
clipboard append "Test3"
|
||||
selection clear -s CLIPBOARD
|
||||
catch {clipboard get}
|
||||
clipboard get -t TEST
|
||||
clipboard get -t TEST
|
||||
} -cleanup {
|
||||
clipboard clear
|
||||
} -returnCodes error -result {CLIPBOARD selection doesn't exist or form "TEST" not defined}
|
||||
@@ -230,7 +228,7 @@ test clipboard-6.1 {Tk_ClipboardAppend procedure} -setup {
|
||||
} -cleanup {
|
||||
clipboard clear
|
||||
} -returnCodes ok -result {first chunk second chunk}
|
||||
test clipboard-6.2 {Tk_ClipboardAppend procedure} -constraints unix -setup {
|
||||
test clipboard-6.2 {Tk_ClipboardAppend procedure} -constraints x11 -setup {
|
||||
clipboard clear
|
||||
} -body {
|
||||
setupbg
|
||||
|
||||
Reference in New Issue
Block a user