Commit ddfd79a7 authored by Diederik van Arkel's avatar Diederik van Arkel

larger edit boxes

parent 27c575ff
......@@ -510,7 +510,7 @@ where
gdef linenr gId okId cancelId lineId istypewin win =
Dialog "Goto Line"
( TextControl "Goto Line:" []
:+: EditControl (toString (inc linenr)) (PixelWidth 30) 1
:+: EditControl (toString (inc linenr)) (ContentWidth "888888") 1
[ ControlId lineId
// , ControlKeyboard escFilter Able (noLS1 (const (closeWindow gId)))
, ControlActivate (noLS (appPIO (setEditControlSelection lineId 1 0)))
......@@ -575,7 +575,7 @@ where
( TextControl "From line:"
[ ControlWidth textWidth
]
:+: EditControl (toString (inc pos.row)) (PixelWidth 30) 1
:+: EditControl (toString (inc pos.row)) (ContentWidth "888888") 1
[ ControlId (idslist!!flId)
, ControlKeyboard escFilter Able (noLS1 (const (closeWindow (idslist!!gId))))
, ControlActivate (noLS (appPIO (setEditControlSelection (idslist!!flId) 1 0)))
......@@ -584,7 +584,7 @@ where
[ ControlPos (Left,zero)
, ControlWidth textWidth
]
:+: EditControl (toString (pos.col)) (PixelWidth 30) 1
:+: EditControl (toString (pos.col)) (ContentWidth "888888") 1
[ ControlId (idslist!!fcId)
, ControlKeyboard escFilter Able (noLS1 (const (closeWindow (idslist!!gId))))
, ControlActivate (noLS (appPIO (setEditControlSelection (idslist!!fcId) 1 0)))
......@@ -593,7 +593,7 @@ where
[ ControlPos (Left,zero)
, ControlWidth textWidth
]
:+: EditControl (toString (inc pos.row)) (PixelWidth 30) 1
:+: EditControl (toString (inc pos.row)) (ContentWidth "888888") 1
[ ControlId (idslist!!tlId)
, ControlKeyboard escFilter Able (noLS1 (const (closeWindow (idslist!!gId))))
, ControlActivate (noLS (appPIO (setEditControlSelection (idslist!!tlId) 1 0)))
......@@ -602,7 +602,7 @@ where
[ ControlPos (Left,zero)
, ControlWidth textWidth
]
:+: EditControl (toString (pos.col)) (PixelWidth 30) 1
:+: EditControl (toString (pos.col)) (ContentWidth "888888") 1
[ ControlId (idslist!!tcId)
, ControlKeyboard escFilter Able (noLS1 (const (closeWindow (idslist!!gId))))
, ControlActivate (noLS (appPIO (setEditControlSelection (idslist!!tcId) 1 0)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment