[gdb/testsuite] Add invisible and blinking attributes in tuiterm
authorTom de Vries <tdevries@suse.de>
Fri, 26 May 2023 10:30:24 +0000 (12:30 +0200)
committerTom de Vries <tdevries@suse.de>
Fri, 26 May 2023 10:30:24 +0000 (12:30 +0200)
I noticed curses using the invisible and blinking attributes.

Add these in tuiterm.

Tested on x86_64-linux.

gdb/testsuite/gdb.tui/tuiterm.exp
gdb/testsuite/lib/tuiterm.exp

index ff0a3ac48ad0823b02abfa008381a6a4193075c6..bccb7ef445a2817e01e0f40c9b692e15612cac40 100644 (file)
@@ -691,6 +691,14 @@ proc test_attrs {} {
            2 dim
            22 normal
        }
+       invisible {
+           8 1
+           28 0
+       }
+       blinking {
+           5 1
+           25 0
+       }
     } {
        setup_terminal 8 1
        set re ""
index 49ce79558c606bad0e8f7db3caa67b2adc4e43da..90b885d7ab4e6c5d8e58d6729420c08f0b6402e9 100644 (file)
@@ -556,6 +556,8 @@ namespace eval Term {
            bg default
            underline 0
            reverse 0
+           invisible 0
+           blinking 0
        }
     }
 
@@ -580,18 +582,30 @@ namespace eval Term {
                    4 {
                        set _attrs(underline) 1
                    }
+                   5 {
+                       set _attrs(blinking) 1
+                   }
                    7 {
                        set _attrs(reverse) 1
                    }
+                   8 {
+                       set _attrs(invisible) 1
+                   }
                    22 {
                        set _attrs(intensity) normal
                    }
                    24 {
                        set _attrs(underline) 0
                    }
+                   25 {
+                       set _attrs(blinking) 0
+                   }
                    27 {
                        set _attrs(reverse) 0
                    }
+                   28 {
+                       set _attrs(invisible) 0
+                   }
                    30 - 31 - 32 - 33 - 34 - 35 - 36 - 37 {
                        set _attrs(fg) $item
                    }