From 87efe343bcd06d96ffa33a912d92599e31b038ec Mon Sep 17 00:00:00 2001 From: malc Date: Sat, 1 Jun 2013 22:47:15 +0400 Subject: [PATCH] Cosmetics --- main.ml | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/main.ml b/main.ml index 4699f57..3b08474 100644 --- a/main.ml +++ b/main.ml @@ -4371,12 +4371,11 @@ let enterinfomode = coe (new listview ~source ~trusted:true ~modehash) )) :: m_l - method roammark name get set = + method paxmark name get set = m_l <- (name, `string get, 1, Action ( fun _ -> let source = - let vals = [| "page"; "block"; "line"; "word" |] in (object inherit lvsourcebase @@ -4384,8 +4383,8 @@ let enterinfomode = m_active <- MTE.to_int conf.paxmark; m_first <- 0; - method getitemcount = Array.length vals - method getitem n = (vals.(n), 0) + method getitemcount = Array.length MTE.names + method getitem n = (MTE.names.(n), 0) method exit ~uioh ~cancel ~active ~first ~pan ~qsearch = ignore (uioh, first, pan, qsearch); if not cancel then set active; @@ -4403,7 +4402,6 @@ let enterinfomode = (name, `string get, 1, Action ( fun _ -> let source = - let vals = [| "fit width"; "proportional"; "fit page" |] in (object inherit lvsourcebase @@ -4411,8 +4409,8 @@ let enterinfomode = m_active <- FMTE.to_int conf.fitmodel; m_first <- 0; - method getitemcount = Array.length vals - method getitem n = (vals.(n), 0) + method getitemcount = Array.length FMTE.names + method getitem n = (FMTE.names.(n), 0) method exit ~uioh ~cancel ~active ~first ~pan ~qsearch = ignore (uioh, first, pan, qsearch); if not cancel then set active; @@ -4799,7 +4797,7 @@ let enterinfomode = wcmd "cs %d" v; load state.layout; ); - src#roammark "pax mark method" + src#paxmark "pax mark method" (fun () -> MTE.to_string conf.paxmark) (fun v -> conf.paxmark <- MTE.of_int v); if pbousable () -- 2.11.4.GIT