Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 743829 Details for
Bug 769341
net-misc/unison[gtk] depends on dev-ml/lablgtk:2
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Replace statistics GtkCList with GtkTreeView
28167e3b67611dfc5ebff866b0ce91bf86d74d66.patch (text/plain), 4.33 KB, created by
Bernd Feige
on 2021-10-08 11:19:32 UTC
(
hide
)
Description:
Replace statistics GtkCList with GtkTreeView
Filename:
MIME Type:
Creator:
Bernd Feige
Created:
2021-10-08 11:19:32 UTC
Size:
4.33 KB
patch
obsolete
>From 28167e3b67611dfc5ebff866b0ce91bf86d74d66 Mon Sep 17 00:00:00 2001 >From: =?UTF-8?q?T=C3=B5ivo=20Leedj=C3=A4rv?= > <69477666+tleedjarv@users.noreply.github.com> >Date: Wed, 14 Jul 2021 10:21:55 +0200 >Subject: [PATCH] Replace statistics GtkCList with GtkTreeView > >CList has been deprecated and is removed in GTK3. >--- > src/uigtk2.ml | 74 +++++++++++++++++++++++++++++++-------------------- > 1 file changed, 45 insertions(+), 29 deletions(-) > >diff --git a/src/uigtk2.ml b/src/uigtk2.ml >index 102b8525..bf8de111 100644 >--- a/src/uigtk2.ml >+++ b/src/uigtk2.ml >@@ -544,6 +544,17 @@ let rate2str v = > " " > end > >+let mib = 1024. *. 1024. >+let kib2str v = >+ if v > 100_000_000. then >+ Format.sprintf "%.0f MiB" (v /. mib) >+ else if v > 1_000_000. then >+ Format.sprintf "%.1f MiB" (v /. mib) >+ else if v > 1024. then >+ Format.sprintf "%.1f KiB" (v /. 1024.) >+ else >+ Format.sprintf "%.0f B" v >+ > let statistics () = > let title = "Statistics" in > let t = GWindow.dialog ~title () in >@@ -558,22 +569,28 @@ let statistics () = > let reception = new stats 320 50 in > t#vbox#pack ~expand:false ~padding:4 (reception :> GObj.widget); > >- let lst = >- GList.clist >- ~packing:(t#vbox#add) >- ~titles_active:false >- ~titles:[""; "Client"; "Server"; "Total"] () >- in >- lst#set_column ~auto_resize:true 0; >- lst#set_column ~auto_resize:true ~justification:`RIGHT 1; >- lst#set_column ~auto_resize:true ~justification:`RIGHT 2; >- lst#set_column ~auto_resize:true ~justification:`RIGHT 3; >- ignore (lst#append ["Reception rate"]); >- ignore (lst#append ["Data received"]); >- ignore (lst#append ["File data written"]); >- for r = 0 to 2 do >- lst#set_row ~selectable:false r >- done; >+ let cols = new GTree.column_list in >+ let c_1 = cols#add Gobject.Data.string in >+ let c_client = cols#add Gobject.Data.string in >+ let c_server = cols#add Gobject.Data.string in >+ let c_total = cols#add Gobject.Data.string in >+ let lst = GTree.list_store cols in >+ let l = GTree.view ~model:lst ~enable_search:false ~packing:(t#vbox#add) () in >+ l#selection#set_mode `NONE; >+ ignore (l#append_column (GTree.view_column ~title:"" >+ ~renderer:(GTree.cell_renderer_text [], ["text", c_1]) ())); >+ ignore (l#append_column (GTree.view_column ~title:"Client" >+ ~renderer:(GTree.cell_renderer_text [`XALIGN 1.0], ["text", c_client]) ())); >+ ignore (l#append_column (GTree.view_column ~title:"Server" >+ ~renderer:(GTree.cell_renderer_text [`XALIGN 1.0], ["text", c_server]) ())); >+ ignore (l#append_column (GTree.view_column ~title:"Total" >+ ~renderer:(GTree.cell_renderer_text [`XALIGN 1.0], ["text", c_total]) ())); >+ let rate_row = lst#append () in >+ ignore (lst#set rate_row c_1 "Reception rate"); >+ let receive_row = lst#append () in >+ ignore (lst#set receive_row c_1 "Data received"); >+ let data_row = lst#append () in >+ ignore (lst#set data_row c_1 "File data written"); > > ignore (t#event#connect#map ~callback:(fun _ -> > emission#activate true; >@@ -596,19 +613,18 @@ let statistics () = > let stopCounter = ref 0 in > > let updateTable () = >- let kib2str v = Format.sprintf "%.0f B" v in >- lst#set_cell ~text:(rate2str !receiveRate2) 0 1; >- lst#set_cell ~text:(rate2str !emitRate2) 0 2; >- lst#set_cell ~text: >- (rate2str (!receiveRate2 +. !emitRate2)) 0 3; >- lst#set_cell ~text:(kib2str !receivedBytes) 1 1; >- lst#set_cell ~text:(kib2str !emittedBytes) 1 2; >- lst#set_cell ~text: >- (kib2str (!receivedBytes +. !emittedBytes)) 1 3; >- lst#set_cell ~text:(kib2str !clientWritten) 2 1; >- lst#set_cell ~text:(kib2str !serverWritten) 2 2; >- lst#set_cell ~text: >- (kib2str (!clientWritten +. !serverWritten)) 2 3 >+ let row = rate_row in >+ lst#set ~row ~column:c_client (rate2str !receiveRate2); >+ lst#set ~row ~column:c_server (rate2str !emitRate2); >+ lst#set ~row ~column:c_total (rate2str (!receiveRate2 +. !emitRate2)); >+ let row = receive_row in >+ lst#set ~row ~column:c_client (kib2str !receivedBytes); >+ lst#set ~row ~column:c_server (kib2str !emittedBytes); >+ lst#set ~row ~column:c_total (kib2str (!receivedBytes +. !emittedBytes)); >+ let row = data_row in >+ lst#set ~row ~column:c_client (kib2str !clientWritten); >+ lst#set ~row ~column:c_server (kib2str !serverWritten); >+ lst#set ~row ~column:c_total (kib2str (!clientWritten +. !serverWritten)) > in > let timeout _ = > emitRate :=
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
Attachments on
bug 769341
:
743826
|
743829
|
743832
|
743835
|
743838
|
743841
|
765681
|
765682
|
765683
|
765684
|
765685
|
765686
|
765714