Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
clean-libraries
Commits
689bfd68
Commit
689bfd68
authored
Dec 10, 2001
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
small 2.0 fixes
parent
e927d6dd
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
16 additions
and
6 deletions
+16
-6
ObjectIO/ObjectIO/OS Windows/oswindow.icl
ObjectIO/ObjectIO/OS Windows/oswindow.icl
+1
-0
ObjectIO/ObjectIO/StdId.dcl
ObjectIO/ObjectIO/StdId.dcl
+4
-1
ObjectIO/ObjectIO/StdPrint.dcl
ObjectIO/ObjectIO/StdPrint.dcl
+4
-1
ObjectIO/ObjectIO/relayout.icl
ObjectIO/ObjectIO/relayout.icl
+6
-3
ObjectIO/ObjectIO/timertable.icl
ObjectIO/ObjectIO/timertable.icl
+1
-1
No files found.
ObjectIO/ObjectIO/OS Windows/oswindow.icl
View file @
689bfd68
...
...
@@ -1201,6 +1201,7 @@ osInvalidateCompoundRect :: !OSWindowPtr !OSRect !*OSToolbox -> *OSToolbox
osInvalidateCompoundRect compoundPtr rect tb
= winInvalidateRect compoundPtr (toTuple4 rect) tb
*/
osSetCompoundSliderThumb
::
!
OSWindowMetrics
!
OSWindowPtr
!
OSWindowPtr
!
OSWindowPtr
!
OSRect
!
Bool
!
Int
!(!
Int
,!
Int
)
!
Bool
!*
OSToolbox
->
*
OSToolbox
osSetCompoundSliderThumb
wMetrics
_
compoundPtr
_
_
isHorizontal
thumb
(
maxx
,
maxy
)
redraw
tb
=
winSetScrollPos
compoundPtr
(
if
isHorizontal
SB_HORZ
SB_VERT
)
thumb
maxx`
maxy`
extent
tb
...
...
ObjectIO/ObjectIO/StdId.dcl
View file @
689bfd68
...
...
@@ -11,7 +11,10 @@ definition module StdId
from
StdMaybe
import
::
Maybe
from
id
import
::
Id
,
::
RId
,
::
R2Id
,
rIdtoId
,
r2IdtoId
,
class
toString
,
class
==
from
id
import
::
Id
,
::
RId
,
::
R2Id
,
rIdtoId
,
r2IdtoId
,
class
==,
instance
==
Id
,
instance
==
(
RId
mess
),
instance
==
(
R2Id
mess
resp
)
from
iostate
import
::
IOSt
,
::
PSt
class
Ids
env
where
...
...
ObjectIO/ObjectIO/StdPrint.dcl
View file @
689bfd68
...
...
@@ -9,12 +9,15 @@ definition module StdPrint
// ********************************************************************************
from
StdFile
import
::
Files
from
StdIOCommon
import
::
UpdateState
from
StdIOBasic
import
::
IdFun
,
::
Size
,
::
Rectangle
,
::
Point2
from
StdOverloaded
import
class
==
from
ospicture
import
::
Picture
from
osprint
import
::
Alternative
(..),
class
PrintEnvironments
(..),
::
PrintInfo
(..),
::
PrintSetup
,
::
JobInfo
(..)
::
PrintInfo
(..),
::
PrintSetup
,
::
JobInfo
(..),
instance
PrintEnvironments
Files
,
instance
PrintEnvironments
(
PSt
.
l
)
from
iostate
import
::
PSt
from
StdFile
import
class
FileEnv
...
...
ObjectIO/ObjectIO/relayout.icl
View file @
689bfd68
...
...
@@ -145,19 +145,22 @@ where
|
not
hasScroll
=
tb
// # tb = osSetCompoundSliderThumbSize wMetrics compoundPtr isHorizontal size (rright,rbottom) (old==new) tb
#
tb
=
osSetCompoundSliderThumbSize
wMetrics
wPtr
compoundPtr
scrollPtr
scrollMin
scrollMax
scrollSize
scrollRect
isHorizontal
able
(
old
==
new
)
tb
// # tb = osSetCompoundSliderThumbSize wMetrics wPtr compoundPtr scrollPtr scrollMin scrollMax scrollSize scrollRect isHorizontal able (old==new) tb
#
tb
=
osSetCompoundSliderThumbSize
wMetrics
wPtr
compoundPtr
scrollPtr
min
max
wid
scrollRect
isHorizontal
able
(
old
==
new
)
tb
|
old
==
new
#
tb
=
osUpdateCompoundScroll
wPtr
scrollPtr
scrollRect
tb
=
tb
// | otherwise = osSetCompoundSliderThumb wMetrics compoundPtr isHorizontal new (rright,rbottom) True tb
|
otherwise
#
tb
=
osSetCompoundSliderThumb
wMetrics
wPtr
compoundPtr
scrollPtr
scrollRect
isHorizontal
new
(
rright
,
rbottom
)
True
tb
// # tb = osSetCompoundSliderThumb wMetrics wPtr compoundPtr scrollPtr scrollRect isHorizontal new (rright,rbottom) True tb
#
tb
=
osSetCompoundSliderThumb
wMetrics
wPtr
compoundPtr
scrollPtr
scrollRect
isHorizontal
pos
(
rright
,
rbottom
)
True
tb
#
tb
=
osUpdateCompoundScroll
wPtr
scrollPtr
scrollRect
tb
=
tb
where
(
min
,
pos
,
max
,
wid
)
=
toOSscrollbarRange
(
scrollMin
,
new
,
scrollMax
)
size
scrollPtr
=
if
isHorizontal
(
fromJust
hScrollPtr
)
(
fromJust
vScrollPtr
)
scrollMin
=
if
isHorizontal
(
newDomainRect
.
rleft
)
(
newDomainRect
.
rtop
)
scrollMax
=
if
isHorizontal
(
newDomainRect
.
rright
-
newContentSize
.
w
)
(
newDomainRect
.
rbottom
-
newContentSize
.
h
)
scrollMax
=
if
isHorizontal
(
newDomainRect
.
rright
/*
-newContentSize.w
*/
)
(
newDomainRect
.
rbottom
/*
-newContentSize.h
*/
)
scrollRect
=
if
isHorizontal
hRect`
vRect`
scrollSize
=
if
isHorizontal
newContentSize
.
w
newContentSize
.
h
relayout
wPtr
wMetrics
newArea
IsLayoutControl
(
oldFrame
,
oldParentPos
,
old
)
(
newFrame
,
newParentPos
,
new
)
rgnHs
picture
...
...
ObjectIO/ObjectIO/timertable.icl
View file @
689bfd68
implementation
module
timertable
import
StdInt
,
StdBool
,
StdClass
,
StdList
,
StdMaybe
,
StdMisc
import
StdInt
,
StdBool
,
StdClass
,
StdList
,
StdMaybe
,
StdMisc
,
StdId
import
commondef
,
systemid
,
device
import
StdTimerDef
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment