blob: d08bf603551dbc75d4d1659d1778de106d06d182 (
plain) (
blame)
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
|
--- src/widget_tree.sml.orig Sun Jan 13 12:42:32 2008
+++ src/widget_tree.sml Sun Jan 13 12:44:14 2008
@@ -1171,9 +1171,9 @@
if (List.exists (Config.confEq fdef) nc) then nc else fdef::nc
in
(packWid doP "frame" tp ip wid p [] [] grid ^
+ packWid true "scrollbar" sctp scip wid [si,Fill Y] [] [] false ^
packWid true "text" btp bip wid [siquer,Fill Both,Expand true] nc'
b false ^
- packWid true "scrollbar" sctp scip wid [si,Fill Y] [] [] false ^
btp ^ " configure -yscrollcommand \"" ^ sctp ^ " set \" " ^ "\n" ^
sctp^" configure -command \""^ btp ^ " yview\"" ^ "\n" ^
tt ^ stt ^
@@ -1547,6 +1547,49 @@
end
fun clearText wid = deleteText wid (Mark(0, 0), MarkEnd)
+
+fun configureLItem wid cf m =
+ let
+ fun litempack [] = ""
+ | litempack ((Foreground c)::xs) = let
+ val coltext = Config.showColor c
+ in
+ " -foreground " ^ coltext ^
+ " -selectforeground " ^ coltext ^ litempack xs
+ end
+ | litempack ((Background c)::xs) =
+ " -background " ^ (Config.showColor c) ^ litempack xs
+ | litempack (_::xs) = litempack xs
+ val ip = Paths.getIntPathGUI wid
+ val tp = Paths.getTclPathGUI ip
+ val w = getWidgetGUIPath ip
+ val (m1, _)= StringUtil.breakAtDot (Mark.show m)
+ in
+ case w of
+ Listbox _ =>
+ Com.putTclCmd (tp ^ ".box itemconfigure " ^ m1 ^ " " ^
+ litempack cf)
+ | _ =>
+ raise WIDGET "text insertion in illegal window"
+ end
+
+fun clearLItemConfig wid m =
+ let
+ val ip = Paths.getIntPathGUI wid
+ val tp = Paths.getTclPathGUI ip
+ val tp = Paths.getTclPathGUI (Paths.getIntPathGUI wid)
+ val w = getWidgetGUIPath ip
+ val (m1,_)= StringUtil.breakAtDot (Mark.show m)
+ in
+ case w of
+ Listbox _ =>
+ Com.putTclCmd (tp ^ ".box itemconfigure " ^ m1 ^
+ " -foreground \"\" -selectforeground \"\" " ^
+ " -background \"\" -selectbackground \"\"")
+ | _ =>
+ raise WIDGET "text insertion in illegal window"
+ end
+
fun focus win =
if ( win = "main" orelse win = "." ) then
|
