Unified · Split
| @@ -410,7 +410,7 @@ object (self) · 409 unmodified lines | |||
| 410 | in | 410 | in |
| 411 | let active = flow (m_active+incr) in | 411 | let active = flow (m_active+incr) in |
| 412 | let first = calcfirst m_first active in | 412 | let first = calcfirst m_first active in |
| 413 | postRedisplay "outline nextcurlevel"; | 413 | postRedisplay "listview nextcurlevel"; |
| 414 | {< m_active = active; m_first = first >} | 414 | {< m_active = active; m_first = first >} |
| 415 | 415 | ||
| 416 | method updownlevel incr = | 416 | method updownlevel incr = |
| @@ -431,7 +431,7 @@ object (self) · 14 unmodified lines | |||
| 431 | in | 431 | in |
| 432 | let active = flow m_active in | 432 | let active = flow m_active in |
| 433 | let first = calcfirst m_first active in | 433 | let first = calcfirst m_first active in |
| 434 | postRedisplay "outline updownlevel"; | 434 | postRedisplay "listview updownlevel"; |
| 435 | {< m_active = active; m_first = first >} | 435 | {< m_active = active; m_first = first >} |
| 436 | 436 | ||
| 437 | method private key1 key mask = | 437 | method private key1 key mask = |