let file_tree_decorate (file_tree:Filetree.t) =
  file_tree#append_pixbuf_column
    "Occurrence"
    (fun globs ->
       match !Db.Occurrence.get_last_result () with
       | None -> (* occurrence not computed *)
           [`STOCK_ID ""]
       | Some (result, _) ->
           let in_globals (ki,_) =
             match ki with
               | Kglobal -> false
               | Kstmt stmt ->
                   let kf = Kernel_function.find_englobing_kf stmt in
                   let {vid=v0} = Kernel_function.get_vi kf in
                   List.exists
                     (fun glob -> match glob with
                        | GFun ({svar ={vid=v1}},_ ) -> v1=v0
                        |  _ -> false)
                     globs
           in
           if List.exists in_globals result then [`STOCK_ID "gtk-apply"]
           else [`STOCK_ID ""])